From: Jonathan Marten <jjm@keelhaul.me.uk>
Date: Thu, 12 Apr 2018 20:23:31 +0000 (+0200)
Subject: From: Lars Ingebrigtsen <larsi@gnus.org>
X-Git-Tag: emacs-27.0.90~5273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7643fbb45273c70dafa53a8c844726c9920cd7bd;p=emacs.git

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 a884376efb6..01d7948afba 100644
--- 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")