Mercurial > hg > xemacs

comparison gnus-init.el @ 48:67c04dbeb162

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Henry S Thompson <ht@inf.ed.ac.uk>
date Wed, 20 Dec 2023 18:06:25 +0000
parents 06ccca1d4756 40e245d3d1b3
children b9f63d88037e
comparison
equal deleted inserted replaced
47:06ccca1d4756 48:67c04dbeb162
128 128
129 (add-hook 'message-mode-hook 'message-mode-fun1) 129 (add-hook 'message-mode-hook 'message-mode-fun1)
130 130
131 (add-hook 'message-sent-hook (function whiten-recip)) 131 (add-hook 'message-sent-hook (function whiten-recip))
132 132
133 (defun ht-gnus-pers-refresh (n)
134 (interactive "p")
135 (let ((gn (concat "nnml+ht:pers-"
136 (format-time-string "%Y-%m" (current-time)))))
137 (gnus-group-goto-group gn)
138 (gnus-group-get-new-news-this-group n)
139 (gnus-group-goto-group gn)
140 (gnus-group-read-group))
141 )
142
143 (add-hook 'gnus-group-mode-hook 'gnus-group-mode-fun1) 133 (add-hook 'gnus-group-mode-hook 'gnus-group-mode-fun1)
144 134
145 135
146 (defun gnus-regen-group () 136 (defun gnus-regen-group ()
147 (nnml-generate-nov-databases-1 (concat 137 (nnml-generate-nov-databases-1 (concat
169 (goto-char beg) 159 (goto-char beg)
170 (message-fetch-field "To")))))))) 160 (message-fetch-field "To"))))))))
171 161
172 (make-variable-buffer-local 'gnus-extra-headers) 162 (make-variable-buffer-local 'gnus-extra-headers)
173 (make-variable-buffer-local 'nnmail-extra-headers) 163 (make-variable-buffer-local 'nnmail-extra-headers)
164
174 (add-hook 'gnus-parse-headers-hook 165 (add-hook 'gnus-parse-headers-hook
175 '(lambda () 166 '(lambda ()
176 (gnus-summary-set-local-parameters gnus-newsgroup-name))) 167 (gnus-summary-set-local-parameters gnus-newsgroup-name)))
177 168
169 (defvar ht-gnus-just-read nil)
170
178 (add-hook 'gnus-get-new-news-hook (lambda () (setq ht-gnus-just-read nil))) 171 (add-hook 'gnus-get-new-news-hook (lambda () (setq ht-gnus-just-read nil)))
179 172
180 (add-hook 'gnus-after-getting-new-news-hook 173 (add-hook 'gnus-after-getting-new-news-hook
181 (lambda () (message "%s" ht-gnus-just-read))) 174 (lambda () (message "%s" ht-gnus-just-read)))
182
183 (defvar ht-gnus-just-read nil)
184 175
185 (defun ht-gnus-note-save-to-group () 176 (defun ht-gnus-note-save-to-group ()
186 (let ((g (caar group-art))) 177 (let ((g (caar group-art)))
187 (if (not (member g ht-gnus-just-read)) 178 (if (not (member g ht-gnus-just-read))
188 (setq ht-gnus-just-read (cons g ht-gnus-just-read))))) 179 (setq ht-gnus-just-read (cons g ht-gnus-just-read)))))