diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-11-25 17:45:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-11-25 17:45:36 +0000 |
| commit | 92dfd10c1f4ad23aed4c36d0b6ec825f98fc8305 (patch) | |
| tree | 3c39cd0b8c906235bc2a4145c96a9a4dbc543f7b /lisp/mail/smtpmail.el | |
| parent | 0baffc68914cc886f3307c61e5a3e500c7804468 (diff) | |
| download | emacs-92dfd10c1f4ad23aed4c36d0b6ec825f98fc8305.tar.gz emacs-92dfd10c1f4ad23aed4c36d0b6ec825f98fc8305.tar.bz2 emacs-92dfd10c1f4ad23aed4c36d0b6ec825f98fc8305.zip | |
Simplify previous change.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index b696c327fd8..83ffa5d44bc 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -873,9 +873,7 @@ This is relative to `smtpmail-queue-dir'.") (mail-strip-quoted-names (buffer-substring this-line this-line-end)))) ) (erase-buffer) - (insert " ") - (insert simple-address-list) - (insert "\n") + (insert " " simple-address-list "\n") (subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank (subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank (subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank |