Mercurial > hg > xemacs

comparison gnus-init.el @ 21:7b2c4ed36302

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
for new maritain
author ht
date Mon, 30 Nov 2020 16:00:15 +0000
parents 6d36ba671237
children 5738cc494f7f
comparison
equal deleted inserted replaced
20:06827fc8ae79 21:7b2c4ed36302
5 5
6 (setq gnus-message-archive-group 6 (setq gnus-message-archive-group
7 '((concat "general." (format-time-string 7 '((concat "general." (format-time-string
8 "%Y-%m" (current-time))))) 8 "%Y-%m" (current-time)))))
9 9
10 (setq gnus-summary-ignore-duplicates t 10
11 (site-caseq (maritain (require 'mail-from-m)))
12
13 (setq
14 ; gnus-article-sort-functions '(gnus-article-sort-by-subject
15 ; see secondary-select-methods in my-news gnus-article-sort-by-number)
11 gnus-auto-select-next 'quietly 16 gnus-auto-select-next 'quietly
12 gnus-your-organization "HCRC, University of Edinburgh" 17 gnus-buttonized-mime-types '("multipart/signed")
13 gnus-summary-line-format "%U%R%z%I%4N%(%[%4L: %-20,20n%]%) %s\n" 18 gnus-inhibit-mime-unbuttonizing nil
19 gnus-ignored-headers "^Errors-To:\\|^Precedence:\\|^UNIX-From:"
20 gnus-mime-display-multipart-related-as-mixed t
21 gnus-posting-styles `((".*"
22 (signature-file ,mail-signature-file))
23 ((header "To" ".*@rsof.hst.name")
24 (signature-file "/home/ht/.quaker-sig")
25 (address "ht@rsof.hst.name")))
26 gnus-simplify-subject-regexp "^\\(re[:;.]\\| \\|fwd:\\)*"
27 gnus-summary-display-arrow nil
28 gnus-summary-gather-subject-limit nil
29 gnus-summary-line-format "%U%R%5N%I%(%[%4L: %-12,12A%]%) %s\n"
30 gnus-summary-make-false-root 'none
31 gnus-thread-sort-functions '(gnus-thread-sort-by-number
32 gnus-thread-sort-by-simpl-subject)
14 mm-discouraged-alternatives '("text/html") 33 mm-discouraged-alternatives '("text/html")
15 gnus-ignored-headers 34 gnus-summary-ignore-duplicates t
16 "^Errors-To:\\|^Precedence:\\|^UNIX-From:" 35 gnus-use-scoring nil ; not used yet
17 gnus-posting-styles `((".*" 36 )
18 (signature-file ,mail-signature-file))))
19 37
20 (setq bbdb/news-auto-create-p t) 38 (setq bbdb/news-auto-create-p t)
21 39
22 (setq nnmail-crosspost nil) 40 (setq nnmail-crosspost nil)
23 (setq nnmail-split-methods 'nnmail-split-fancy) 41 (setq nnmail-split-methods 'nnmail-split-fancy)
24 (setq nnmail-split-fancy 42 (setq nnmail-split-fancy
25 (let ((month (format-time-string "%Y-%m" (current-time)))) 43 (let ((month (format-time-string "%Y-%m" (current-time))))
26 (cons '| 44 (cons '|
27 (append '(("Subject" "testing" junk) 45 (append '(("Subject" "testing" "jjunk")
28 (to "quaker-\\(l\\|spectrum\\)" "quaker") 46 (to "quaker-\\(l\\|spectrum\\)" "quaker")
29 (to "quaker-b" "quaker-b") 47 (to "quaker-b" "quaker-b")
30 (to "w3c-xml-schema-\\([a-z]+\\)" "xml-schema-\\1") 48 (to "w3c-xml-schema-\\([a-z]+\\)" "xml-schema-\\1")
31 (to "w3c-xml-\\([a-z]+\\)" "xml-\\1" ) 49 (to "w3c-xml-\\([a-z]+\\)" "xml-\\1" )
32 (to "w3c-archive" "refinement") 50 (to "w3c-archive" "refinement")
33 (to "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)" "xsl") 51 (to "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)" "xsl")
34 (to "[cC]ygwin" "cygwin") 52 (to "[cC]ygwin" "cygwin")
35 (to "ding" "gnus") 53 (to "ding" "gnus")
54 (from "noreply@mrooms.net" "nayler")
55 (to "ht@rsof.hst.name" "quaker")
56 (to "mfw@rsof.hst.name" "7vt")
36 (to "zphdaily" (concat "pers-" month)) 57 (to "zphdaily" (concat "pers-" month))
37 (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" ) 58 (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" )
38 ) 59 )
39 (list (list 'to 60 (list (list 'to
40 "ht\\|h\\.?thompson?" 61 "ht\\|h\\.?thompson?"
50 (interactive) 71 (interactive)
51 (gnus-summary-delete-article) 72 (gnus-summary-delete-article)
52 (gnus-summary-next-unread-article)) 73 (gnus-summary-next-unread-article))
53 74
54 (require 'my-news) 75 (require 'my-news)
76 (open-quaker)
77
78 (add-hook 'kill-emacs-hook
79 (lambda ()
80 ; (if (database-live-p whitelist-db)
81 ; (close-database whitelist-db))
82 (if (database-live-p quaker-db)
83 (close-database quaker-db))
84 ; (if (database-live-p adlist-db)
85 ; (close-database adlist-db))
86 ))
87
88 (add-hook 'bbdb-complete-name-hooks 'quaker-sig-if-quaker)
89 ;(add-hook 'gnus-message-setup-hook 'quaker-sig-if-to-quaker)
90
55 (custom-set-variables 91 (custom-set-variables
56 '(gnus-treat-display-picons nil)) 92 '(gnus-treat-display-picons nil))
57 (custom-set-faces) 93 (custom-set-faces)
58 94
59 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) 95 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
60 96
61 (add-hook 'gnus-summary-mode-hook 'gnus-summary-mode-fun1) 97 (add-hook 'gnus-summary-mode-hook 'gnus-summary-mode-fun1)
62 98
99 (add-hook 'message-mode-hook 'message-mode-fun1)
100
63 ;; run the first time we make a summary window 101 ;; run the first time we make a summary window
64 (defun gnus-summary-mode-fun1 () 102 (defun gnus-summary-mode-fun1 ()
65 "install ht's mods" 103 "install ht's mods"
66 (define-key gnus-summary-mode-map "D" 'ht-gnus-summary-delete-forward) 104 (define-key gnus-summary-mode-map "D" 'ht-gnus-summary-delete-forward)
105 (define-key gnus-summary-mode-map "\M-h" 'showMPAhtml)
67 (remove-hook 'gnus-summary-mode-hook 'gnus-summary-mode-fun1)) 106 (remove-hook 'gnus-summary-mode-hook 'gnus-summary-mode-fun1))
107
108 (defun message-mode-fun1 ()
109 (define-key message-mode-map [(control meta q)] 'add-quaker)
110 (remove-hook 'message-mode-hook 'message-mode-fun1))
68 111
69 (defun ht-gnus-pers-refresh (n) 112 (defun ht-gnus-pers-refresh (n)
70 (interactive "p") 113 (interactive "p")
71 (let ((gn (concat "nnml+ht:pers-" 114 (let ((gn (concat "nnml+ht:pers-"
72 (format-time-string "%Y-%m" (current-time))))) 115 (format-time-string "%Y-%m" (current-time)))))
110 (make-variable-buffer-local 'gnus-extra-headers) 153 (make-variable-buffer-local 'gnus-extra-headers)
111 (make-variable-buffer-local 'nnmail-extra-headers) 154 (make-variable-buffer-local 'nnmail-extra-headers)
112 (add-hook 'gnus-parse-headers-hook 155 (add-hook 'gnus-parse-headers-hook
113 '(lambda () 156 '(lambda ()
114 (gnus-summary-set-local-parameters gnus-newsgroup-name))) 157 (gnus-summary-set-local-parameters gnus-newsgroup-name)))
158
159 (add-hook 'gnus-get-new-news-hook (lambda () (setq ht-gnus-just-read nil)))
160
161 (add-hook 'gnus-after-getting-new-news-hook
162 (lambda () (message "%s" ht-gnus-just-read)))
163
164 (defvar ht-gnus-just-read nil)
165
166 (defun ht-gnus-note-save-to-group ()
167 (let ((g (caar group-art)))
168 (if (not (member g ht-gnus-just-read))
169 (setq ht-gnus-just-read (cons g ht-gnus-just-read)))))
170
171 (add-hook 'nnml-prepare-save-mail-hook (function ht-gnus-note-save-to-group))
172