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

when they appear within <...>.
1996-09-02 00:19:02 +00:00
parent 5212210c8f
commit ff4599fdb5
1 changed files with 2 additions and 0 deletions
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -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