Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(rmail-dont-reply-to): Recognize the names to delete

Browse source 
when they appear within <...>.
This commit is contained in:
Richard M. Stallman 1996-09-02 00:19:02 +00:00
parent 5212210c8f
commit ff4599fdb5
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/mail-utils.el
View file

@ -144,9 +144,11 @@ Usenet paths ending in an element that matches are removed also."
"\\>"))))
(let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*!\\|\\)\\("
rmail-dont-reply-to-names
"\\|[^\,.<]*<\\(" rmail-dont-reply-to-names "\\)"
"\\)"))
(case-fold-search t)
pos epos)
(setq foo match)
(while (setq pos (string-match match userids))
(if (> pos 0) (setq pos (match-beginning 2)))
(setq epos