From: ueno <ueno>
Date: Mon, 10 Apr 2000 08:39:06 +0000 (+0000)
Subject: * lisp/imap.el (imap-body-lines): Check Content-Type: of the
X-Git-Tag: t-gnus-6_14_1-17~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=521c509aa8ebd4d98b49e8d027208d873113bc88;p=elisp%2Fgnus.git-

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