diff options
| author | Ted Zlatanov <tzz@lifelogs.com> | 2017-12-15 00:17:30 -0500 |
|---|---|---|
| committer | Ted Zlatanov <tzz@lifelogs.com> | 2017-12-15 00:17:46 -0500 |
| commit | b1788705284048382a3ef51783525b37e5443b1f (patch) | |
| tree | f2f03e803dbedf9d2bac35ae95dd5b3d1ccc1e1d /lisp | |
| parent | a21dac18bb17d23c9d6958149800c054687f8373 (diff) | |
| download | emacs-b1788705284048382a3ef51783525b37e5443b1f.tar.gz emacs-b1788705284048382a3ef51783525b37e5443b1f.tar.bz2 emacs-b1788705284048382a3ef51783525b37e5443b1f.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/mail-source.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |