aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/mail/smtpmail.el6
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 @@
12001-11-25 Simon Josefsson <jas@extundo.com>
2
3 * mail/smtpmail.el (smtpmail-deduce-address-list): Don't use
4 insert-string. Suggested by Pavel@Janik.cz (Pavel Jan,Bm(Bk).
5
12001-11-25 Pavel Jan,Bm(Bk <Pavel@Janik.cz> 62001-11-25 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
2 7
3 * play/snake.el (snake-mode): Remove make-local-hook. 8 * 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'.")
873 (mail-strip-quoted-names (buffer-substring this-line this-line-end)))) 873 (mail-strip-quoted-names (buffer-substring this-line this-line-end))))
874 ) 874 )
875 (erase-buffer) 875 (erase-buffer)
876 (insert-string " ") 876 (insert " ")
877 (insert-string simple-address-list) 877 (insert simple-address-list)
878 (insert-string "\n") 878 (insert "\n")
879 (subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank 879 (subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank
880 (subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank 880 (subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank
881 (subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank 881 (subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank