diff options
| author | Nikolaus Rath | 2015-08-02 22:28:21 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-08-02 22:28:21 +0000 |
| commit | b0aa05907fe9ecd31601fcacb2aad5fd065e2595 (patch) | |
| tree | cea25a06b17900323d1924f00c45bbcbb7ecfab3 | |
| parent | 5f5fe275ec54194a9293690ffee3d425026ac14b (diff) | |
| download | emacs-b0aa05907fe9ecd31601fcacb2aad5fd065e2595.tar.gz emacs-b0aa05907fe9ecd31601fcacb2aad5fd065e2595.zip | |
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.
| -rw-r--r-- | lisp/gnus/nnimap.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 161a6b49ea7..594d1f57e7b 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el | |||
| @@ -490,7 +490,7 @@ textual parts.") | |||
| 490 | (funcall (nth 2 credentials))) | 490 | (funcall (nth 2 credentials))) |
| 491 | ;; See if CAPABILITY is set as part of login | 491 | ;; See if CAPABILITY is set as part of login |
| 492 | ;; response. | 492 | ;; response. |
| 493 | (dolist (response (cddr login-result)) | 493 | (dolist (response (cddr (nnimap-command "CAPABILITY"))) |
| 494 | (when (string= "CAPABILITY" (upcase (car response))) | 494 | (when (string= "CAPABILITY" (upcase (car response))) |
| 495 | (setf (nnimap-capabilities nnimap-object) | 495 | (setf (nnimap-capabilities nnimap-object) |
| 496 | (mapcar #'upcase (cdr response)))))) | 496 | (mapcar #'upcase (cdr response)))))) |