lisp/gnus/nnkiboze.el

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
36 (require 'gnus)
37 (require 'gnus-score)
43 (defvoo nnkiboze-directory (nnheader-concat gnus-directory "kiboze/")
72 (defvoo nnkiboze-headers nil)
81 (deffoo nnkiboze-retrieve-headers (articles &optional group server fetch-old)
83   (unless gnus-nov-is-evil
85 	'headers
97 (deffoo nnkiboze-request-article (article &optional newsgroup server buffer)
98   (nnkiboze-possibly-change-group newsgroup)
103       (nntp-request-article article newsgroup gnus-nntp-server buffer)
104     (let* ((header (gnus-summary-article-header article))
114 	    (or (and gnus-use-cache (gnus-cache-request-article num group))
115 		(gnus-agent-request-article num group)))
116 	  (gnus-request-article num group buffer)))))
123   "Make GROUP the current newsgroup."
161 	    (if (not (gnus-article-read-p (read cur)))
163 	      (gnus-delete-line))))))
197   (gnus-group-prefixed-name group '(nnkiboze "")))
206 	(gnus-use-dribble-file nil)
207 	(gnus-read-active-file t)
208 	(gnus-expert-user t))
209     (gnus))
210   (let* ((gnus-newsrc-alist (gnus-copy-sequence gnus-newsrc-alist))
211 	 (newsrc (cdr gnus-newsrc-alist))
212 	 gnus-newsrc-hashtb info)
213     (gnus-make-hashtable-from-newsrc-alist)
217       (when (string-match "nnkiboze" (gnus-info-group info))
220 	(nnkiboze-generate-group (gnus-info-group info) t))))
222     (set-buffer gnus-group-buffer)
223     (gnus-group-list-groups)))
227 	 (concat (file-name-as-directory gnus-kill-files-directory)
230 			  "." gnus-score-file-suffix))))))
233   (let* ((info (nth 2 (gnus-gethash group gnus-newsrc-hashtb)))
243 	 (gnus-expert-user t)
244 	 (gnus-large-newsgroup nil)
245 	 (gnus-score-find-score-files-function 'nnkiboze-score-file)
247 	 (gnus-score-use-all-scores nil)
248 	 (gnus-use-scoring t)
249 	 (gnus-verbose (min gnus-verbose 3))
250 	 gnus-select-group-hook gnus-summary-prepare-hook
251 	 gnus-thread-sort-functions gnus-show-threads
252 	 gnus-visual gnus-suppress-duplicates num-unread)
260 	(gnus-make-directory (file-name-directory nov-file))
275 				 (nth 1 (nth 2 (gnus-gethash
276 						gname gnus-newsrc-hashtb))))
281 	   gnus-active-hashtb)
288 	    (if (not (setq active (gnus-gethash
289 				   (caar newsrc) gnus-active-hashtb)))
295 	      (switch-to-buffer gnus-group-buffer)
296 	      (gnus-group-jump-to-group (caar newsrc))
297 	      (gnus-message 3 "nnkiboze: Checking %s..." (caar newsrc))
298 	      (setq ginfo (gnus-get-info (gnus-group-group-name))
299 		    orig-info (gnus-copy-sequence ginfo)
300 		    num-unread (car (gnus-gethash (caar newsrc)
301 						  gnus-newsrc-hashtb)))
315 				   (> (length (gnus-list-of-unread-articles
320 				   (gnus-group-select-group nil))
321 				 (eq major-mode 'gnus-summary-mode)))
323 		      (setq method (gnus-find-method-for-group
324 				    gnus-newsgroup-name))
325 		      (when (eq method gnus-select-method)
328 		      (while gnus-newsgroup-scored
329 			(when (> (caar gnus-newsgroup-scored) lowest)
334 			   (gnus-summary-article-header
335 			    (caar gnus-newsgroup-scored))
336 			   gnus-newsgroup-name))
337 			(setq gnus-newsgroup-scored (cdr gnus-newsgroup-scored)))
339 		      (when (eq major-mode 'gnus-summary-mode)
344 		(setcar (gnus-gethash (caar newsrc) gnus-newsrc-hashtb)
347 	    (gnus-message 3 "nnkiboze: Checking %s...done" (caar newsrc))
350       (gnus-make-directory (file-name-directory newsrc-file))
353 	(gnus-prin1 nnkiboze-newsrc)
357       (set-buffer gnus-group-buffer)
358       (gnus-group-list-groups)))
365     (let ((prefix (gnus-group-real-prefix group))