Mercurial > hg > xemacs

comparison mail-from-m.el @ 43:eee08de75336

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to do better at where news/mail/init stuff is handled, works on ecclerig, mostly, but may break maritain
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Sat, 16 Dec 2023 21:10:30 +0000
parents d9297098442b
children 06ccca1d4756
comparison
equal deleted inserted replaced
42:597d985bf448 43:eee08de75336
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 my-mail-dir "/home/ht/mail" 14 my-mail-dir "/home/ht/mail"
15 mail-sources '((file :path "/var/spool/mail/ht"))
15 ) 16 )
17
18 (setq mail-archive-file-name (expand-file-name "~/mail/cpy/general"))
19
20
16 21
17 (defun set-nnmail-split-fancy () 22 (defun set-nnmail-split-fancy ()
18 (setq nnmail-split-fancy 23 (setq nnmail-split-fancy
19 (let ((month (format-time-string "%Y-%m" (current-time)))) 24 (let ((month (format-time-string "%Y-%m" (current-time))))
20 (cons '| 25 (cons '|