diff options
| author | Miles Bader <miles@gnu.org> | 2007-12-06 00:21:00 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-12-06 00:21:00 +0000 |
| commit | b890d447fb56bfe9f2e4742eda4b3ab4b5f4b32a (patch) | |
| tree | b97d8b30984a8884b61d54b056a4aabf852ecbbe /lisp/net/imap.el | |
| parent | f6e7ec024870e8ccaaed5bc2e0d92fde7554e16b (diff) | |
| download | emacs-b890d447fb56bfe9f2e4742eda4b3ab4b5f4b32a.tar.gz | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-941
Diffstat (limited to 'lisp/net/imap.el')
| -rw-r--r-- | lisp/net/imap.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/net/imap.el b/lisp/net/imap.el index 4e8535ab2a9..8e41c68720b 100644 --- a/lisp/net/imap.el +++ b/lisp/net/imap.el @@ -1533,10 +1533,11 @@ or 'unseen. The IMAP command tag is returned." (imap-send-command (list "STATUS \"" (imap-utf7-encode mailbox) "\" " - (format "%s" - (if (listp items) - items - (list items))))))) + (upcase + (format "%s" + (if (listp items) + items + (list items)))))))) (defun imap-mailbox-acl-get (&optional mailbox buffer) "Get ACL on mailbox from server in BUFFER." @@ -2524,7 +2525,7 @@ Return nil if no complete line has arrived." (while (and (not (eq (char-after) ?\))) (or (forward-char) t) (looking-at "\\([A-Za-z]+\\) ")) - (let ((token (match-string 1))) + (let ((token (upcase (match-string 1)))) (goto-char (match-end 0)) (cond ((string= token "MESSAGES") (imap-mailbox-put 'messages (read (current-buffer)) mailbox)) |