changeset 66:c343c57a93e8

fix user-mail-address pblm
author Henry S Thompson <ht@inf.ed.ac.uk>
date Mon, 16 Dec 2024 18:22:27 +0000
parents 104736399f86
children a9b2a2335782
files mail-from-m.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/mail-from-m.el	Mon Dec 16 18:21:41 2024 +0000
+++ b/mail-from-m.el	Mon Dec 16 18:22:27 2024 +0000
@@ -1,7 +1,8 @@
 ;;; Load to read and send mail from maritain
 
 (setq mail-append-host "home.hst.name")
-(setq user-mail-address (format "%s@home.hst.name" user-name))
+(make-variable-buffer-local 'user-mail-address)
+(setq-default user-mail-address (format "%s@home.hst.name" user-name))
 (setq mail-host-address "home.hst.name")
 (defun system-name () "home.hst.name")