(smtpmail-deduce-address-list): Don't use insert-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3986d28f78e6541b012e2dbab6fdd9d3aa65737c..25b5fd8b7614aeee0a06dec87b81b8e4e94d6657 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-25  Simon Josefsson  <jas@extundo.com>
+
+       * mail/smtpmail.el (smtpmail-deduce-address-list): Don't use
+       insert-string.  Suggested by Pavel@Janik.cz (Pavel Jan\e,Bm\e(Bk).
+
 2001-11-25  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * play/snake.el (snake-mode): Remove make-local-hook.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index a4eed65c54ef72fd8d46df2a0118a77f07a7bfa9..b696c327fd8bd45c83a09c1e62ecc6b1ea9fd0aa 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -873,9 +873,9 @@ This is relative to `smtpmail-queue-dir'.")
                          (mail-strip-quoted-names (buffer-substring this-line this-line-end))))
            )
          (erase-buffer)
-         (insert-string " ")
-         (insert-string simple-address-list)
-         (insert-string "\n")
+         (insert " ")
+         (insert simple-address-list)
+         (insert "\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