--- a/gnus-init.el	Sat Dec 16 21:08:13 2023 +0000
+++ b/gnus-init.el	Sat Dec 16 21:10:30 2023 +0000
@@ -6,17 +6,21 @@
 	     (require 'mail-from-m)
 ))
 
-;; things based on my-mail-dir, which is set in one of the above
+;; things based on my-mail-dir, or set-ht-compiled-split
+;; which are defined in one of the above
+
+(set-ht-compiled-split)
 
-(setq gnus-article-save-directory (concat my-mail-dir "/Mail")
-      nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
-      gnus-message-archive-method
-      '(nnfolder "archive"
-	;; the following two are not taking effect, not sure why, answer
-	;; _may_ lie in gnus-setup-news...
-	(nnfolder-directory (concat my-mail-dir "/cpy"))
-	(nnfolder-active-file (concat my-mail-dir "/cpy/active")))
-      mail-sources '((file :path "/var/spool/mail/ht")))
+(setq
+ gnus-article-save-directory (expand-file-name (concat my-mail-dir "/Mail"))
+ nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
+ gnus-message-archive-method
+ '(nnfolder "archive"
+   ;; the following two are not taking effect, not sure why, answer
+   ;; _may_ lie in gnus-setup-news...
+   (nnfolder-directory (concat my-mail-dir "/cpy"))
+   (nnfolder-active-file (concat my-mail-dir "/cpy/active")))
+ )
 
 (setq gnus-novice-user nil)
 
@@ -76,17 +80,14 @@
 (setq nnmail-crosspost nil)
 (setq nnmail-split-methods 'nnmail-split-fancy)
 
+(setq white-subjects "\\b\\(phd\\|ilcc\\)\\b")
+
 (setq white-domains (list))
 
 (setq ad-domains (list "planetx.co.uk" "substack.com"))
 
 (defvar ht-compiled-split nil)
 
-(defun set-ht-compiled-split ()
-  "update the mail splitting rules"
-  (interactive)
-  (set-nnmail-split-fancy))
-
 (setq gnus-show-mime t) ; stale
 (setq mml1991-use 'pgg
       mml2015-use 'pgg