diff options
| author | Richard M. Stallman | 1993-11-03 20:39:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-03 20:39:37 +0000 |
| commit | 53b0c109c751e4ddaf87f413a202791537cb00e6 (patch) | |
| tree | ab45cb54d4ea7e239c81c5deb7f237c350ab27e9 | |
| parent | dff815ef33d060ba06738097dd31cf0ad8b4f786 (diff) | |
| download | emacs-53b0c109c751e4ddaf87f413a202791537cb00e6.tar.gz emacs-53b0c109c751e4ddaf87f413a202791537cb00e6.zip | |
(sendmail-send-it): Don't insert Sender.
| -rw-r--r-- | lisp/mail/sendmail.el | 29 |
1 files changed, 15 insertions, 14 deletions
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." | |||
| 378 | (goto-char (point-min)) | 378 | (goto-char (point-min)) |
| 379 | (if (re-search-forward "^FCC:" delimline t) | 379 | (if (re-search-forward "^FCC:" delimline t) |
| 380 | (mail-do-fcc delimline)) | 380 | (mail-do-fcc delimline)) |
| 381 | ;; If the From is different than current user, insert Sender. | 381 | ;;; Apparently this causes a duplicate Sender. |
| 382 | (goto-char (point-min)) | 382 | ;;; ;; If the From is different than current user, insert Sender. |
| 383 | (and (re-search-forward "^From:" delimline t) | 383 | ;;; (goto-char (point-min)) |
| 384 | (progn | 384 | ;;; (and (re-search-forward "^From:" delimline t) |
| 385 | (require 'mail-utils) | 385 | ;;; (progn |
| 386 | (not (string-equal | 386 | ;;; (require 'mail-utils) |
| 387 | (mail-strip-quoted-names | 387 | ;;; (not (string-equal |
| 388 | (save-restriction | 388 | ;;; (mail-strip-quoted-names |
| 389 | (narrow-to-region (point-min) delimline) | 389 | ;;; (save-restriction |
| 390 | (mail-fetch-field "From"))) | 390 | ;;; (narrow-to-region (point-min) delimline) |
| 391 | (user-login-name)))) | 391 | ;;; (mail-fetch-field "From"))) |
| 392 | (progn | 392 | ;;; (user-login-name)))) |
| 393 | (forward-line 1) | 393 | ;;; (progn |
| 394 | (insert "Sender: " (user-login-name) "\n"))) | 394 | ;;; (forward-line 1) |
| 395 | ;;; (insert "Sender: " (user-login-name) "\n"))) | ||
| 395 | ;; "S:" is an abbreviation for "Subject:". | 396 | ;; "S:" is an abbreviation for "Subject:". |
| 396 | (goto-char (point-min)) | 397 | (goto-char (point-min)) |
| 397 | (if (re-search-forward "^S:" delimline t) | 398 | (if (re-search-forward "^S:" delimline t) |