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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95f8c59e01b03a61649624ea7a65afda4b9da041..101ab014e25a9bbc5594e74c332dd3828f0906f1 100644 (file)
--- 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 7890eb1b9edf1740f79dd52c71179da8f15b01af..4c234cab0d30c2ac4c7bc32fbd5f73159024423a 100644 (file)
--- 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))