Mercurial > emacs
changeset 4910:435032be7b12
(sendmail-send-it): Don't insert Sender.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Nov 1993 20:39:37 +0000 |
| parents | 74ae77c7d742 |
| children | bc4636cdaf01 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 15 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Wed Nov 03 20:31:49 1993 +0000 +++ b/lisp/mail/sendmail.el Wed Nov 03 20:39:37 1993 +0000 @@ -378,20 +378,21 @@ (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)