From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Nov 2002 15:11:13 +0000 (+0000)
Subject: (rmail-convert-to-babyl-format):
X-Git-Tag: ttn-vms-21-2-B4~12233
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4e19cc2cbae505640275a61be78e01552bbd8a8;p=emacs.git

(rmail-convert-to-babyl-format):
Make search for message delimiter case-sensitive.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 46650be91ef..d07305f2b8c 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1742,13 +1742,14 @@ It returns t if it got any new messages."
 			  (goto-char (+ header-end size))
 			(message "Ignoring invalid Content-Length field")
 			(sit-for 1 0 t)))
-		 (if (re-search-forward
-		      (concat "^[\^_]?\\("
-			      rmail-unix-mail-delimiter
-			      "\\|"
-			      rmail-mmdf-delim1 "\\|"
-			      "^BABYL OPTIONS:\\|"
-			      "\^L\n[01],\\)") nil t)
+		 (if (let ((case-fold-search nil))
+		       (re-search-forward
+			(concat "^[\^_]?\\("
+				rmail-unix-mail-delimiter
+				"\\|"
+				rmail-mmdf-delim1 "\\|"
+				"^BABYL OPTIONS:\\|"
+				"\^L\n[01],\\)") nil t))
 		     (goto-char (match-beginning 1))
 		   (goto-char (point-max)))
 		 (setq count (1+ count))