# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1038582673 0
# Node ID 033e93594b23536a26ed0f1666064a5c0f013bb1
# Parent  150e7a54d97084c4aebb6af6979d011e096c4913
(rmail-convert-to-babyl-format):
Make search for message delimiter case-sensitive.

diff -r 150e7a54d970 -r 033e93594b23 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Nov 29 15:09:37 2002 +0000
+++ b/lisp/mail/rmail.el	Fri Nov 29 15:11:13 2002 +0000
@@ -1742,13 +1742,14 @@
 			  (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))