diff options
| author | Richard M. Stallman | 2002-11-29 15:11:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-11-29 15:11:13 +0000 |
| commit | a4e19cc2cbae505640275a61be78e01552bbd8a8 (patch) | |
| tree | f7a6444bb19bb7e5b7ccf6bce2cfb099fdadb744 | |
| parent | 120de5bda3c3ec70cabdd91eae91ac3608226099 (diff) | |
| download | emacs-a4e19cc2cbae505640275a61be78e01552bbd8a8.tar.gz emacs-a4e19cc2cbae505640275a61be78e01552bbd8a8.zip | |
(rmail-convert-to-babyl-format):
Make search for message delimiter case-sensitive.
| -rw-r--r-- | lisp/mail/rmail.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 46650be91ef..d07305f2b8c 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1742,13 +1742,14 @@ It returns t if it got any new messages." | |||
| 1742 | (goto-char (+ header-end size)) | 1742 | (goto-char (+ header-end size)) |
| 1743 | (message "Ignoring invalid Content-Length field") | 1743 | (message "Ignoring invalid Content-Length field") |
| 1744 | (sit-for 1 0 t))) | 1744 | (sit-for 1 0 t))) |
| 1745 | (if (re-search-forward | 1745 | (if (let ((case-fold-search nil)) |
| 1746 | (concat "^[\^_]?\\(" | 1746 | (re-search-forward |
| 1747 | rmail-unix-mail-delimiter | 1747 | (concat "^[\^_]?\\(" |
| 1748 | "\\|" | 1748 | rmail-unix-mail-delimiter |
| 1749 | rmail-mmdf-delim1 "\\|" | 1749 | "\\|" |
| 1750 | "^BABYL OPTIONS:\\|" | 1750 | rmail-mmdf-delim1 "\\|" |
| 1751 | "\^L\n[01],\\)") nil t) | 1751 | "^BABYL OPTIONS:\\|" |
| 1752 | "\^L\n[01],\\)") nil t)) | ||
| 1752 | (goto-char (match-beginning 1)) | 1753 | (goto-char (match-beginning 1)) |
| 1753 | (goto-char (point-max))) | 1754 | (goto-char (point-max))) |
| 1754 | (setq count (1+ count)) | 1755 | (setq count (1+ count)) |