[Emacs-diffs] Changes to emacs/lisp/gnus/mail-source.el

[Kim F . Storm]

Index: emacs/lisp/gnus/mail-source.el
diff -c emacs/lisp/gnus/mail-source.el:1.17 emacs/lisp/gnus/mail-source.el:1.18
*** emacs/lisp/gnus/mail-source.el:1.17 Mon Oct 18 22:23:43 2004
--- emacs/lisp/gnus/mail-source.el      Wed Feb  9 15:50:37 2005
***************
*** 236,242 ****
    "*Ignore errors when querying mail sources.
  If nil, the user will be prompted when an error occurs.  If non-nil,
  the error will be ignored."
!   :version "21.4"
    :group 'mail-source
    :type 'boolean)
  
--- 236,242 ----
    "*Ignore errors when querying mail sources.
  If nil, the user will be prompted when an error occurs.  If non-nil,
  the error will be ignored."
!   :version "22.1"
    :group 'mail-source
    :type 'boolean)
  
***************
*** 284,290 ****
    "*If non-nil, ask for for confirmation before deleting old incoming files.
  This variable only applies when `mail-source-delete-incoming' is a positive
  number."
!   :version "21.4"
    :group 'mail-source
    :type 'boolean)
  
--- 284,290 ----
    "*If non-nil, ask for for confirmation before deleting old incoming files.
  This variable only applies when `mail-source-delete-incoming' is a positive
  number."
!   :version "22.1"
    :group 'mail-source
    :type 'boolean)
  
***************
*** 305,311 ****
  
  (defcustom mail-source-movemail-program nil
    "If non-nil, name of program for fetching new mail."
!   :version "21.4"
    :group 'mail-source
    :type '(choice (const nil) string))
  
--- 305,311 ----
  
  (defcustom mail-source-movemail-program nil
    "If non-nil, name of program for fetching new mail."
!   :version "22.1"
    :group 'mail-source
    :type '(choice (const nil) string))
  
***************
*** 512,518 ****
                               (format "Mail source %s error (%s).  Continue? "
                                       (if (memq ':password source)
                                           (let ((s (copy-sequence source)))
!                                            (setcar (cdr (memq ':password s)) 
                                                     "********")
                                             s)
                                         source)
--- 512,518 ----
                               (format "Mail source %s error (%s).  Continue? "
                                       (if (memq ':password source)
                                           (let ((s (copy-sequence source)))
!                                            (setcar (cdr (memq ':password s))
                                                     "********")
                                             s)
                                         source)