Mercurial > hg > xemacs

comparison gnus-init.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 67c04dbeb162
comparison
equal deleted inserted replaced
43:eee08de75336 47:06ccca1d4756
10 ;; which are defined in one of the above 10 ;; which are defined in one of the above
11 11
12 (set-ht-compiled-split) 12 (set-ht-compiled-split)
13 13
14 (setq 14 (setq
15 gnus-article-save-directory (expand-file-name (concat my-mail-dir "/Mail")) 15 gnus-article-save-directory (expand-file-name
16 (concat my-mail-dir "/Mail"))
16 nnml-directory (expand-file-name (concat my-mail-dir "/Mail")) 17 nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
17 gnus-message-archive-method 18 gnus-message-archive-method
18 '(nnfolder "archive" 19 '(nnfolder "archive"
19 ;; the following two are not taking effect, not sure why, answer 20 ;; the following two are not taking effect, not sure why, answer
20 ;; _may_ lie in gnus-setup-news... 21 ;; _may_ lie in gnus-setup-news...
21 (nnfolder-directory (concat my-mail-dir "/cpy")) 22 (nnfolder-directory (concat my-mail-dir "/cpy"))
22 (nnfolder-active-file (concat my-mail-dir "/cpy/active"))) 23 (nnfolder-active-file (concat my-mail-dir "/cpy/active"))
23 ) 24 )
25 )
24 26
25 (setq gnus-novice-user nil) 27 (setq gnus-novice-user nil)
26 28
27 (setq gnus-message-archive-group 29 (setq gnus-message-archive-group
28 '((concat "general." (format-time-string 30 '((concat "general." (format-time-string