procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-convert-to-babyl-format):

Browse source 
Make search for message delimiter case-sensitive.
This commit is contained in:
Richard M. Stallman 2002-11-29 15:11:13 +00:00
parent 120de5bda3
commit a4e19cc2cb
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/mail/rmail.el
View file

@ -1742,13 +1742,14 @@ It returns t if it got any new messages."
(goto-char (+ header-end size))
(message "Ignoring invalid Content-Length field")
(sit-for 1 0 t)))
(if (re-search-forward
(concat "^[\^_]?\\("
rmail-unix-mail-delimiter
"\\|"
rmail-mmdf-delim1 "\\|"
"^BABYL OPTIONS:\\|"
"\^L\n[01],\\)") nil t)
(if (let ((case-fold-search nil))
(re-search-forward
(concat "^[\^_]?\\("
rmail-unix-mail-delimiter
"\\|"
rmail-mmdf-delim1 "\\|"
"^BABYL OPTIONS:\\|"
"\^L\n[01],\\)") nil t))
(goto-char (match-beginning 1))
(goto-char (point-max)))
(setq count (1+ count))