# HG changeset patch # User Richard M. Stallman # Date 1006710227 0 # Node ID 608d7b92d2897086bba8a6fda9cd84a097ab7362 # Parent 9c8e073f49db632b131e817b24efbc4f2c191b5e Simplify previous change. diff -r 9c8e073f49db -r 608d7b92d289 lisp/mail/smtpmail.el --- a/lisp/mail/smtpmail.el Sun Nov 25 17:43:04 2001 +0000 +++ b/lisp/mail/smtpmail.el Sun Nov 25 17:43:47 2001 +0000 @@ -873,9 +873,7 @@ (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