From 521c509aa8ebd4d98b49e8d027208d873113bc88 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 10 Apr 2000 08:39:06 +0000 Subject: [PATCH] * lisp/imap.el (imap-body-lines): Check Content-Type: of the article case insensitively. --- lisp/imap.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4