Mercurial > hg > xemacs

annotate gnus-init.el @ 72:e5b0b98e81a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use .xemacs/gnus.el
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Mon, 09 Jun 2025 13:35:06 +0100
parents 104736399f86
children 6dc30991613b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
1 ;; gnus customisation
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
2
50
b9f63d88037e compile w/o error
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 48
diff changeset
3 (eval-when-compile
b9f63d88037e compile w/o error
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 48
diff changeset
4 (setq my-mail-dir "/bogus") ; will be overwritten by the following
b9f63d88037e compile w/o error
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 48
diff changeset
5 )
b9f63d88037e compile w/o error
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 48
diff changeset
6
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
7 (site-caseq (edin
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
8 (require 'mail-from-inf))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
9 (maritain
65
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
10 (message "1 %s %s" (and (boundp 'gnus-server-alist)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
11 gnus-server-alist)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
12 (and (boundp 'gnus-message-archive-method)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
13 gnus-message-archive-method))
58
32a75a4db17b try to paramterise email handling a bit more
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 50
diff changeset
14 (require 'mail-from-m)
65
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
15 (message "2 %s %s" (and (boundp 'gnus-server-alist)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
16 gnus-server-alist)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
17 (and (boundp 'gnus-message-archive-method)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
18 gnus-message-archive-method))
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
19 (load-file (expand-file-name "~/.xemacs/gnus.el"))
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
20 (message "3 %s %s" (and (boundp 'gnus-server-alist)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
21 gnus-server-alist)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
22 (and (boundp 'gnus-message-archive-method)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
23 gnus-message-archive-method)))
59
29e0ef38765f default empty provision for set-ht...
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 58
diff changeset
24 (t
29e0ef38765f default empty provision for set-ht...
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 58
diff changeset
25 (defun set-ht-compiled-split ()))
50
b9f63d88037e compile w/o error
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 48
diff changeset
26 )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
27
43
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
28 ;; things based on my-mail-dir, or set-ht-compiled-split
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
29 ;; which are defined in one of the above
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
30
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
31 (set-ht-compiled-split)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
32
43
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
33 (setq
47
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
34 gnus-article-save-directory (expand-file-name
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
35 (concat my-mail-dir "/Mail"))
43
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
36 nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
37 gnus-message-archive-method
65
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
38 `(nnfolder "archive"
43
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
39 ;; the following two are not taking effect, not sure why, answer
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
40 ;; _may_ lie in gnus-setup-news...
65
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
41 (nnfolder-directory ,(concat my-mail-dir "/cpy"))
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
42 (nnfolder-active-file ,(concat my-mail-dir "/cpy/active"))
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
43 (nnfolder-get-new-mail nil)
104736399f86 move some local (maritain) stuff into .xemacs/gnus.el
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 59
diff changeset
44 (nnfolder-inhibit-expiry t)
47
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
45 )
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
46 )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
47
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
48 (setq gnus-novice-user nil)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
49
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
50 (setq gnus-message-archive-group
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
51 '((concat "general." (format-time-string
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
52 "%Y-%m" (current-time)))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
53
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
54
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
55
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
56 (setq gnus-auto-select-next 'quietly
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
57 gnus-buttonized-mime-types '("multipart/signed")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
58 gnus-group-line-format "%M%S%p%P%5y:%uH%(%g%)%l %O
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
59 "
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
60 gnus-ignored-headers "^Errors-To:\\|^Precedence:\\|^UNIX-From:"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
61 gnus-inhibit-mime-unbuttonizing nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
62 gnus-mime-display-multipart-related-as-mixed t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
63 gnus-show-mime t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
64 gnus-simplify-subject-regexp "^\\(re[:;.]\\| \\|fwd:\\)*"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
65 gnus-summary-display-arrow nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
66 gnus-summary-gather-subject-limit nil
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
67 gnus-summary-ignore-duplicates t
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
68 gnus-summary-line-format "%U%R%5N%I%(%[%4L: %-12,12A%]%) %s\n"
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
69 gnus-summary-make-false-root 'none
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
70 gnus-thread-sort-functions '(gnus-thread-sort-by-number
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
71 gnus-thread-sort-by-simpl-subject)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
72 gnus-use-scoring nil ; not used yet
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
73 message-from-style 'angles
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
74 mm-discouraged-alternatives '("text/html")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
75 nnmail-expiry-wait 28
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
76 no-select-groups '("nnml+ht:cygwin")
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
77 )
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
78
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
79 (setq bbdb/news-auto-create-p t)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
80
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
81 (setq wsp-cache nil)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
82
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
83 ;;;(setq blacklist-db (open-database "~/.blacklist"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
84
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
85 (require 'my-news) ; defines db functions
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
86
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
87 (open-white)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
88 (open-ad)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
89 (open-quaker)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
90
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
91 (add-hook 'kill-emacs-hook
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
92 (lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
93 (if (database-live-p whitelist-db)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
94 (close-database whitelist-db))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
95 (if (database-live-p quaker-db)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
96 (close-database quaker-db))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
97 (if (database-live-p adlist-db)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
98 (close-database adlist-db))))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
99
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
100 (add-hook 'bbdb-complete-name-hooks 'quaker-sig-if-quaker)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
101 (add-hook 'gnus-message-setup-hook 'quaker-sig-if-to-quaker)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
102
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
103 (setq nnmail-crosspost nil)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
104 (setq nnmail-split-methods 'nnmail-split-fancy)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
105
43
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
106 (setq white-subjects "\\b\\(phd\\|ilcc\\)\\b")
eee08de75336 try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 32
diff changeset
107
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
108 (setq white-domains (list))
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 23
diff changeset
109
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
110 (setq ad-domains (list "planetx.co.uk" "substack.com"))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
111
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
112 (defvar ht-compiled-split nil)
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 23
diff changeset
113
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
114 (setq gnus-show-mime t) ; stale
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
115 (setq mml1991-use 'pgg
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
116 mml2015-use 'pgg
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
117 mm-verify-option 'always)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
118
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
119 (require 'mm-decode)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
120 (setq mm-automatic-display (remove "text/html" mm-automatic-display))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
121
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
122 (custom-set-faces)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
123
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
124 (defun ht-gnus-summary-delete-forward ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
125 "REAL delete for nnmail gnus"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
126 (interactive)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
127 (gnus-summary-delete-article)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
128 (gnus-summary-next-unread-article))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
129
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
130 (add-hook 'kill-emacs-hook
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
131 (lambda ()
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
132 (if (database-live-p whitelist-db)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
133 (close-database whitelist-db))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
134 (if (database-live-p quaker-db)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
135 (close-database quaker-db))
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
136 (if (database-live-p adlist-db)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
137 (close-database adlist-db))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
138 ))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
139
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
140 (add-hook 'bbdb-complete-name-hooks 'quaker-sig-if-quaker)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
141
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
142 (custom-set-variables
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
143 '(gnus-treat-display-picons nil))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
144 (custom-set-faces)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
145
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
146 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
147
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
148 (add-hook 'gnus-summary-mode-hook 'gnus-summary-mode-fun1)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
149
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
150 (add-hook 'message-mode-hook 'message-mode-fun1)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
151
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
152 (add-hook 'message-sent-hook (function whiten-recip))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
153
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
154 (add-hook 'gnus-group-mode-hook 'gnus-group-mode-fun1)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
155
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
156
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
157 (defun gnus-regen-group ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
158 (nnml-generate-nov-databases-1 (concat
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
159 (expand-file-name nnml-directory)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
160 "/"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
161 (substring (gnus-group-group-name) 8))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
162 nil t)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
163 )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
164 (require 'mailcrypt)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
165 (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
166 (add-hook 'message-mode-hook 'mc-install-write-mode)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
167 (add-hook 'news-reply-mode-hook 'mc-install-write-mode)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
168
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
169 (defun gnus-user-format-function-t (header)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
170 "display the to field (for archive messages)"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
171 (let ((n (mail-header-number header)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
172 (with-current-buffer nntp-server-buffer
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
173 (save-excursion
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
174 (save-restriction
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
175 (let ((inhibit-point-motion-hooks t))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
176 (goto-char (point-min))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
177 (let ((beg (search-forward (format " %d Article retrieved." n)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
178 (end (search-forward "\n.\n")))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
179 (narrow-to-region beg end)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
180 (goto-char beg)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
181 (message-fetch-field "To"))))))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
182
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
183 (make-variable-buffer-local 'gnus-extra-headers)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
184 (make-variable-buffer-local 'nnmail-extra-headers)
46
40e245d3d1b3 try to improve use of ht-gnus-just-read
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
185
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
186 (add-hook 'gnus-parse-headers-hook
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
187 '(lambda ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
188 (gnus-summary-set-local-parameters gnus-newsgroup-name)))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
189
46
40e245d3d1b3 try to improve use of ht-gnus-just-read
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
190 (defvar ht-gnus-just-read nil)
40e245d3d1b3 try to improve use of ht-gnus-just-read
Henry S. Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
191
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
192 (add-hook 'gnus-get-new-news-hook (lambda () (setq ht-gnus-just-read nil)))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
193
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
194 (add-hook 'gnus-after-getting-new-news-hook
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
195 (lambda () (message "%s" ht-gnus-just-read)))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
196
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
197 (defun ht-gnus-note-save-to-group ()
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
198 (let ((g (caar group-art)))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
199 (if (not (member g ht-gnus-just-read))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
200 (setq ht-gnus-just-read (cons g ht-gnus-just-read)))))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
201
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
202 (add-hook 'nnml-prepare-save-mail-hook (function ht-gnus-note-save-to-group))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
203
23
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
204 (require 'gnus-art)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
205
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
206 (nconc gnus-treatment-function-alist
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
207 '((gnus-treat-strip-uoe-warning gnus-article-strip-uoe-warning)))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
208
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
209 (defun gnus-article-strip-uoe-warning (&optional interactive &rest args)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
210 "redirect for stripping"
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
211 (interactive (list t))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
212 (save-excursion
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
213 (set-buffer gnus-article-buffer)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
214 (if interactive
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
215 (call-interactively 'article-strip-uoe-warning)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
216 (apply 'article-strip-uoe-warning args))))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
217
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
218 (defun article-strip-uoe-warning ()
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
219 "strip the stupid uoe warning"
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
220 (interactive)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
221 (save-excursion
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
222 (article-goto-body)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
223 (let ((case-fold-search t))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
224 (when
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
225 (looking-at "This email was sent to you by someone outside the University.")
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
226 (gnus-delete-line))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
227 (when
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
228 (looking-at "You should only click on links or attachments if you are certain that the email is genuine and the content is safe.")
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
229 (gnus-delete-line))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
230 )))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
231
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
232 (setq gnus-treat-strip-uoe-warning t)
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
233
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
234 (provide 'gnus-init)