diff options
| -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)) |