Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 41492:974daf066117
(smtpmail-deduce-address-list): Don't use insert-string.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sun, 25 Nov 2001 15:08:08 +0000 |
| parents | b6fd3363a398 |
| children | 608d7b92d289 |
comparison
equal
deleted
inserted
replaced
| 41491:369ebb0fe30b | 41492:974daf066117 |
|---|---|
| 871 (setq simple-address-list | 871 (setq simple-address-list |
| 872 (concat simple-address-list " " | 872 (concat simple-address-list " " |
| 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 |
| 882 | 882 |
| 883 (goto-char (point-min)) | 883 (goto-char (point-min)) |