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

[gnus] / lisp / imap.el

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))