Mercurial > emacs
diff lisp/net/imap.el @ 87097:781256628613
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-941
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 06 Dec 2007 00:21:00 +0000 |
| parents | be7be23ea4b9 |
| children | b37f01064ecf |
line wrap: on
line diff
--- a/lisp/net/imap.el Thu Dec 06 00:17:56 2007 +0000 +++ b/lisp/net/imap.el Thu Dec 06 00:21:00 2007 +0000 @@ -1533,10 +1533,11 @@ (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 @@ (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))