From 97bd30eb51c42d84ac01fdfa0a0a1fc412242228 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 12 Feb 2000 19:44:56 +0000 Subject: [PATCH] (rmail-dont-reply-to): Remove leading commas as well. --- lisp/mail/mail-utils.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 870f4ba1001..8af7e0a0f32 100644 --- 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))) -- 2.39.5