Mercurial > hg > xemacs

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
1 ;;; Edit and load to send mail as from ...
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
2 (setq mail-append-host "delphix.co.uk")
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
3 (setq user-full-name "Henry S. Thompson")
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
4 (setq user-mail-address "ht@delphix.co.uk")
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
5 (setq mail-host-address "delphix.co.uk")
13
6d36ba671237 *** empty log message ***
ht
parents: 9
diff changeset
6 (setq mail-signature-file "/home/ht/.sig.delphix")
9
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
7 (defun system-name () "gregory")
13
6d36ba671237 *** empty log message ***
ht
parents: 9
diff changeset
8 (load "gnus-init" nil t)
9
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
9
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
10 ;; sending mail on the road
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
11 (setq send-mail-function 'smtpmail-send-it)
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
12 (setq message-send-mail-function 'smtpmail-send-it)
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
13 (setq smtpmail-default-smtp-server "localhost")
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
14 (setq smtpmail-smtp-service "smtp")
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
15 (setq smtpmail-local-domain "delphix.co.uk")
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
16 (setq smtpmail-debug-info t)
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
17 (load "smtpmail" nil t)
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
18 (setq smtpmail-code-conv-from nil)
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
19
78b62941da11 *** empty log message ***
ht
parents:
diff changeset
20 ;; tunnel: ssh -L 25:p15135390.pureserver.info:25 markup.co.uk