(rmail-dont-reply-to): Remove leading commas as well.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 870f4ba10012eeefe6151755846864d9a39db021..8af7e0a0f32ce2495790a24995c1e4f0a4217dd6 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -247,7 +247,7 @@ Usenet paths ending in an element that matches are removed also."
     (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)))