lisp/gnus/nnmh.el

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
37 (require 'gnus-start)
53   "If non-nil, nnmh will check all articles to make sure whether they are new or not.
54 Go through the .nnmh-articles file and compare with the actual
55 articles in this folder.  The articles that are \"new\" will be marked
81 (deffoo nnmh-retrieve-headers (articles &optional newsgroup server fetch-old)
86 	   (number (length articles))
94       (if (stringp (car articles))
96 	(while articles
101 					  (setq article (pop articles))))))
144 (deffoo nnmh-request-article (id &optional newsgroup server buffer)
157 (deffoo nnmh-request-group (group &optional server dont-check)
171 	   (nnmh-update-gnus-unreads group))
198 (deffoo nnmh-request-scan (&optional group server)
201 (deffoo nnmh-request-list (&optional server dir)
207     (nnmh-request-list-1 nnmh-toplev))
212 (defun nnmh-request-list-1 (dir)
225 	(nnmh-request-list-1 rdir))))
254 (deffoo nnmh-request-newgroups (date &optional server)
255   (nnmh-request-list server))
257 (deffoo nnmh-request-expire-articles (articles newsgroup
264     (while (and articles is-old)
266 			    (int-to-string (car articles))))
268 	(if (and (nnmh-deletable-article-p newsgroup (car articles))
275 		  (nnmh-request-article (car articles)
286 		 (push (car articles) rest))))
287 	  (push (car articles) rest)))
288       (setq articles (cdr articles)))
290     (nconc rest articles)))
295 (deffoo nnmh-request-move-article (article group server
301      (nnmh-request-article article group server)
317 (deffoo nnmh-request-accept-article (group &optional server last noinsert)
341 (deffoo nnmh-request-replace-article (article group buffer)
353 (deffoo nnmh-request-create-group (group &optional server args)
361       (let ((articles (mapcar
366 	(when articles
367 	  (setcar active (apply 'min articles))
368 	  (setcdr active (apply 'max articles))))))
371 (deffoo nnmh-request-delete-group (group &optional force server)
373   ;; Delete all articles in GROUP.
375       ()				; Don't delete the articles.
376     (let ((articles (directory-files nnmh-current-directory t "^[0-9]+$")))
377       (while articles
378 	(when (file-writable-p (car articles))
380 			    (car articles) group)
381 	  (funcall nnmail-delete-file-function (car articles)))
382 	(setq articles (cdr articles))))
392 (deffoo nnmh-request-rename-group (group new-name &optional server)
399       ;; We move the articles file by file instead of renaming
487 	(gnus-make-directory dir))
510 (defun nnmh-update-gnus-unreads (group)
511   ;; Go through the .nnmh-articles file and compare with the actual
512   ;; articles in this folder.  The articles that are "new" will be
519 	 (nnmh-file (concat dir ".nnmh-articles"))
520 	 new articles)
521     ;; Load the .nnmh-articles file.
523       (setq articles
524 	    (let (nnmh-newsgroup-articles)
526 	      nnmh-newsgroup-articles)))
527     ;; Add all new articles to the `new' list.
530 	(unless (assq (car art) articles)
533     ;; Remove all deleted articles.
534     (let ((art articles))
537 	  (setq articles (delq (car art) articles)))
539     ;; Check whether the articles really are the ones that Gnus thinks
541     (let ((arts articles)
548 	  (setq articles (delq art articles))
550     ;; Go through all the new articles and add them, and their
552     (setq articles
553 	  (nconc articles
560     ;; Make Gnus mark all new articles as unread.
562       (gnus-make-articles-unread
563        (gnus-group-prefixed-name group (list 'nnmh ""))
566     (setq articles (sort articles (lambda (art1 art2)
568     ;; Finally write this list back to the .nnmh-articles file.
571       (insert "(setq nnmh-newsgroup-articles '")
572       (gnus-prin1 articles)