(rmail-dont-reply-to): Preserve whitespace after comma.

1995-11-18 18:45:04 +00:00
parent 83ff5106cf
commit 6540a6f85b
1 changed files with 1 additions and 1 deletions
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -147,7 +147,7 @@ Usenet paths ending in an element that matches are removed also."
 	(case-fold-search t)
 	pos epos)
    (while (setq pos (string-match match userids))
-      (if (> pos 0) (setq pos (1+ pos)))
+      (if (> pos 0) (setq pos (match-beginning 2)))
      (setq epos
 	    (if (string-match "[ \t\n,]+" userids (match-end 0))
 		(match-end 0)