# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1734373347 0
# Node ID c343c57a93e849509ad183de67c935d36679ea84
# Parent  104736399f86bf88637ac695b7ad47393398b263
fix user-mail-address pblm

diff -r 104736399f86 -r c343c57a93e8 mail-from-m.el
--- 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")