From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 3 Nov 1993 20:39:37 +0000 (+0000)
Subject: (sendmail-send-it): Don't insert Sender.
X-Git-Tag: emacs-19.34~10941
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53b0c109c751e4ddaf87f413a202791537cb00e6;p=emacs.git

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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 71ef8c9ba76..ddb671bf641 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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)