mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases 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