Lines Matching +defs:close +defs:group
56 (defvoo nnmbox-current-group nil
57 "Current nnmbox news group directory.")
63 (defvoo nnmbox-group-alist nil)
71 (defvar nnmbox-group-building-active-articles nil)
72 (defvar nnmbox-group-active-articles nil)
125 (nnmbox-close-server)
128 (nnmbox-close-server)
135 (deffoo nnmbox-close-server (&optional server)
139 (nnoo-close-server 'nnmbox server)
173 (cons nnmbox-current-group article)
174 (nnmbox-article-group-number nil)))))))
176 (deffoo nnmbox-request-group (group &optional server dont-check)
178 (let ((active (cadr (assoc group nnmbox-group-alist))))
181 (null (nnmbox-possibly-change-newsgroup group server)))
182 (nnheader-report 'nnmbox "No such group: %s" group))
184 (nnheader-report 'nnmbox "Selected group %s" group)
187 (nnheader-report 'nnmbox "Selected group %s" group)
190 (car active) (cdr active) group)))))
198 (defun nnmbox-save-active (group-alist active-file)
202 (nnmail-save-active group-alist active-file)))
204 (deffoo nnmbox-request-scan (&optional group server)
205 (nnmbox-possibly-change-newsgroup group server)
214 group
221 (nnmbox-save-active nnmbox-group-alist nnmbox-active-file))))
223 (deffoo nnmbox-close-group (group &optional server)
226 (deffoo nnmbox-request-create-group (group &optional server args)
228 (unless (assoc group nnmbox-group-alist)
229 (push (list group (cons 1 0))
230 nnmbox-group-alist)
231 (nnmbox-save-active nnmbox-group-alist nnmbox-active-file))
239 (setq nnmbox-group-alist (nnmail-get-active))
271 (nnmail-expiry-target-group
280 ;; Find the lowest active article in this group.
281 (let ((active (nth 1 (assoc newsgroup nnmbox-group-alist))))
285 (nnmbox-save-active nnmbox-group-alist nnmbox-active-file)
289 (article group server accept-form &optional last)
293 (nnmbox-request-article article group server)
307 (nnmbox-possibly-change-newsgroup group server)
314 (deffoo nnmbox-request-accept-article (group &optional server last)
315 (nnmbox-possibly-change-newsgroup group server)
337 group
340 (setq result (if (stringp group)
341 (list (cons group (nnmbox-active-number group)))
342 (nnmail-article-group 'nnmbox-active-number)))
344 (yes-or-no-p "Moved to `junk' group; delete article? "))
353 (nnmail-cache-close))
354 (nnmbox-save-active nnmbox-group-alist nnmbox-active-file)
358 (deffoo nnmbox-request-replace-article (article group buffer)
359 (nnmbox-possibly-change-newsgroup group)
369 (deffoo nnmbox-request-delete-group (group &optional force server)
370 (nnmbox-possibly-change-newsgroup group server)
377 ;; Delete all articles in this group.
378 (let ((ident (concat "\nX-Gnus-Newsgroup: " nnmbox-current-group ":"))
385 ;; Remove the group from all structures.
386 (setq nnmbox-group-alist
387 (delq (assoc group nnmbox-group-alist) nnmbox-group-alist)
388 nnmbox-current-group nil)
390 (nnmbox-save-active nnmbox-group-alist nnmbox-active-file)
393 (deffoo nnmbox-request-rename-group (group new-name &optional server)
394 (nnmbox-possibly-change-newsgroup group server)
398 (let ((ident (concat "\nX-Gnus-Newsgroup: " nnmbox-current-group ":"))
406 (let ((entry (assoc group nnmbox-group-active-articles)))
409 (let ((entry (assoc group nnmbox-group-alist)))
412 (setq nnmbox-current-group nil)
413 ;; Save the new group alist.
414 (nnmbox-save-active nnmbox-group-alist nnmbox-active-file)
429 (nnmbox-record-deleted-article (nnmbox-article-group-number t)))
449 ;; Only delete the article if no other group owns it as well.
460 (when (not nnmbox-group-alist)
463 (when (assoc newsgroup nnmbox-group-alist)
464 (setq nnmbox-current-group newsgroup))
469 (concat "\nX-Gnus-Newsgroup: " nnmbox-current-group ":"
473 (defun nnmbox-article-group-number (this-line)
514 (defun nnmbox-record-active-article (group-art)
515 (let* ((group (car group-art))
516 (article (cdr group-art))
518 (or (assoc group nnmbox-group-active-articles)
520 (push (list group)
521 nnmbox-group-active-articles)
522 (car nnmbox-group-active-articles)))))
525 (if (not nnmbox-group-building-active-articles)
529 (error "Article %s:%d already exists!" group article))
532 (error "Article %s:%d out of order" group article))
535 (defun nnmbox-record-deleted-article (group-art)
536 (let* ((group (car group-art))
537 (article (cdr group-art))
539 (or (assoc group nnmbox-group-active-articles)
541 (push (list group)
542 nnmbox-group-active-articles)
543 (car nnmbox-group-active-articles)))))
550 (cdr (assoc nnmbox-current-group
551 nnmbox-group-active-articles))))
553 (defun nnmbox-save-mail (group-art)
567 (nnmail-insert-xref group-art)
568 (nnmbox-insert-newsgroup-line group-art)
569 (let ((alist group-art))
575 group-art))
577 (defun nnmbox-insert-newsgroup-line (group-art)
582 (while group-art
584 (caar group-art) (cdar group-art)
586 (setq group-art (cdr group-art))))
589 (defun nnmbox-active-number (group)
591 (let ((active (cadr (assoc group nnmbox-group-alist))))
594 ;; This group is new, so we create a new entry for it.
597 (push (list group (setq active (cons 1 1)))
598 nnmbox-group-alist))
622 (alist nnmbox-group-alist)
623 (nnmbox-group-building-active-articles t)
633 ;; Go through the group alist and compare against the mbox file.
653 (setq nnmbox-group-active-articles nil)
664 ;; Build a list of articles in each group, remembering
665 ;; that each article may be in more than one group.
667 (nnmbox-record-active-article (nnmbox-article-group-number t))
669 (nnmbox-record-active-article (nnmbox-article-group-number t))))
691 (nnmail-article-group 'nnmbox-active-number))))))
694 (setq alist nnmbox-group-active-articles)