lisp/gnus/nnfolder.el

9 ;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
39 (require 'gnus)
40 (require 'gnus-util)
41 (require 'gnus-range)
44   (autoload 'gnus-article-unpropagatable-p "gnus-sum")
45   (autoload 'gnus-intersection "gnus-range"))
151 (defvar nnfolder-marks-modtime (gnus-make-hashtable))
160 (deffoo nnfolder-retrieve-headers (articles &optional group server fetch-old)
170 	    'headers
171 	  (if (nnfolder-retrieve-headers-with-nov articles fetch-old)
173 	    (setq articles (gnus-sorted-intersection
208 				    (point) (gnus-point-at-eol))))
218 				    (point) (gnus-point-at-eol))))
228 	    'headers))))))
233   (gnus-make-directory nnfolder-directory)
234   (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
236 	 (gnus-make-directory nnfolder-nov-directory)))
239 	 (gnus-make-directory nnfolder-marks-directory)))
292 				      (point) (gnus-point-at-eol)))
328 	     (if (not (gnus-buffer-live-p (nth 1 (car bufs))))
416 	    (if (nnmail-within-headers-p)
422     (articles newsgroup &optional server force)
423   (nnfolder-possibly-change-group newsgroup server)
430 	  (gnus-sorted-intersection articles (nnfolder-existing-articles))))
446 		       newsgroup
453 					  newsgroup server (current-buffer))
456 		   nnmail-expiry-target newsgroup)))
457 	      (nnfolder-possibly-change-group newsgroup server))
459 			      (car maybe-expirable) newsgroup)
461 	    (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
462 	      (nnfolder-nov-delete-article newsgroup (car maybe-expirable)))
469       (nnfolder-adjust-min-active newsgroup)
471       (gnus-sorted-difference articles (nreverse deleted-articles)))))
489 	   (gnus-delete-line))
499 	 (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
574       (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
577 	  (let ((headers (nnfolder-parse-head article
582 	      (nnheader-insert-nov headers)))))
614 	     (gnus-make-directory (file-name-directory new-file))
618 	       (gnus-make-directory (file-name-directory new-file))
622 	       (gnus-make-directory (file-name-directory new-file))
657 	  (if (nnmail-within-headers-p)
667   "Place point at the start of the headers of ARTICLE.
681 		(not (nnmail-within-headers-p))))
686 		  (not (nnmail-within-headers-p)))))
715   (unless (gnus-buffer-live-p nnfolder-current-buffer)
740 		     (not (gnus-buffer-live-p nnfolder-current-buffer)))
753 		(gnus-make-directory (file-name-directory file))
789       ;; Kill any previous newsgroup markers.
797       ;; Insert the new newsgroup marker.
798       (nnfolder-insert-newsgroup-line group-art)
808 	  (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
824 (defun nnfolder-insert-newsgroup-line (group-art)
849 	     (gnus-buffer-live-p (cadr inf)))
911 	  (unless (or gnus-nov-is-evil nnfolder-nov-is-evil
915 	      (gnus-make-directory (file-name-directory nov)))
937 	      (when (nnmail-within-headers-p)
943 		    (let ((headers (nnfolder-parse-head newnum)))
946 			(nnheader-insert-nov headers)))))))
991 	      (nnfolder-insert-newsgroup-line
996 		(let ((headers (nnfolder-parse-head newnum (point-min)
1000 		    (nnheader-insert-nov headers))))
1025   (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
1076     (gnus-make-directory (file-name-directory (buffer-file-name)))
1081   (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
1109 	  (gnus-make-directory (file-name-directory
1124 (defun nnfolder-retrieve-headers-with-nov (articles &optional fetch-old)
1125   (if (or gnus-nov-is-evil nnfolder-nov-is-evil)
1159 	(let ((headers (nnheader-parse-naked-head)))
1160 	  (mail-header-set-chars headers chars)
1161 	  (mail-header-set-number headers number)
1162 	  headers)))))
1164 (defun nnfolder-add-nov (group article headers)
1169     (mail-header-set-number headers article)
1170     (nnheader-insert-nov headers)))
1185 	  (setq nnfolder-marks (gnus-update-alist-soft
1187 			    (funcall (if (eq what 'add) 'gnus-range-add
1188 				       'gnus-remove-from-range)
1204 	      (unless (memq (cdr pred) gnus-article-unpropagated-mark-lists)
1205 		(gnus-info-set-marks
1207 		 (gnus-update-alist-soft
1210 		  (gnus-info-marks info))
1212 	    gnus-article-mark-lists)
1214       (gnus-info-set-read info
1229     (if (null (gnus-gethash file nnfolder-marks-modtime))
1231       (not (equal (gnus-gethash file nnfolder-marks-modtime)
1241 	    (gnus-prin1 nnfolder-marks)
1243 	  (gnus-sethash file
1246       (error (or (gnus-yes-or-no-p
1255 	      (gnus-sethash file (nth 5 (file-attributes file))
1259 	      (dolist (el gnus-article-unpropagated-mark-lists)
1260 		(setq nnfolder-marks (gnus-remassoc el nnfolder-marks))))
1261 	  (error (or (gnus-yes-or-no-p
1266       (let ((info (gnus-get-info
1267 		   (gnus-group-prefixed-name
1269 		    (gnus-server-to-method (format "nnfolder:%s" server))))))
1271 	(setq nnfolder-marks (gnus-info-marks info))
1272 	(push (cons 'read (gnus-info-read info)) nnfolder-marks)
1273 	(dolist (el gnus-article-unpropagated-mark-lists)
1274 	  (setq nnfolder-marks (gnus-remassoc el nnfolder-marks)))