Mercurial > hg > xemacs

changeset 58:32a75a4db17b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to paramterise email handling a bit more revert use of device-type-hacking
author Henry S Thompson <ht@inf.ed.ac.uk>
date Wed, 03 Apr 2024 12:41:35 +0100
parents 0d4e2fbdb6aa
children 29e0ef38765f
files common-init.el gnus-init.el mail-from-m.el pers-init.el
diffstat 4 files changed, 17 insertions(+), 69 deletions(-) [+]
line wrap: on
line diff
Binary file common-init.el has changed
--- a/gnus-init.el	Sat Mar 02 21:40:24 2024 +0000
+++ b/gnus-init.el	Wed Apr 03 12:41:35 2024 +0100
@@ -7,7 +7,8 @@
 (site-caseq (edin
 	     (require 'mail-from-inf))
 	    (maritain
-	     (require 'mail-from-m))
+	     (require 'mail-from-m)
+	     (load-file (expand-file-name "~/.xemacs/gnus.el")))
 	    )
 
 ;; things based on my-mail-dir, or set-ht-compiled-split
--- a/mail-from-m.el	Sat Mar 02 21:40:24 2024 +0000
+++ b/mail-from-m.el	Wed Apr 03 12:41:35 2024 +0100
@@ -1,83 +1,29 @@
 ;;; Load to read and send mail from maritain
 
 (setq mail-append-host "home.hst.name")
-(setq user-full-name "Henry S. Thompson")
-(setq user-mail-address "ht@home.hst.name")
+(setq user-mail-address (format "%s@home.hst.name" user-name))
 (setq mail-host-address "home.hst.name")
-(setq mail-signature-file "/home/ht/.sig.pers")
-(setq mail-signature t)
-(setq message-signature-file "/home/ht/.sig.pers")
-(setq message-signature t)
 (defun system-name () "home.hst.name")
 
-(setq gnus-default-directory "/home/ht"
-      gnus-home-directory "/home/ht"
-      my-mail-dir "/home/ht/mail"
-      mail-sources '((file :path "/var/spool/mail/ht"))
+(let ((hdn (format "/home/%s" user-name)))
+  (let ((sfn (format "%s/.sig.pers" hdn)))
+    (setq mail-signature-file sfn
+	  message-signature-file sfn
+	  mail-signature t
+	  message-signature t)
+    )
+  (setq gnus-default-directory hdn
+      gnus-home-directory hdn
+      my-mail-dir (format "%s/mail" hdn)
+      mail-sources `((file :path ,(format "/var/spool/mail/%s" user-name)))
       mail-archive-file-name (concat my-mail-dir "/cpy/general/"
 				     (format-time-string
 				      "%Y-%m" (current-time))
-				     ".mbox")
+				     ".mbox"))
 )
 
 (setq mail-archive-file-name (expand-file-name "~/mail/cpy/general"))
 
-(defun set-nnmail-split-fancy ()
-  (setq nnmail-split-fancy
-      (let ((month (format-time-string "%Y-%m" (current-time)))
-	    (year (format-time-string "%Y" (current-time)))
-	    )
-      (cons '|
-	    (append `(("Subject" "testing" "jjunk")
-		      (to "quaker-\\(l\\|spectrum\\)" "quaker-2022")
-		      (to "quaker-b" "quaker-b")
-		      (to "[cC]ygwin" "cygwin")
-		      (from "noreply@mrooms.net" "nayler")
-		      (to "ht@rsof.hst.name" ,(concat "quaker-" year))
-		      (to "Wardenship@lists.quaker.eu.org" "wardens")
-		      (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year))
-		      (from "\\(gillian.einstein@gmail.com\\|brian.cantwell.smith@gmail.com\\|gguzeldere@yahoo.com\\|jim.brink@gmail.com\\|rgwinther@gmail.com\\|shockema@gmail.com\\|j.jun.luo@gmail.com\\)" "GoN")
-		      ("Envelope-to" "mhmcc@rsof.hst.name"
-		       (| (from "mhmcc@rsof.hst.name" junk)
-			  ,(concat "mhmcc-" year)))
-		      (to "mfw@rsof.hst.name" "7vt")
-		      (to "zphdaily" (concat "pers-" month))
-		      (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" )
-		      )
-		    (list (list 'to
-				"ht\\|h\\.?thompson?"
-				(concat "pers-" month))
-			  (concat "group-"
-				  (format-time-string
-				   "%Y-%m" (current-time))
-				  "")))))))
-
-(defun set-ht-compiled-split ()
-  (interactive)
-  (set-nnmail-split-fancy))
-
-(setq gnus-posting-styles
-      `((".*"
-	 (signature-file ,mail-signature-file))
-	("quaker-2023"
-	 (signature-file "/home/ht/.quaker-sig")
-	 (address "ht@rsof.hst.name"))
-	("quaker-2024"
-	 (signature-file "/home/ht/.quaker-sig")
-	 (address "ht@rsof.hst.name"))
-	("mhmcc-2023"
-	 (signature-file "/home/ht/.mhmcc-sig")
-	 ("Reply-to" "sesam.emh.management@gmail.com")
-	 (name "HST as Convenor SESAM MHMC")
-	 (address "mhmcc@rsof.hst.name")
-	 ("Bcc" "sesam.emh.management@gmail.com"))
-	("mhmcc-2024"
-	 (signature-file "/home/ht/.mhmcc-sig")
-	 ("Reply-to" "sesam.emh.management@gmail.com")
-	 (name "HST as Convenor SESAM MHMC")
-	 (address "mhmcc@rsof.hst.name")
-	 ("Bcc" "sesam.emh.management@gmail.com"))))
-
 ;; sending mail on the road
 ;(setq send-mail-function 'smtpmail-send-it)
 ;(setq message-send-mail-function 'smtpmail-send-it)
--- a/pers-init.el	Sat Mar 02 21:40:24 2024 +0000
+++ b/pers-init.el	Wed Apr 03 12:41:35 2024 +0100
@@ -222,7 +222,8 @@
                                         (or (get-clipboard-foreign)
                                             (if (selection-exists-p)
 						(get-selection-foreign)))))
-    (load "device-type-hacking" t t)
+    ;(load "device-type-hacking" t t)
+    (setq zmacs-regions t)
     ;; override changed default, except in gnus
     (message "dth")
     (site-caseq (edin