]> git.eshelyaron.com Git - emacs.git/commitdiff
(sendmail-send-it): Don't insert Sender.
authorRichard M. Stallman <rms@gnu.org>
Wed, 3 Nov 1993 20:39:37 +0000 (20:39 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 3 Nov 1993 20:39:37 +0000 (20:39 +0000)
lisp/mail/sendmail.el

index 71ef8c9ba767c5a838ad3123180307373e03893c..ddb671bf641ca40749279d50092d8dcf0c6f9c72 100644 (file)
@@ -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)