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)))