(imap-mailbox-status): Upcase STATUS commands.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44af7b0..7b716f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * imap.el (imap-mailbox-status): Upcase STATUS commands. 
+
        * gnus-sum.el (gnus-remove-odd-characters): New function.
        (gnus-nov-parse-line): Use it.
 

diff --git a/lisp/imap.el b/lisp/imap.el
index 61ee5c0..2763b42 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1341,10 +1341,11 @@ returned, if ITEMS is a symbol only its value is returned."
           (imap-send-command-wait (list "STATUS \""
                                         (imap-utf7-encode mailbox)
                                         "\" "
-                                        (format "%s"
-                                                (if (listp items)
-                                                    items
-                                                  (list items))))))
+                                        (upcase
+                                         (format "%s"
+                                                 (if (listp items)
+                                                     items
+                                                   (list items)))))))
       (if (listp items)
          (mapcar (lambda (item)
                    (imap-mailbox-get item mailbox))