Mercurial > hg > xemacs

annotate gnus-init.el @ 46:40e245d3d1b3

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