(rmail-convert-file-maybe): Turn off case-fold-search.

(rmail-add-mbox-headers): Likewise.

lisp/ChangeLog

+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.

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