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

merge
author Henry Thompson <ht@markup.co.uk>
date Mon, 09 Jun 2025 13:21:36 +0100
parents c343c57a93e8
children
line wrap: on
line diff
--- a/mail-from-m.el	Mon Jun 09 13:21:04 2025 +0100
+++ b/mail-from-m.el	Mon Jun 09 13:21:36 2025 +0100
@@ -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")