lisp/gnus/nnweb.el

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
35 (require 'message)
36 (require 'gnus-util)
37 (require 'gnus)
44 (autoload 'w3-parse-buffer "w3-parse")
48 (defvoo nnweb-directory (nnheader-concat gnus-directory "nnweb/")
98 (defvoo nnweb-buffer nil)
110     (set-buffer nntp-server-buffer)
111     (erase-buffer)
113       (mm-with-unibyte-current-buffer
122       (setq nnweb-hashtb (gnus-make-hashtable 4095))
151   (when (gnus-buffer-live-p nnweb-buffer)
153       (set-buffer nnweb-buffer)
154       (set-buffer-modified-p nil)
155       (kill-buffer nnweb-buffer)))
158 (deffoo nnweb-request-article (article &optional group server buffer)
161     (set-buffer (or buffer nntp-server-buffer))
165 		     (mm-with-unibyte-current-buffer
176 			 (mm-with-unibyte-current-buffer
189 	     (gnus-buffer-live-p nnweb-buffer))
191       (set-buffer nnweb-buffer)
192       (set-buffer-modified-p nil)
193       (kill-buffer nnweb-buffer)))
199     (set-buffer nntp-server-buffer)
218   (gnus-pull group nnweb-group-alist t)
220   (gnus-delete-file (nnweb-overview-file group))
230     (mm-with-unibyte-buffer
250   (gnus-sethash (nnweb-identifier (mail-header-xref header))
254   (gnus-gethash (nnweb-identifier url) nnweb-hashtb))
265   (gnus-make-directory nnweb-directory)
267     (prin1 `(setq nnweb-group-alist ',nnweb-group-alist) (current-buffer))))
289     (setq nnweb-hashtb (gnus-make-hashtable 4095)))
295   (unless (gnus-buffer-live-p nnweb-buffer)
296     (setq nnweb-buffer
299 	      (nnheader-set-temp-buffer
302 	      (current-buffer))))))
315 	  (or (re-search-forward "The requested message.*could not be found."
322 	  (gnus-message 3 "Requested article not found")
323 	  (erase-buffer))
334   "Parse search result in current buffer."
359       (setq Subject (buffer-string))
401       (mm-with-unibyte-current-buffer
408     (set-buffer nnweb-buffer)
409     (erase-buffer)
410     (nnheader-message 7 "Searching google...")
428 	      (erase-buffer)
429 	      (nnheader-message 7 "Searching google...(%d)" i)
432 	  (nnheader-message 7 "Searching google...done")
465     (set-buffer nnweb-buffer)
470       (erase-buffer)
471       (nnheader-message 7 "Searching Gmane..." )
476 	;; Thanks to Olly Betts we now have NOV lines in our buffer!
504       (nnheader-message 7 "Searching Gmane...done")
527   (setq buffer-file-name nil)
528   (set-buffer-multibyte t)