mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(rmail-message-regexp-p): Yet another fix.

Browse Source
This commit is contained in:
Gerd Moellmann 2001-04-30 12:57:34 +00:00
parent e2f599e95b
commit 50df7214b3
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2001-04-30 Gerd Moellmann <gerd@gnu.org>
* mail/rmail.el (rmail-message-regexp-p): Yet another fix.
2001-04-29 Eli Zaretskii <eliz@is.elta.co.il>
* term/tty-colors.el (tty-color-define, tty-color-off-gray-diag)

13
lisp/mail/rmail.el
View File

@ -2507,15 +2507,18 @@ or forward if N is negative."
(forward-line 2)
;; If there's a Summary-line in the (otherwise empty)
;; header, we didn't yet get past the EOOH line.
(if (looking-at "^\\*\\*\\* EOOH \\*\\*\\*\n")
(forward-line 1))
(when (looking-at "^\\*\\*\\* EOOH \\*\\*\\*\n")
(forward-line 1))
(setq beg (point))
(narrow-to-region (point) end))
(rfc822-goto-eoh)
(progn
(rfc822-goto-eoh)
(setq end (point)))
(setq beg (point))
(search-forward "\n*** EOOH ***\n" end t))
(search-forward "\n*** EOOH ***\n" end t)
(setq end (1+ (match-beginning 0)))))
(goto-char beg)
(re-search-forward regexp end t)))))
(re-search-forward regexp end t))))
(defvar rmail-search-last-regexp nil)
(defun rmail-search (regexp &optional n)