Lines Matching +refs:news +refs:next +refs:group
8 ;; Keywords: news
45 One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward',
51 "*Whether the nndoc group is `mail' or `post'.")
74 (news
194 (defvoo nndoc-group-alist nil)
196 "Current nndoc news buffer.")
261 (deffoo nndoc-request-group (group &optional server dont-check)
262 "Select news GROUP."
265 ((not (nndoc-possibly-change-buffer group server))
269 (nnheader-report 'nndoc "Selected group %s" group)
272 (nndoc-close-group group)
273 (nnheader-report 'nndoc "No articles in group %s" group))
275 (nnheader-insert "211 %d %d %d %s\n" number 1 number group)))))
277 (deffoo nndoc-request-type (group &optional article)
282 (deffoo nndoc-close-group (group &optional server)
283 (nndoc-possibly-change-buffer group server)
287 (setq nndoc-group-alist (delq (assoc group nndoc-group-alist)
288 nndoc-group-alist))
307 (defun nndoc-possibly-change-buffer (group source)
310 ;; The current buffer is this group's buffer.
314 (setq buf (cdr (assoc group nndoc-group-alist))))))
315 ;; We change buffers by taking an old from the group alist.
319 ;; It's a totally new group.
325 (push (cons group (setq nndoc-current-buffer
327 (concat " *nndoc " group "*"))))
328 nndoc-group-alist)
440 (defun nndoc-news-type-p ()
460 (let ((next (or (save-excursion
463 (unless (re-search-forward "^\n" next t)
464 (goto-char next)
703 (nndoc-read-little-endian) ;; next address offset
705 (nndoc-read-little-endian))) ;; next address
788 (deffoo nndoc-request-accept-article (group &optional server last)