changeset 27682:fe108abb04e5

(rmail-dont-reply-to): Remove leading commas as well.
author Gerd Moellmann <gerd@gnu.org>
date Sat, 12 Feb 2000 19:44:56 +0000
parents 2e811e86c10b
children 9ccf5aad8bcf
files lisp/mail/mail-utils.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))