diff options
| author | Gerd Moellmann | 2000-02-12 19:44:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-02-12 19:44:56 +0000 |
| commit | 97bd30eb51c42d84ac01fdfa0a0a1fc412242228 (patch) | |
| tree | 8470e6a204c7ed20d89256d91753686d8ebf5070 | |
| parent | 090f7baafbc5ef176fb9658b838fd7c9835c91a9 (diff) | |
| download | emacs-97bd30eb51c42d84ac01fdfa0a0a1fc412242228.tar.gz emacs-97bd30eb51c42d84ac01fdfa0a0a1fc412242228.zip | |
(rmail-dont-reply-to): Remove leading commas as well.
| -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." | |||
| 247 | (if (setq pos (string-match "[ ,\t\n]*\\'" userids)) | 247 | (if (setq pos (string-match "[ ,\t\n]*\\'" userids)) |
| 248 | (setq userids (substring userids 0 pos))) | 248 | (setq userids (substring userids 0 pos))) |
| 249 | ;; remove leading spaces. they bother me. | 249 | ;; remove leading spaces. they bother me. |
| 250 | (if (string-match "\\s *" userids) | 250 | (if (string-match "\\(\\s \\|,\\)*" userids) |
| 251 | (substring userids (match-end 0)) | 251 | (substring userids (match-end 0)) |
| 252 | userids))) | 252 | userids))) |
| 253 | 253 | ||