* mail-source.el (mail-source-fetch): Hide password.

Correct some ChangeLog entries.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d018ab2..244b7f6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-09-13  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * mail-source.el (mail-source-fetch): Hide password.
+
        * gnus-sum.el (gnus-summary-next-group): Semi-exit only when needed.
 
 2002-09-12  Katsumi Yamaoka  <yamaoka@jpl.org>
@@ -407,7 +409,7 @@
        * nnimap.el (nnimap-split-to-groups): Allow group string to be a
        function.  From KANEMATSU Daiji <kdaiji@bea.com>.
 
-2002-07-09  Nevin Kapur  <Nevin Kapur <nevin@jhu.edu>
+2002-07-09  Nevin Kapur <nevin@jhu.edu>
 
        * gnus-sum.el (gnus-summary-delete-article): Respect group
        parameters while expiring.
@@ -1294,7 +1296,7 @@
 
        * gnus-util.el (gnus-extract-address-components): Don't break on
        names such as James "Kibo" Parry.  From Francis Litterio
-       <franl_removethis@world.std.com>.
+       <franl@world.std.com>.
 
 2002-03-13  Simon Josefsson  <jas@extundo.com>
 
@@ -1343,7 +1345,7 @@
        (gnus-summary-save-parts-last-directory): Ditto.
        Trivial change from andre@slamdunknetworks.com
 
-2002-03-09  Paul Jarc  <prj@po.cwru.edu
+2002-03-09  Paul Jarc  <prj@po.cwru.edu>
 
        * gnus-start.el (gnus-auto-subscribed-groups): Include nnmaildir.
 
@@ -7589,7 +7591,7 @@
        * gnus-sum.el (gnus-summary-mark-article-as-replied): Make into a
        command.
 
-2001-03-31 01:04:54  Francis Litterio  <franl-removethis@world.omitthis.std.com>
+2001-03-31 01:04:54  Francis Litterio  <franl@world.omitthis.std.com>
 
        * message.el (message-set-auto-save-file-name): Don't use
        asterisks under nt.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 0bab31f..3857e91 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -465,7 +465,12 @@ Return the number of files that were found."
                   (error
                    (unless (yes-or-no-p
                             (format "Mail source %s error (%s).  Continue? "
-                                    source
+                                    (if (memq ':password source)
+                                        (let ((s (copy-sequence source)))
+                                          (setcar (cdr (memq ':password s)) 
+                                                  "********")
+                                          s)
+                                      source)
                                     (cadr err)))
                      (error "Cannot get new mail"))
                    0)))))))))