diff options
Diffstat (limited to 'lisp/gnus/nnimap.el')
-rw-r--r-- | lisp/gnus/nnimap.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 4e220bc7553..fc8873ff565 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -277,7 +277,8 @@ textual parts.") (current-buffer))) (defun nnimap-credentials (address ports) - (let* ((found (nth 0 (auth-source-search :max 1 + (let* ((auth-source-creation-defaults `((port . ,(nth 0 ports)))) + (found (nth 0 (auth-source-search :max 1 :host address :port ports :create t))) @@ -398,7 +399,7 @@ textual parts.") (dolist (host (list (nnoo-current-server 'nnimap) nnimap-address)) (dolist (port ports) - (auth-source-forget+ :host host :protocol port))) + (auth-source-forget+ :host host :port port))) (delete-process (nnimap-process nnimap-object)) (setq nnimap-object nil)))) (when nnimap-object |