mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
(rmail-add-mbox-headers): Likewise.
This commit is contained in:
Richard M. Stallman 2009-02-14 02:52:17 +00:00
parent c9ae6ddd1e
commit c7eb0ba1f8
2 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

32
lisp/mail/rmail.el
View File

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