From: Ted Zlatanov <tzz@lifelogs.com>
Date: Fri, 15 Dec 2017 05:17:30 +0000 (-0500)
Subject: Remember password change for IMAP in Gnus (Bug#29692)
X-Git-Tag: emacs-26.0.91~145
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b178870528;p=emacs.git

Remember password change for IMAP in Gnus (Bug#29692)

Reported by Trey Jackson <trey_jackson@mentor.com>.

* lisp/gnus/mail-source.el (mail-source-fetch-imap): Check
`mail-source-password-cache' for password.
---

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 93f03be72d0..ef34c492545 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -1097,7 +1097,8 @@ This only works when `display-time' is enabled."
 	      ;; remember password
 	      (with-current-buffer buf
 		(when (and imap-password
-			   (not (assoc from mail-source-password-cache)))
+			   (not (member (cons from imap-password)
+                                        mail-source-password-cache)))
 		  (push (cons from imap-password) mail-source-password-cache)))
 	      ;; if predicate is nil, use all uids
 	      (dolist (uid (imap-search (or predicate "1:*") buf))