• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.9.5/emacs-92/emacs/lisp/gnus/

Lines Matching +defs:gnus +defs:request +defs:accept +defs:article

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
37 (require 'gnus-start)
50 "Hook run narrowed to an article before saving.")
91 beg article)
101 (setq article (pop articles))))))
103 (insert (format "221 %d Article retrieved.\n" article))
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
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)
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
296 accept-form &optional last)
300 (nnmh-deletable-article-p group article)
301 (nnmh-request-article article group server)
306 (setq result (eval accept-form))
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))
353 (deffoo nnmh-request-create-group (group &optional server args)
371 (deffoo nnmh-request-delete-group (group &optional force server)
379 (nnheader-message 5 "Deleting article %s in %s..."
392 (deffoo nnmh-request-rename-group (group new-name &optional server)
402 (let ((files (nnheader-article-to-file-alist old-dir)))
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)
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))