[Emacs-diffs] emacs/lisp/mail rmail.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/02/14 02:51:56

Modified files:
        lisp/mail      : rmail.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.503&r2=1.504

Patches:
Index: rmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.503
retrieving revision 1.504
diff -u -b -r1.503 -r1.504
--- rmail.el    13 Feb 2009 07:46:14 -0000      1.503
+++ rmail.el    14 Feb 2009 02:51:55 -0000      1.504
@@ -891,6 +891,7 @@
   (widen)
   (goto-char (point-min))
   ;; Detect previous Babyl format files.
+  (let ((case-fold-search nil))
   (cond ((looking-at "BABYL OPTIONS:")
         ;; The file is Babyl version 5.  Use unrmail to convert
         ;; it.
@@ -905,7 +906,7 @@
        ((equal (point-min) (point-max))
         (message "Empty Rmail file."))
        ((looking-at "From "))
-       (t (error "Invalid mbox file"))))
+         (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 @@
       (let ((count 0)
            (start (point))
            (value "------U-")
+           (case-fold-search nil)
            limit)
        ;; Detect an empty inbox file.
        (unless (= start (point-max))