From fefed09d4223b272d3aa061dbdf6d7a0b2bb6047 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sun, 25 Nov 2001 15:11:22 +0000 Subject: [PATCH] (smtpmail-deduce-address-list): Don't use insert-string. --- lisp/ChangeLog | 5 +++++ lisp/mail/smtpmail.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * 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 * 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 -- 2.39.5