comparison lisp/mail/sendmail.el @ 38285:b7db38e7d28d

(sendmail-send-it): Look at `sendmail-program' in caller buffer.

38284:9fd6579b27ec

		     buffer-file-coding-system))
	selected-coding
;;;	resend-to-addresses
	delimline
	fcc-was-found
	(mailbuf (current-buffer)))
    (unwind-protect
	(save-excursion
	  (set-buffer tembuf)
	  (erase-buffer)
	  (insert-buffer-substring mailbuf)

		     (coding-system-for-write
		      (or selected-coding
			  (select-message-coding-system)))
		     (args 
		      (append (list (point-min) (point-max)
				    (if (boundp 'sendmail-program)
					sendmail-program
				      "/usr/lib/sendmail")
				    nil errbuf nil "-oi")
			      (and mail-specify-envelope-from 
				   (list "-f" user-mail-address))
;;; 			      ;; Don't say "from root" if running under su.
;;; 			      (and (equal (user-real-login-name) "root")
;;; 				   (list "-f" (user-login-name)))
			      (and mail-alias-file
				   (list (concat "-oA" mail-alias-file)))

38285:b7db38e7d28d

		     buffer-file-coding-system))
	selected-coding
;;;	resend-to-addresses
	delimline
	fcc-was-found
	(mailbuf (current-buffer))
	(program (if (boundp 'sendmail-program)
		     sendmail-program
		   "/usr/lib/sendmail"))
	(originator user-mail-address))
    (unwind-protect
	(save-excursion
	  (set-buffer tembuf)
	  (erase-buffer)
	  (insert-buffer-substring mailbuf)

		     (coding-system-for-write
		      (or selected-coding
			  (select-message-coding-system)))
		     (args 
		      (append (list (point-min) (point-max)
				    program
				    nil errbuf nil "-oi")
			      (and mail-specify-envelope-from 
				   (list "-f" originator))
;;; 			      ;; Don't say "from root" if running under su.
;;; 			      (and (equal (user-real-login-name) "root")
;;; 				   (list "-f" (user-login-name)))
			      (and mail-alias-file
				   (list (concat "-oA" mail-alias-file)))