Mercurial > hg > xemacs

annotate 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
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
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
3 (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
4 (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
5 (maritain
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
6 (require 'mail-from-m)
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
7 ))
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
8
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
9 ;; 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
10 ;; 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
11
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
12 (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
13
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
14 (setq
47
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
15 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
16 (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
17 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
18 gnus-message-archive-method
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
19 '(nnfolder "archive"
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
20 ;; 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
21 ;; _may_ lie in gnus-setup-news...
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
22 (nnfolder-directory (concat my-mail-dir "/cpy"))
47
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
23 (nnfolder-active-file (concat my-mail-dir "/cpy/active"))
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
24 )
06ccca1d4756 try to cope with major reshuffle on ecclerig
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 43
diff changeset
25 )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
26
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
27 (setq gnus-novice-user nil)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
28
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
29 (setq gnus-message-archive-group
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
30 '((concat "general." (format-time-string
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
31 "%Y-%m" (current-time)))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
32
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
33
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
34
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
35 (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
36 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
37 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
38 "
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
39 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
40 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
41 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
42 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
43 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
44 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
45 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
46 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
47 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
48 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
49 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
50 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
51 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
52 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
53 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
54 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
55 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
56 )
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
57
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
58 (setq bbdb/news-auto-create-p t)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
59
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
60 (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
61
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
62 ;;;(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
63
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
64 (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
65
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
66 (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
67 (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
68 (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
69
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
70 (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
71 (lambda ()
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
72 (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
73 (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
74 (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
75 (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
76 (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
77 (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
78
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
79 (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
80 (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
81
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
82 (setq nnmail-crosspost nil)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
83 (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
84
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
85 (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
86
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
87 (setq white-domains (list))
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 23
diff changeset
88
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
89 (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
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 (defvar ht-compiled-split nil)
24
0e5b39d2f8bb trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 23
diff changeset
92
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
93 (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
94 (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
95 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
96 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
97
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
98 (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
99 (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
100
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
101 (custom-set-faces)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
102
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
103 (defun ht-gnus-summary-delete-forward ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
104 "REAL delete for nnmail gnus"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
105 (interactive)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
106 (gnus-summary-delete-article)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
107 (gnus-summary-next-unread-article))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
108
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
109 (add-hook 'kill-emacs-hook
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
110 (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
111 (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
112 (close-database whitelist-db))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
113 (if (database-live-p quaker-db)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
114 (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
115 (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
116 (close-database adlist-db))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
117 ))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
118
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
119 (add-hook 'bbdb-complete-name-hooks 'quaker-sig-if-quaker)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
120
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
121 (custom-set-variables
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
122 '(gnus-treat-display-picons nil))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
123 (custom-set-faces)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
124
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
125 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
126
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
127 (add-hook 'gnus-summary-mode-hook 'gnus-summary-mode-fun1)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
128
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
129 (add-hook 'message-mode-hook 'message-mode-fun1)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
130
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
131 (add-hook 'message-sent-hook (function whiten-recip))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
132
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
133 (defun ht-gnus-pers-refresh (n)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
134 (interactive "p")
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
135 (let ((gn (concat "nnml+ht:pers-"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
136 (format-time-string "%Y-%m" (current-time)))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
137 (gnus-group-goto-group gn)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
138 (gnus-group-get-new-news-this-group n)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
139 (gnus-group-goto-group gn)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
140 (gnus-group-read-group))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
141 )
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
142
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
143 (add-hook 'gnus-group-mode-hook 'gnus-group-mode-fun1)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
144
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
145
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
146 (defun gnus-regen-group ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
147 (nnml-generate-nov-databases-1 (concat
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
148 (expand-file-name nnml-directory)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
149 "/"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
150 (substring (gnus-group-group-name) 8))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
151 nil t)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
152 )
32
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
153 (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
154 (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
155 (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
156 (add-hook 'news-reply-mode-hook 'mc-install-write-mode)
6
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
157
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
158 (defun gnus-user-format-function-t (header)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
159 "display the to field (for archive messages)"
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
160 (let ((n (mail-header-number header)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
161 (with-current-buffer nntp-server-buffer
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
162 (save-excursion
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
163 (save-restriction
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
164 (let ((inhibit-point-motion-hooks t))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
165 (goto-char (point-min))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
166 (let ((beg (search-forward (format " %d Article retrieved." n)))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
167 (end (search-forward "\n.\n")))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
168 (narrow-to-region beg end)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
169 (goto-char beg)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
170 (message-fetch-field "To"))))))))
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
171
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
172 (make-variable-buffer-local 'gnus-extra-headers)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
173 (make-variable-buffer-local 'nnmail-extra-headers)
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
174 (add-hook 'gnus-parse-headers-hook
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
175 '(lambda ()
dccf9e53f179 *** empty log message ***
ht
parents:
diff changeset
176 (gnus-summary-set-local-parameters gnus-newsgroup-name)))
21
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
177
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
178 (add-hook 'gnus-get-new-news-hook (lambda () (setq ht-gnus-just-read nil)))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
179
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
180 (add-hook 'gnus-after-getting-new-news-hook
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
181 (lambda () (message "%s" ht-gnus-just-read)))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
182
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
183 (defvar ht-gnus-just-read nil)
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
184
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
185 (defun ht-gnus-note-save-to-group ()
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
186 (let ((g (caar group-art)))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
187 (if (not (member g ht-gnus-just-read))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
188 (setq ht-gnus-just-read (cons g ht-gnus-just-read)))))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
189
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
190 (add-hook 'nnml-prepare-save-mail-hook (function ht-gnus-note-save-to-group))
7b2c4ed36302 for new maritain
ht
parents: 13
diff changeset
191
23
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
192 (require 'gnus-art)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
193
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
194 (nconc gnus-treatment-function-alist
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
195 '((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
196
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
197 (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
198 "redirect for stripping"
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
199 (interactive (list t))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
200 (save-excursion
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
201 (set-buffer gnus-article-buffer)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
202 (if interactive
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
203 (call-interactively 'article-strip-uoe-warning)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
204 (apply 'article-strip-uoe-warning args))))
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 (defun article-strip-uoe-warning ()
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
207 "strip the stupid uoe warning"
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
208 (interactive)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
209 (save-excursion
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
210 (article-goto-body)
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
211 (let ((case-fold-search t))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
212 (when
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
213 (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
214 (gnus-delete-line))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
215 (when
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
216 (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
217 (gnus-delete-line))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
218 )))
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
219
5738cc494f7f trying to clean up Paul vs. Maritain for Cirrus
ht
parents: 21
diff changeset
220 (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
221
cb9b76219c55 attempt to merge mail read and send from all over
Henry S Thompson <ht@inf.ed.ac.uk>
parents: 24
diff changeset
222 (provide 'gnus-init)