# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 950384696 0
# Node ID fe108abb04e5d61181e2d9efe0fb6c2174185426
# Parent  2e811e86c10b04e741e01babf35f6008a1e9f93c
(rmail-dont-reply-to): Remove leading commas as well.

diff -r 2e811e86c10b -r fe108abb04e5 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Sat Feb 12 19:37:56 2000 +0000
+++ b/lisp/mail/mail-utils.el	Sat Feb 12 19:44:56 2000 +0000
@@ -247,7 +247,7 @@
     (if (setq pos (string-match "[ ,\t\n]*\\'" userids))
 	(setq userids (substring userids 0 pos)))
     ;; remove leading spaces. they bother me.
-    (if (string-match "\\s *" userids)
+    (if (string-match "\\(\\s \\|,\\)*" userids)
 	(substring userids (match-end 0))
       userids)))