Mercurial > hg > xemacs

comparison gnus-init.el @ 70:ef61b0f32027

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Henry Thompson <ht@markup.co.uk>
date Mon, 09 Jun 2025 13:21:36 +0100
parents 104736399f86
children 6dc30991613b
comparison
equal deleted inserted replaced
69:d43503e9e431 70:ef61b0f32027
5 ) 5 )
6 6
7 (site-caseq (edin 7 (site-caseq (edin
8 (require 'mail-from-inf)) 8 (require 'mail-from-inf))
9 (maritain 9 (maritain
10 (message "1 %s %s" (and (boundp 'gnus-server-alist)
11 gnus-server-alist)
12 (and (boundp 'gnus-message-archive-method)
13 gnus-message-archive-method))
10 (require 'mail-from-m) 14 (require 'mail-from-m)
11 (load-file (expand-file-name "~/.xemacs/gnus.el"))) 15 (message "2 %s %s" (and (boundp 'gnus-server-alist)
16 gnus-server-alist)
17 (and (boundp 'gnus-message-archive-method)
18 gnus-message-archive-method))
19 (load-file (expand-file-name "~/.xemacs/gnus.el"))
20 (message "3 %s %s" (and (boundp 'gnus-server-alist)
21 gnus-server-alist)
22 (and (boundp 'gnus-message-archive-method)
23 gnus-message-archive-method)))
12 (t 24 (t
13 (defun set-ht-compiled-split ())) 25 (defun set-ht-compiled-split ()))
14 ) 26 )
15 27
16 ;; things based on my-mail-dir, or set-ht-compiled-split 28 ;; things based on my-mail-dir, or set-ht-compiled-split
21 (setq 33 (setq
22 gnus-article-save-directory (expand-file-name 34 gnus-article-save-directory (expand-file-name
23 (concat my-mail-dir "/Mail")) 35 (concat my-mail-dir "/Mail"))
24 nnml-directory (expand-file-name (concat my-mail-dir "/Mail")) 36 nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
25 gnus-message-archive-method 37 gnus-message-archive-method
26 '(nnfolder "archive" 38 `(nnfolder "archive"
27 ;; the following two are not taking effect, not sure why, answer 39 ;; the following two are not taking effect, not sure why, answer
28 ;; _may_ lie in gnus-setup-news... 40 ;; _may_ lie in gnus-setup-news...
29 (nnfolder-directory (concat my-mail-dir "/cpy")) 41 (nnfolder-directory ,(concat my-mail-dir "/cpy"))
30 (nnfolder-active-file (concat my-mail-dir "/cpy/active")) 42 (nnfolder-active-file ,(concat my-mail-dir "/cpy/active"))
43 (nnfolder-get-new-mail nil)
44 (nnfolder-inhibit-expiry t)
31 ) 45 )
32 ) 46 )
33 47
34 (setq gnus-novice-user nil) 48 (setq gnus-novice-user nil)
35 49