# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1734373301 0
# Node ID 104736399f86bf88637ac695b7ad47393398b263
# Parent  bb72900f9e0bb518e9eb0d11a92eb13d0bada6b7
move some local (maritain) stuff into .xemacs/gnus.el

diff -r bb72900f9e0b -r 104736399f86 gnus-init.el
--- a/gnus-init.el	Mon Dec 16 18:20:50 2024 +0000
+++ b/gnus-init.el	Mon Dec 16 18:21:41 2024 +0000
@@ -7,8 +7,20 @@
 (site-caseq (edin
 	     (require 'mail-from-inf))
 	    (maritain
+	     (message "1 %s %s" (and (boundp 'gnus-server-alist)
+				     gnus-server-alist)
+				     (and (boundp 'gnus-message-archive-method)
+					  gnus-message-archive-method))
 	     (require 'mail-from-m)
-	     (load-file (expand-file-name "~/.xemacs/gnus.el")))
+	     (message "2 %s %s" (and (boundp 'gnus-server-alist)
+				     gnus-server-alist)
+				     (and (boundp 'gnus-message-archive-method)
+					  gnus-message-archive-method))
+	     (load-file (expand-file-name "~/.xemacs/gnus.el"))
+	     (message "3 %s %s" (and (boundp 'gnus-server-alist)
+				     gnus-server-alist)
+				     (and (boundp 'gnus-message-archive-method)
+					  gnus-message-archive-method)))
 	    (t
 	     (defun set-ht-compiled-split ()))
 	    )
@@ -23,11 +35,13 @@
 			      (concat my-mail-dir "/Mail"))
  nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
  gnus-message-archive-method
- '(nnfolder "archive"
+ `(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"))
+   (nnfolder-directory ,(concat my-mail-dir "/cpy"))
+   (nnfolder-active-file ,(concat my-mail-dir "/cpy/active"))
+   (nnfolder-get-new-mail nil)
+   (nnfolder-inhibit-expiry t)
    )
 )