Forget credentials if the server says the password was wrong.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc979a6..4b07815 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * nnimap.el (nnimap-request-accept-article): Remove the "." at the end,
        since some servers don't like it.
+       (nnimap-open-connection): Forget credentials if the server says the
+       password was wrong.
 
        * gnus-sum.el (gnus-summary-move-article): Add comment.
        (gnus-summary-insert-new-articles): Copy the old-high watermark so that

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index bc3a047..830aa7d 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -361,6 +361,14 @@ some servers.")
                                                   (car credentials)
                                                   (cadr credentials)))
                (unless (car login-result)
+                 ;; If the login failed, then forget the credentials
+                 ;; that are now possibly cached.
+                 (dolist (host (list (nnoo-current-server 'nnimap)
+                                     nnimap-address))
+                   (dolist (port ports)
+                     (dolist (element '("login" "password"))
+                       (auth-source-forget-user-or-password
+                        element host port))))
                  (delete-process (nnimap-process nnimap-object))
                  (setq nnimap-object nil))))
            (when nnimap-object