Mercurial > hg > xemacs

comparison mail-from-delphix.el @ 13:6d36ba671237

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author ht
date Sat, 15 Mar 2008 09:21:06 +0000
parents 78b62941da11
children
comparison
equal deleted inserted replaced
12:b53b1f1f2d4a 13:6d36ba671237
1 ;;; Edit and load to send mail as from ... 1 ;;; Edit and load to send mail as from ...
2 (setq mail-append-host "delphix.co.uk") 2 (setq mail-append-host "delphix.co.uk")
3 (setq user-full-name "Henry S. Thompson") 3 (setq user-full-name "Henry S. Thompson")
4 (setq user-mail-address "ht@delphix.co.uk") 4 (setq user-mail-address "ht@delphix.co.uk")
5 (setq mail-host-address "delphix.co.uk") 5 (setq mail-host-address "delphix.co.uk")
6 (setq mail-signature-file "~/.sig.delphix") 6 (setq mail-signature-file "/home/ht/.sig.delphix")
7 (defun system-name () "gregory") 7 (defun system-name () "gregory")
8 (load "gnus-init" nil t)
8 9
9 ;; sending mail on the road 10 ;; sending mail on the road
10 (setq send-mail-function 'smtpmail-send-it) 11 (setq send-mail-function 'smtpmail-send-it)
11 (setq message-send-mail-function 'smtpmail-send-it) 12 (setq message-send-mail-function 'smtpmail-send-it)
12 (setq smtpmail-default-smtp-server "localhost") 13 (setq smtpmail-default-smtp-server "localhost")