nnimap.el: Explicitly ask for server capabilities

* lisp/gnus/nnimap.el (nnimap-open-connection-1): Don't assume full
capabilities will be returned in the login-result.
This commit is contained in:
Nikolaus Rath 2015-08-02 22:28:21 +00:00 committed by Katsumi Yamaoka
parent 5f5fe275ec
commit b0aa05907f

View file

@ -490,7 +490,7 @@ textual parts.")
(funcall (nth 2 credentials)))
;; See if CAPABILITY is set as part of login
;; response.
(dolist (response (cddr login-result))
(dolist (response (cddr (nnimap-command "CAPABILITY")))
(when (string= "CAPABILITY" (upcase (car response)))
(setf (nnimap-capabilities nnimap-object)
(mapcar #'upcase (cdr response))))))