Mercurial > hg > xemacs

diff mail-from-m.el @ 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 f3ab63e5c39f
line wrap: on
line diff
--- 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))))