Mercurial > hg > xemacs

changeset 47:06ccca1d4756

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to cope with major reshuffle on ecclerig
author Henry S Thompson <ht@inf.ed.ac.uk>
date Wed, 20 Dec 2023 18:05:37 +0000
parents eee08de75336
children 67c04dbeb162
files gnus-init.el mail-from-m.el
diffstat 2 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/gnus-init.el	Sat Dec 16 21:10:30 2023 +0000
+++ b/gnus-init.el	Wed Dec 20 18:05:37 2023 +0000
@@ -12,15 +12,17 @@
 (set-ht-compiled-split)
 
 (setq
- gnus-article-save-directory (expand-file-name (concat my-mail-dir "/Mail"))
+ 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")))
- )
+   (nnfolder-active-file (concat my-mail-dir "/cpy/active"))
+   )
+)
 
 (setq gnus-novice-user nil)
 
--- a/mail-from-m.el	Sat Dec 16 21:10:30 2023 +0000
+++ b/mail-from-m.el	Wed Dec 20 18:05:37 2023 +0000
@@ -11,14 +11,17 @@
 (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"))
+      mail-archive-file-name (concat my-mail-dir "/cpy/general/"
+				     (format-time-string
+				      "%Y-%m" (current-time))
+				     ".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))))