lisp/gnus/nnwfm.el

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
37 (require 'gnus-util)
38 (require 'gnus)
47 (defvoo nnwfm-directory (nnheader-concat gnus-directory "wfm/")
66 (deffoo nnwfm-retrieve-headers (articles &optional group server fetch-old)
67   (nnwfm-possibly-change-server group server)
68   (unless gnus-nov-is-evil
111 	    (set-buffer nntp-server-buffer)
173 	  (set-buffer nntp-server-buffer)
180 (deffoo nnwfm-request-group (group &optional server dont-check)
181   (nnwfm-possibly-change-server nil server)
200 (deffoo nnwfm-request-article (article &optional group server buffer)
201   (nnwfm-possibly-change-server group server)
205 	(set-buffer (or buffer nntp-server-buffer))
216 (deffoo nnwfm-request-list (&optional server)
217   (nnwfm-possibly-change-server nil server)
236 		 (gnus-replace-in-string
249 (deffoo nnwfm-request-newgroups (date &optional server)
250   (nnwfm-possibly-change-server nil server)
287 		      (gnus-replace-in-string
296 		 (gnus-replace-in-string (nth 2 elem) "\"" "")
302 		time (nnwfm-date-to-time (gnus-url-unhex-string
346 (defun nnwfm-possibly-change-server (&optional group server)
347   (nnwfm-init server)
348   (when (and server
349 	     (not (nnwfm-server-opened server)))
350     (nnwfm-open-server server))
352     (nnwfm-read-groups)
356 (deffoo nnwfm-open-server (server &optional defs connectionless)
357   (nnheader-init-server-buffer)
358   (if (nnwfm-server-opened server)
361       (setq defs (append defs (list (list 'nnwfm-address server)))))
362     (nnoo-change-server 'nnwfm server defs)))
364 (defun nnwfm-read-groups ()
371 	(setq nnwfm-groups-alist (read (current-buffer)))))))
382 (defun nnwfm-init (server)
385     (gnus-make-directory nnwfm-directory)))
389     (set-buffer nntp-server-buffer)
409   (when (not (apply 'gnus-or