Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
53b0c109
Commit
53b0c109
authored
Nov 03, 1993
by
Richard M. Stallman
Browse files
(sendmail-send-it): Don't insert Sender.
parent
dff815ef
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
14 deletions
+15
-14
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+15
-14
No files found.
lisp/mail/sendmail.el
View file @
53b0c109
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment