diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2001-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 | |||
| 1 | 2001-11-25 Pavel Jan,Bm(Bk <Pavel@Janik.cz> | 6 | 2001-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 |