mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Handle multi-line FROM.

Browse source 
* lisp/mail/rmailsum.el (rmail-header-summary): Handle multi-line FROM.
This commit is contained in:
Richard Stallman 2021-05-11 22:41:17 -04:00
parent 42596bdf4b
commit ec8aff1608
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/rmailsum.el
View file

@ -755,7 +755,11 @@ the message being processed."
(forward-char -1)
(skip-chars-backward " \t")
(point))))))
len mch lo)
len mch lo newline)
;; If there are multiple lines in FROM,
;; discard up to the last newline in it.
(while (setq newline (string-match "\n" from))
(setq from (substring from (1+ newline))))
(if (or (null from)
(string-match
(or rmail-user-mail-address-regexp