* lisp/imap.el (imap-body-lines): Check Content-Type: of the

article case insensitively.

diff --git a/lisp/imap.el b/lisp/imap.el
index 44707e5..3dca3d2 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1269,10 +1269,10 @@ on failure."
   "Return number of lines in article by looking at the mime bodystructure BODY."
   (if (listp body)
       (if (stringp (car body))
-         (cond ((and (string= (car body) "TEXT")
+         (cond ((and (string= (upcase (car body)) "TEXT")
                      (numberp (nth 7 body)))
                 (nth 7 body))
-               ((and (string= (car body) "MESSAGE")
+               ((and (string= (upcase (car body)) "MESSAGE")
                      (numberp (nth 9 body)))
                 (nth 9 body))
                (t 0))