873 |
(mail-strip-quoted-names (buffer-substring this-line this-line-end)))) |
(mail-strip-quoted-names (buffer-substring this-line this-line-end)))) |
874 |
) |
) |
875 |
(erase-buffer) |
(erase-buffer) |
876 |
(insert-string " ") |
(insert " ") |
877 |
(insert-string simple-address-list) |
(insert simple-address-list) |
878 |
(insert-string "\n") |
(insert "\n") |
879 |
(subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank |
(subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank |
880 |
(subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank |
(subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank |
881 |
(subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank |
(subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank |