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

97bd30eb · Gerd Moellmann · 090f7baa · 97bd30eb
Commit 97bd30eb authored Feb 12, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/mail/mail-utils.el lisp/mail/mail-utils.el +1 -1

No files found.
--- 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)))