From: Lars Ingebrigtsen <larsi@gnus.org>

* lisp/gnus/nnimap.el (nnimap-login): Allow anonymous logins
(bug#24704).

Copyright-paperwork-exempt: yes

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index a884376efb6d34f585d061245ba8f1c3852861e0..01d7948afba3e2fa83f8368716e562aed3036317 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -522,6 +522,7 @@ textual parts.")
    ((and (not (nnimap-capability "LOGINDISABLED"))
         (eq (nnimap-stream-type nnimap-object) 'tls)
         (or (null nnimap-authenticator)
+             (eq nnimap-authenticator 'anonymous)
             (eq nnimap-authenticator 'login)))
     (nnimap-command "LOGIN %S %S" user password))
    ((and (nnimap-capability "AUTH=CRAM-MD5")
@@ -541,6 +542,7 @@ textual parts.")
       (nnimap-wait-for-response sequence)))
    ((and (not (nnimap-capability "LOGINDISABLED"))
         (or (null nnimap-authenticator)
+             (eq nnimap-authenticator 'anonymous)
             (eq nnimap-authenticator 'login)))
     (nnimap-command "LOGIN %S %S" user password))
    ((and (nnimap-capability "AUTH=PLAIN")