# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752359177 0
# Node ID 435032be7b12442d5f8450cd37400b593759b521
# Parent  74ae77c7d742ff8339bf6dbd48e9e13f82408f42
(sendmail-send-it): Don't insert Sender.

diff -r 74ae77c7d742 -r 435032be7b12 lisp/mail/sendmail.el
--- 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)