Lines Matching +defs:list +defs:flags
118 (defcustom gnus-agent-synchronize-flags t
119 "Indicate if flags are synchronized when you plug in.
233 "An assoc list identifying the articles whose headers have been fetched.
239 1) The last element of this list can not be expired as some
334 "Define accessor and setter methods for manipulating a list of the form
336 Given the call (gnus-agent-cat-defaccessor func PROPERTY1), the list may be
341 (list (quote cdr) (list (quote assq)
347 (list (list --category--temp--) ; temporary-variables
348 (list category) ; value-forms
349 (list --value--temp--) ; store-variables
352 (list (quote gnus-agent-cat-set-property)
356 (list (quote ,name) --category--temp--) ; access-form
393 (list (list --category--temp--)
394 (list category)
395 (list --groups--temp--)
398 (list (quote gnus-agent-set-cat-groups) category groups))
399 (list (quote gnus-agent-cat-groups) --category--temp--))))
408 ;; list. Still, Im done.
412 ;; gnus-agent-add-group is fiddling with the group list
436 (list name `(agent-predicate . ,(or default-agent-predicate 'false))))
462 (defmacro gnus-agent-append-to-list (tail value)
514 "JY" gnus-agent-synchronize-flags
534 ["Synchronize flags" gnus-agent-synchronize-flags t]
595 (interactive (list (not gnus-plugged)))
606 (gnus-agent-possibly-synchronize-flags))
779 (interactive (list (gnus-group-group-name)))
793 (list
797 (mapcar (lambda (cat) (list (symbol-name (car cat))))
824 (defun gnus-agent-synchronize-flags ()
825 "Synchronize unplugged flags with servers."
829 (when (file-exists-p (gnus-agent-lib-file "flags"))
830 (gnus-agent-synchronize-flags-server gnus-command-method)))))
832 (defun gnus-agent-possibly-synchronize-flags ()
833 "Synchronize flags according to `gnus-agent-synchronize-flags'."
837 (when (and (file-exists-p (gnus-agent-lib-file "flags"))
839 (gnus-agent-possibly-synchronize-flags-server gnus-command-method)))))
841 (defun gnus-agent-synchronize-flags-server (method)
842 "Synchronize flags set when unplugged for server."
845 (when (file-exists-p (gnus-agent-lib-file "flags"))
848 (nnheader-insert-file-contents (gnus-agent-lib-file "flags"))
851 1 "You must be plugged to synchronize flags with server %s"
863 (delete-file (gnus-agent-lib-file "flags")))
865 (let ((file (gnus-agent-lib-file "flags")))
867 (gnus-agent-lib-file "flags") nil 'silent)
868 (error "Couldn't set flags from file %s due to %s"
872 (defun gnus-agent-possibly-synchronize-flags-server (method)
873 "Synchronize flags for server according to `gnus-agent-synchronize-flags'."
874 (when (or (and gnus-agent-synchronize-flags
875 (not (eq gnus-agent-synchronize-flags 'ask)))
876 (and (eq gnus-agent-synchronize-flags 'ask)
877 (gnus-y-or-n-p (format "Synchronize flags on server `%s'? "
879 (gnus-agent-synchronize-flags-server method)))
1080 (gnus-add-to-sorted-list gnus-newsgroup-downloadable article))
1085 (defun gnus-agent-get-undownloaded-list ()
1086 "Construct list of articles that have not been downloaded."
1095 (undownloaded (list nil))
1097 (unfetched (list nil))
1110 (gnus-agent-append-to-list tail-undownloaded h)
1111 (gnus-agent-append-to-list tail-unfetched h)
1128 (gnus-agent-append-to-list tail-undownloaded a))))))
1132 (gnus-agent-append-to-list tail-undownloaded num)
1133 (gnus-agent-append-to-list tail-unfetched num)))
1222 (list gnus-current-article))
1231 (defun gnus-agent-synchronize-group-flags (group actions server)
1266 (gnus-info-set-marks info (cons (setq info-marks (list mark)) (gnus-info-marks info))))
1330 ;; printing this list to the buffer, and then writing it to a
1338 (list (cons (1+ agent-max)
1480 (selected-sets (list nil))
1530 (let* ((fetched-articles (list nil))
1598 (gnus-agent-append-to-list
1645 (push (setq alist (list group (gnus-agent-load-alist (caar crosses))))
1759 file will be updated to include the headers while a list of available
1769 (gnus-list-of-unread-articles group)))
1774 ;; Add articles with marks to the list of article headers we want to
1784 ;; At this point, I have the list of articles to consider for
1785 ;; fetching. This is the list that I'll return to my caller. Some
1788 ;; filter this list to just those articles whose headers need to
1815 ;; gnus-list-range-intersection returns nil which
1817 (setq articles (gnus-list-range-intersection
1818 articles (list (cons low high)))))))
2033 (lambda (comp-list)
2034 (let ((state (car comp-list))
2037 (cdr comp-list)))))
2062 (setcdr prev (list (cons article state))))
2083 (comp-list (assq day-of-download compressed)))
2084 (if comp-list
2085 (setcdr comp-list
2086 (cons article-id (cdr comp-list)))
2088 (cons (list day-of-download article-id)
2091 (mapcar (lambda (comp-list)
2092 (setcdr comp-list
2094 (nreverse (cdr comp-list)))))
2383 (setq score-param (list (list score-param)))))
2389 (let ((arts (list nil)))
2411 ;; predicate, add it to the download list
2433 (gnus-agent-append-to-list arts-tail num))))))
2559 "l" gnus-category-list
2621 (list 'gnus-category gnus-tmp-name))))
2663 ;; earlier version, we can take out the old-list code in
2665 (let* ((old-list (read (current-buffer)))
2666 (new-list (ignore-errors (read (current-buffer)))))
2667 (if new-list
2668 new-list
2669 ;; Convert from a positional list to an alist.
2681 old-list)))))
2682 (list (gnus-agent-cat-make 'default 'short)))))
2693 (list (car c)
2704 (interactive (list (gnus-category-name)))
2718 (gnus-category-list)))))
2722 (interactive (list (gnus-category-name)))
2736 (gnus-category-list)))))
2739 "Edit the group list for CATEGORY."
2740 (interactive (list (gnus-category-name)))
2744 (format "Editing the group list for category %s" category)
2754 (gnus-category-list)))))
2758 (interactive (list (gnus-category-name)))
2767 (interactive (list (gnus-category-name) (intern (read-string "New name: "))))
2775 (gnus-category-list)))
2785 (gnus-category-list))
2787 (defun gnus-category-list ()
2799 (defvar gnus-category-not (list '! 'not (intern (format "%c" 172))))
2887 (list (cons predicate func))))
2967 if ARTICLES is a list, just those articles.
2970 (list (let ((def (or (gnus-group-group-name)
2985 (gnus-agent-expire-stats (list 0 0 0.0)))
3043 (list (caar (last alist)))))
3056 ;; gnus-list-of-unread-articles as it returns
3080 ;; unreads list already names the articles we are
3100 ;; information with this list. For example, a flag indicating
3109 (list (car e) (cdr e) nil nil)) alist))
3117 (list e nil 'unread nil))
3121 (list e nil 'marked nil))
3125 (list e nil 'special nil))
3141 ;; to the list
3142 (push (list (+ 0 (read (current-buffer))) nil nil
3182 (while (cdr dlist) ; I'm not at the end-of-list
3202 (alist (list nil))
3235 (gnus-agent-append-to-list
3295 (gnus-agent-append-to-list
3308 (gnus-agent-append-to-list
3354 if ARTICLES is a list, just those articles.
3370 (gnus-agent-expire-stats (list 0 0 0.0))
3511 (unread (list nil))
3520 (gnus-agent-append-to-list tail-unread candidate)
3527 ;; candidate will be added to the unread list.
3530 (gnus-agent-append-to-list tail-unread (car (pop known))))
3543 ;; Functionally, I don't need to construct a temp list using mapcar.
3549 (uncached (list nil))
3554 (cond ((< v1 v2) ; v1 does not appear in the reference list
3555 (gnus-agent-append-to-list tail-uncached v1)
3559 (gnus-agent-append-to-list tail-uncached v1))
3562 (t ; reference article (v2) preceeds the list being filtered
3565 (gnus-agent-append-to-list tail-uncached (pop arts)))
3613 (let* ((fetched-articles (list nil))
3623 ;; Get the list of articles that were fetched
3629 (gnus-agent-append-to-list tail-fetched-articles art))
3632 ;; Clip this list to the headers that will
3634 (setq fetched-articles (gnus-list-range-intersection
3638 ;; Clip the uncached articles list to exclude
3643 (gnus-list-range-intersection
3648 ;; Create the list of articles that were
3720 If REREAD is a list, the specified articles will be marked as unread.
3725 (list (let ((def (or (gnus-group-group-name)
3866 ;; article (with the exception of the last ID in the list - it's
3868 ;; situtation, the last article ID in the list implies that it,
3881 (setq n (setcdr n (list (list oID))))
3884 (setcdr n (cons (list oID) (cdr n)))
3900 (setcdr n (list (car o)))))))
3926 (gnus-agent-synchronize-group-flags
3928 (list (list
3963 (interactive (list t))
3975 (interactive (list (gnus-group-group-name)))