Commit 13f1d088 authored by Karl Heuer's avatar Karl Heuer
Browse files

(smtpmail-deduce-address-list): Handle RESENT-* fields.

parent 6bb9d4b8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment