diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-02-12 19:44:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-02-12 19:44:56 +0000 |
| commit | 97bd30eb51c42d84ac01fdfa0a0a1fc412242228 (patch) | |
| tree | 8470e6a204c7ed20d89256d91753686d8ebf5070 /lisp/mail/mail-utils.el | |
| parent | 090f7baafbc5ef176fb9658b838fd7c9835c91a9 (diff) | |
| download | emacs-97bd30eb51c42d84ac01fdfa0a0a1fc412242228.tar.gz | |
(rmail-dont-reply-to): Remove leading commas as well.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |