# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816720304 0
# Node ID bd48b68249cf62a130ac6be9b4bf7a7f85cfca70
# Parent  a2554930ea38c6a94b805c7559cbf92ff54586ee
(rmail-dont-reply-to): Preserve whitespace after comma.

diff -r a2554930ea38 -r bd48b68249cf lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Sat Nov 18 18:24:42 1995 +0000
+++ b/lisp/mail/mail-utils.el	Sat Nov 18 18:45:04 1995 +0000
@@ -147,7 +147,7 @@
 	(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)