Mercurial > hg > xemacs

annotate mail-from-m.el @ 31:129123962e51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trying to merge lib/emacs and xemacs
author Henry S Thompson <ht@inf.ed.ac.uk>
date Sat, 07 Oct 2023 12:43:14 +0100
parents 6097ab2da4ce
children cb9b76219c55
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
22
6097ab2da4ce for new maritain
ht
parents:
diff changeset
1 ;;; Edit and load to send mail as from ...
6097ab2da4ce for new maritain
ht
parents:
diff changeset
2 (setq mail-append-host "home.hst.name")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
3 (setq user-full-name "Henry S. Thompson")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
4 (setq user-mail-address "ht@home.hst.name")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
5 (setq mail-host-address "home.hst.name")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
6 (setq mail-signature-file "/home/ht/.sig.pers")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
7 (setq mail-signature t)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
8 (setq message-signature-file "/home/ht/.sig.pers")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
9 (setq message-signature t)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
10 (defun system-name () "home.hst.name")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
11
6097ab2da4ce for new maritain
ht
parents:
diff changeset
12 ;; sending mail on the road
6097ab2da4ce for new maritain
ht
parents:
diff changeset
13 ;(setq send-mail-function 'smtpmail-send-it)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
14 ;(setq message-send-mail-function 'smtpmail-send-it)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
15 ;(setq smtpmail-default-smtp-server "localhost")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
16 ;(setq smtpmail-smtp-service "smtp")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
17 ;(setq smtpmail-local-domain "home.hst.name")
6097ab2da4ce for new maritain
ht
parents:
diff changeset
18 (setq smtpmail-debug-info t)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
19 (load "smtpmail" nil t)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
20 (setq smtpmail-code-conv-from nil)
6097ab2da4ce for new maritain
ht
parents:
diff changeset
21
6097ab2da4ce for new maritain
ht
parents:
diff changeset
22 (provide 'mail-from-m)