Mercurial > emacs
comparison lisp/mail/sendmail.el @ 23001:c42d28898577
(mail-setup): After using `fill-region-as-paragraph'
on a new address field, ensure that it ends with a newline.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 12 Aug 1998 07:31:00 +0000 |
parents | 7be798773f85 |
children | d4ab4affb26d |
comparison
equal
deleted
inserted
replaced
23000:1509bf9a54df | 23001:c42d28898577 |
---|---|
883 nil errbuf nil "-oi") | 883 nil errbuf nil "-oi") |
884 ;; Always specify who from, | 884 ;; Always specify who from, |
885 ;; since some systems have broken sendmails. | 885 ;; since some systems have broken sendmails. |
886 ;; unless user has said no. | 886 ;; unless user has said no. |
887 (if (memq mail-from-style '(angles parens nil)) | 887 (if (memq mail-from-style '(angles parens nil)) |
888 (list "-f" (user-login-name))) | 888 (list "-f" user-mail-address)) |
889 ;;; ;; Don't say "from root" if running under su. | 889 ;;; ;; Don't say "from root" if running under su. |
890 ;;; (and (equal (user-real-login-name) "root") | 890 ;;; (and (equal (user-real-login-name) "root") |
891 ;;; (list "-f" (user-login-name))) | 891 ;;; (list "-f" (user-login-name))) |
892 (and mail-alias-file | 892 (and mail-alias-file |
893 (list (concat "-oA" mail-alias-file))) | 893 (list (concat "-oA" mail-alias-file))) |