[Emacs-diffs] Changes to emacs/lisp/net/imap.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/12/06 00:21:02

Index: lisp/net/imap.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/imap.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- lisp/net/imap.el    29 Nov 2007 04:29:07 -0000      1.2
+++ lisp/net/imap.el    6 Dec 2007 00:20:59 -0000       1.3
@@ -1533,10 +1533,11 @@
     (imap-send-command (list "STATUS \""
                             (imap-utf7-encode mailbox)
                             "\" "
+                            (upcase
                             (format "%s"
                                     (if (listp items)
                                         items
-                                      (list 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))