Mercurial > hg > xemacs

comparison mail-from-m.el @ 66:c343c57a93e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix user-mail-address pblm
author Henry S Thompson <ht@inf.ed.ac.uk>
date Mon, 16 Dec 2024 18:22:27 +0000
parents 32a75a4db17b
children
comparison
equal deleted inserted replaced
65:104736399f86 66:c343c57a93e8
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)))