Lines Matching +defs:gnus +defs:current +defs:article
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
37 (require 'gnus-start)
50 "Hook run narrowed to an article before saving.")
64 (defvoo nnmh-current-directory nil
91 beg article)
99 nnmh-current-directory)
101 (setq article (pop articles))))))
103 (insert (format "221 %d Article retrieved.\n" article))
144 (deffoo nnmh-request-article (id &optional newsgroup server buffer)
148 (concat nnmh-current-directory (int-to-string id))))
168 (setq nnmh-current-directory pathname)
171 (nnmh-update-gnus-unreads group))
261 article rest mod-time)
265 (setq article (concat nnmh-current-directory
267 (when (setq mod-time (nth 5 (file-attributes article)))
268 (if (and (nnmh-deletable-article-p newsgroup (car articles))
270 (nnmail-expired-article-p newsgroup mod-time force)))
275 (nnmh-request-article (car articles)
276 newsgroup server (current-buffer))
279 (nnheader-message 5 "Deleting article %s in %s..."
280 article newsgroup)
282 (funcall nnmail-delete-file-function article)
284 (nnheader-message 1 "Couldn't delete article %s in %s"
285 article newsgroup)
295 (deffoo nnmh-request-move-article (article group server
300 (nnmh-deletable-article-p group article)
301 (nnmh-request-article article group server)
307 (kill-buffer (current-buffer))
313 (concat nnmh-current-directory (int-to-string article)))
317 (deffoo nnmh-request-accept-article (group &optional server last noinsert)
333 (let ((res (nnmail-article-group 'nnmh-active-number)))
335 (yes-or-no-p "Moved to `junk' group; delete article? "))
341 (deffoo nnmh-request-replace-article (article group buffer)
349 (concat nnmh-current-directory (int-to-string article))
365 nnmh-current-directory nil "^[0-9]+$"))))
376 (let ((articles (directory-files nnmh-current-directory t "^[0-9]+$")))
379 (nnheader-message 5 "Deleting article %s in %s..."
385 (delete-directory nnmh-current-directory)))
389 nnmh-current-directory nil)
402 (let ((files (nnheader-article-to-file-alist old-dir)))
415 (setq nnmh-current-directory nil)
432 (setq nnmh-current-directory pathname)
448 "Called narrowed to an article."
458 ;; We save the article in all the newsgroups it belongs in.
469 ;; Save the article.
476 "Compute the next article number in GROUP."
487 (gnus-make-directory dir))
510 (defun nnmh-update-gnus-unreads (group)
514 (let* ((dir nnmh-current-directory)
516 (directory-files nnmh-current-directory
562 (gnus-make-articles-unread
563 (gnus-group-prefixed-name group (list 'nnmh ""))
565 ;; Sort the article list with highest numbers first.
570 (insert ";; Gnus article active file for " group "\n\n")
572 (gnus-prin1 articles)
575 (defun nnmh-deletable-article-p (group article)
577 (let ((path (concat nnmh-current-directory (int-to-string article))))
581 ;; We can never delete the last article in the group.
583 article))