Mercurial > hg > xemacs

comparison mail-from-m.el @ 70:ef61b0f32027

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Henry Thompson <ht@markup.co.uk>
date Mon, 09 Jun 2025 13:21:36 +0100
parents c343c57a93e8
children
comparison
equal deleted inserted replaced
69:d43503e9e431 70:ef61b0f32027
1 ;;; Load to read and send mail from maritain 1 ;;; Load to read and send mail from maritain
2 2
3 (setq mail-append-host "home.hst.name") 3 (setq mail-append-host "home.hst.name")
4 (setq user-mail-address (format "%s@home.hst.name" user-name)) 4 (make-variable-buffer-local 'user-mail-address)
5 (setq-default user-mail-address (format "%s@home.hst.name" user-name))
5 (setq mail-host-address "home.hst.name") 6 (setq mail-host-address "home.hst.name")
6 (defun system-name () "home.hst.name") 7 (defun system-name () "home.hst.name")
7 8
8 (let ((hdn (format "/home/%s" user-name))) 9 (let ((hdn (format "/home/%s" user-name)))
9 (let ((sfn (format "%s/.sig.pers" hdn))) 10 (let ((sfn (format "%s/.sig.pers" hdn)))