mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(sendmail-send-it): Added support for Resent-CC and

Browse Source 
Resent-BCC headers.
This commit is contained in:
Karl Heuer 1995-12-13 02:19:05 +00:00
parent fc67d5be86
commit 7e34da22f0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mail/sendmail.el
View File

@ -493,7 +493,7 @@ the user from the mailer."
(replace-match "\n"))
(let ((case-fold-search t))
(goto-char (point-min))
(while (re-search-forward "^Resent-to:" delimline t)
(while (re-search-forward "^Resent-\\(to\\|cc\\|bcc\\):" delimline t)
(setq resend-to-addresses
(save-restriction
(narrow-to-region (point)
@ -501,7 +501,12 @@ the user from the mailer."
(end-of-line)
(point)))
(append (mail-parse-comma-list)
resend-to-addresses))))
resend-to-addresses)))
;; Delete Resent-BCC ourselves
(if (save-excursion (beginning-of-line)
(looking-at "resent-bcc"))
(delete-region (save-excursion (beginning-of-line) (point))
(save-excursion (end-of-line) (1+ (point))))))
;;; Apparently this causes a duplicate Sender.
;;; ;; If the From is different than current user, insert Sender.
;;; (goto-char (point-min))