From: Pavel Janík <Pavel@Janik.cz>
Date: Sun, 25 Nov 2001 15:11:22 +0000 (+0000)
Subject: (smtpmail-deduce-address-list): Don't use insert-string.
X-Git-Tag: ttn-vms-21-2-B4~18189
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fefed09d4223b272d3aa061dbdf6d7a0b2bb6047;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3986d28f78e..25b5fd8b761 100644
--- 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,Bm(Bk).
+
 2001-11-25  Pavel Jan,Bm(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 a4eed65c54e..b696c327fd8 100644
--- 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