Mercurial > hg > xemacs

annotate mail-from.el @ 62:fea10b67cc09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to work with older xemacs .deb distro
author Henry S Thompson <ht@inf.ed.ac.uk>
date Thu, 19 Sep 2024 16:00:40 +0100
parents 1675d4eff896
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
1 ;;; Edit and load to send mail as from ...
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
2 (setq mail-append-host "hst.name")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
3 (setq user-full-name "Henry S. Thompson")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
4 (setq user-mail-address "hst@hst.name")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
5 (setq mail-host-address "hst.name")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
6 (setq mail-signature-file "~/.sig.pers")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
7 (defun system-name () "francis.hst.name")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
8
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
9 ;; sending mail on the road
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
10 (setq send-mail-function 'smtpmail-send-it)
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
11 (setq message-send-mail-function 'smtpmail-send-it)
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
12 (setq smtpmail-default-smtp-server "localhost")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
13 (setq smtpmail-smtp-service "smtp")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
14 (setq smtpmail-local-domain "hst.name")
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
15 (setq smtpmail-debug-info t)
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
16 (load "smtpmail" nil t)
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
17 (setq smtpmail-code-conv-from nil)
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
18
1675d4eff896 *** empty log message ***
ht
parents:
diff changeset
19 ;; tunnel: ssh -L 25:p15135390.pureserver.info:25 markup.co.uk