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 " ") |
(insert " " simple-address-list "\n") |
|
(insert simple-address-list) |
|
|
(insert "\n") |
|
877 |
(subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank |
(subst-char-in-region (point-min) (point-max) 10 ? t);; newline --> blank |
878 |
(subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank |
(subst-char-in-region (point-min) (point-max) ?, ? t);; comma --> blank |
879 |
(subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank |
(subst-char-in-region (point-min) (point-max) 9 ? t);; tab --> blank |