Commit 53b0c109 authored by Richard M. Stallman's avatar Richard M. Stallman

(sendmail-send-it): Don't insert Sender.

parent dff815ef
......@@ -378,20 +378,21 @@ the user from the mailer."
(goto-char (point-min))
(if (re-search-forward "^FCC:" delimline t)
(mail-do-fcc delimline))
;; If the From is different than current user, insert Sender.
(goto-char (point-min))
(and (re-search-forward "^From:" delimline t)
(progn
(require 'mail-utils)
(not (string-equal
(mail-strip-quoted-names
(save-restriction
(narrow-to-region (point-min) delimline)
(mail-fetch-field "From")))
(user-login-name))))
(progn
(forward-line 1)
(insert "Sender: " (user-login-name) "\n")))
;;; Apparently this causes a duplicate Sender.
;;; ;; If the From is different than current user, insert Sender.
;;; (goto-char (point-min))
;;; (and (re-search-forward "^From:" delimline t)
;;; (progn
;;; (require 'mail-utils)
;;; (not (string-equal
;;; (mail-strip-quoted-names
;;; (save-restriction
;;; (narrow-to-region (point-min) delimline)
;;; (mail-fetch-field "From")))
;;; (user-login-name))))
;;; (progn
;;; (forward-line 1)
;;; (insert "Sender: " (user-login-name) "\n")))
;; "S:" is an abbreviation for "Subject:".
(goto-char (point-min))
(if (re-search-forward "^S:" delimline t)
......
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