Mercurial > emacs
changeset 48584:033e93594b23
(rmail-convert-to-babyl-format):
Make search for message delimiter case-sensitive.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Nov 2002 15:11:13 +0000 |
| parents | 150e7a54d970 |
| children | be738e9c1a09 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Nov 29 15:09:37 2002 +0000 +++ b/lisp/mail/rmail.el Fri Nov 29 15:11:13 2002 +0000 @@ -1742,13 +1742,14 @@ (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))