diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:09:50 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:09:50 +0000 |
| commit | bbffcd4afb5e88234724fd2827ac05dc605aa4ba (patch) | |
| tree | 8a55e065fcb1661f389ce8dd313a109bb27303f1 | |
| parent | 8cb5478b38301f24143831761fdbfb29d6471562 (diff) | |
| download | emacs-bbffcd4afb5e88234724fd2827ac05dc605aa4ba.tar.gz | |
(smtpmail-deduce-address-list): Handle RESENT-* fields.
| -rw-r--r-- | lisp/mail/smtpmail.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 16123aede2b..e6c07670449 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -447,7 +447,8 @@ don't define this value.") ((case-fold-search t) (simple-address-list "") this-line - this-line-end) + this-line-end + addr-regexp) (unwind-protect (save-excursion @@ -455,7 +456,13 @@ don't define this value.") (set-buffer smtpmail-address-buffer) (erase-buffer) (insert-buffer-substring smtpmail-text-buffer header-start header-end) (goto-char (point-min)) - (while (re-search-forward "^\\(TO:\\|CC:\\|BCC:\\)" header-end t) + ;; RESENT-* fields should stop processing of regular fields. + (save-excursion + (if (re-search-forward "^RESENT-TO:" header-end t) + (setq addr-regexp "^\\(RESENT-TO:\\|RESENT-CC:\\|RESENT-BCC:\\)") + (setq addr-regexp "^\\(TO:\\|CC:\\|BCC:\\)"))) + + (while (re-search-forward addr-regexp header-end t) (replace-match "") (setq this-line (match-beginning 0)) (forward-line 1) |