Mercurial > hg > xemacs

comparison 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
comparison
equal deleted inserted replaced
43:eee08de75336 47:06ccca1d4756
9 (setq message-signature-file "/home/ht/.sig.pers") 9 (setq message-signature-file "/home/ht/.sig.pers")
10 (setq message-signature t) 10 (setq message-signature t)
11 (defun system-name () "home.hst.name") 11 (defun system-name () "home.hst.name")
12 12
13 (setq gnus-default-directory "/home/ht" 13 (setq gnus-default-directory "/home/ht"
14 gnus-home-directory "/home/ht"
14 my-mail-dir "/home/ht/mail" 15 my-mail-dir "/home/ht/mail"
15 mail-sources '((file :path "/var/spool/mail/ht")) 16 mail-sources '((file :path "/var/spool/mail/ht"))
17 mail-archive-file-name (concat my-mail-dir "/cpy/general/"
18 (format-time-string
19 "%Y-%m" (current-time))
20 ".mbox")
16 ) 21 )
17 22
18 (setq mail-archive-file-name (expand-file-name "~/mail/cpy/general")) 23 (setq mail-archive-file-name (expand-file-name "~/mail/cpy/general"))
19
20
21 24
22 (defun set-nnmail-split-fancy () 25 (defun set-nnmail-split-fancy ()
23 (setq nnmail-split-fancy 26 (setq nnmail-split-fancy
24 (let ((month (format-time-string "%Y-%m" (current-time)))) 27 (let ((month (format-time-string "%Y-%m" (current-time))))
25 (cons '| 28 (cons '|