;;; Edit and load to send mail as from ...
(setq mail-append-host "home.hst.name")
(setq user-full-name "Henry S. Thompson")
(setq user-mail-address "ht@home.hst.name")
(setq mail-host-address "home.hst.name")
(setq mail-signature-file "/home/ht/.sig.pers")
(setq mail-signature t)
(setq message-signature-file "/home/ht/.sig.pers")
(setq message-signature t)
(defun system-name () "home.hst.name")

;; sending mail on the road
;(setq send-mail-function 'smtpmail-send-it)
;(setq message-send-mail-function 'smtpmail-send-it)
;(setq smtpmail-default-smtp-server "localhost")
;(setq smtpmail-smtp-service "smtp")
;(setq smtpmail-local-domain "home.hst.name")
(setq smtpmail-debug-info t)
(load "smtpmail" nil t)
(setq smtpmail-code-conv-from nil)

(provide 'mail-from-m)