Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
50df7214
Commit
50df7214
authored
Apr 30, 2001
by
Gerd Moellmann
Browse files
(rmail-message-regexp-p): Yet another fix.
parent
e2f599e9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
5 deletions
+12
-5
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/mail/rmail.el
lisp/mail/rmail.el
+8
-5
No files found.
lisp/ChangeLog
View file @
50df7214
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)
...
...
lisp/mail/rmail.el
View file @
50df7214
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment