From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 14 Feb 2009 02:52:17 +0000 (+0000)
Subject: (rmail-convert-file-maybe): Turn off case-fold-search.
X-Git-Tag: emacs-pretest-23.0.91~231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7eb0ba1f8963c6c24417b9ddceeab867210c73f;p=emacs.git

(rmail-convert-file-maybe): Turn off case-fold-search.
(rmail-add-mbox-headers): Likewise.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95f8c59e01b..101ab014e25 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-14  Richard M Stallman  <rms@gnu.org>
+
+	* mail/rmail.el (rmail-convert-file-maybe): Turn off case-fold-search.
+	(rmail-add-mbox-headers): Likewise.
+
 2009-02-13  Eli Zaretskii  <eliz@gnu.org>
 
 	* files.el (load-library): Doc fix.
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7890eb1b9ed..4c234cab0d3 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -891,21 +891,22 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
   (widen)
   (goto-char (point-min))
   ;; Detect previous Babyl format files.
-  (cond ((looking-at "BABYL OPTIONS:")
-	 ;; The file is Babyl version 5.  Use unrmail to convert
-	 ;; it.
-	 (rmail-convert-babyl-to-mbox))
-	((looking-at "Version: 5\n")
-	 ;; Losing babyl file made by old version of Rmail.  Fix the
-	 ;; babyl file header and use unrmail to convert to mbox
-	 ;; format.
-	 (let ((buffer-read-only nil))
-	   (insert "BABYL OPTIONS: -*- rmail -*-\n")
-	   (rmail-convert-babyl-to-mbox)))
-	((equal (point-min) (point-max))
-	 (message "Empty Rmail file."))
-	((looking-at "From "))
-	(t (error "Invalid mbox file"))))
+  (let ((case-fold-search nil))
+    (cond ((looking-at "BABYL OPTIONS:")
+	   ;; The file is Babyl version 5.  Use unrmail to convert
+	   ;; it.
+	   (rmail-convert-babyl-to-mbox))
+	  ((looking-at "Version: 5\n")
+	   ;; Losing babyl file made by old version of Rmail.  Fix the
+	   ;; babyl file header and use unrmail to convert to mbox
+	   ;; format.
+	   (let ((buffer-read-only nil))
+	     (insert "BABYL OPTIONS: -*- rmail -*-\n")
+	     (rmail-convert-babyl-to-mbox)))
+	  ((equal (point-min) (point-max))
+	   (message "Empty Rmail file."))
+	  ((looking-at "From "))
+	  (t (error "Invalid mbox file")))))
 
 (defun rmail-error-bad-format (&optional msgnum)
   "Report that the buffer is not in the mbox file format.
@@ -1973,6 +1974,7 @@ new messages.  Return the number of new messages."
       (let ((count 0)
 	    (start (point))
 	    (value "------U-")
+	    (case-fold-search nil)
 	    limit)
 	;; Detect an empty inbox file.
 	(unless (= start (point-max))