diff options
| author | Eli Zaretskii | 2005-05-21 11:48:00 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2005-05-21 11:48:00 +0000 |
| commit | 6f0de615c1fb07e988e88b405b7d60f7cf7edf93 (patch) | |
| tree | f71362061ea38375ffa625e5eab12aaf0bc345f5 | |
| parent | 6e50f7e0d1258a2dd60fb5e1a60a71cf016b6c96 (diff) | |
| download | emacs-6f0de615c1fb07e988e88b405b7d60f7cf7edf93.tar.gz emacs-6f0de615c1fb07e988e88b405b7d60f7cf7edf93.zip | |
(mail-send): Use [[:space:]] instead of a literal blank
when splitting new-header-values.
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index d0b6d84741e..a6d24f58195 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -810,7 +810,8 @@ the user from the mailer." | |||
| 810 | '(lambda (e) | 810 | '(lambda (e) |
| 811 | (unless (member e l) | 811 | (unless (member e l) |
| 812 | (push e l))) | 812 | (push e l))) |
| 813 | (split-string new-header-values ", +" t)) | 813 | (split-string new-header-values |
| 814 | ",[[:space:]]+" t)) | ||
| 814 | (mapconcat 'identity l ", ")) | 815 | (mapconcat 'identity l ", ")) |
| 815 | "\n")) | 816 | "\n")) |
| 816 | ;; Add Mail-Reply-To if none yet | 817 | ;; Add Mail-Reply-To if none yet |