Lines Matching +defs:function +defs:list
112 (defcustom gnus-agent-confirmation-function 'y-or-n-p
116 :type 'function)
121 ;; If the default switches to something else than nil, then the function
164 The function will split its article fetches into chunks smaller than
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
242 2) The function `gnus-agent-regenerate' may destructively modify the value.")
251 (defvar gnus-agent-send-mail-function nil)
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))))
459 (put 'gnus-agent-with-fetch 'lisp-indent-function 0)
462 (defmacro gnus-agent-append-to-list (tail value)
595 (interactive (list (not gnus-plugged)))
624 (put 'gnus-agent-while-plugged 'lisp-indent-function 0)
658 The gnus-agentize function is now called internally by gnus when
663 `message-send-mail-real-function' variables, and install the Gnus agent
668 (unless gnus-agent-send-mail-function
669 (setq gnus-agent-send-mail-function
670 (or message-send-mail-real-function
671 (function (lambda () (funcall message-send-mail-function))))
672 message-send-mail-real-function 'gnus-agent-send-mail))
706 (funcall gnus-agent-send-mail-function)
779 (interactive (list (gnus-group-group-name)))
793 (list
797 (mapcar (lambda (cat) (list (symbol-name (car cat))))
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))
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)
1433 (defun gnus-agent-get-function (method)
1480 (selected-sets (list nil))
1530 (let* ((fetched-articles (list nil))
1546 (if (gnus-check-backend-function 'retrieve-articles group)
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)))
1770 (gnus-decode-encoded-word-function 'identity)
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)))))))
1861 ;; It is unfortunate but the read function quietly overflows
1899 `nntp-server-buffer'. This function can be used, when file
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)))))
2258 (let ((gnus-agent-confirmation-function 'gnus-agent-batch-confirmation))
2289 (unless (funcall gnus-agent-confirmation-function
2295 (unless (funcall gnus-agent-confirmation-function
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))))
2844 (defun gnus-category-make-function (predicate)
2845 "Make a function from PREDICATE."
2846 (let ((func (gnus-category-make-function-1 predicate)))
2860 (defun gnus-category-make-function-1 (predicate)
2861 "Make a function from PREDICATE."
2877 ,@(mapcar 'gnus-category-make-function-1 (cdr predicate))))
2882 "Return the function implementing PREDICATE."
2884 (let ((func (gnus-category-make-function predicate)))
2887 (list (cons predicate func))))
2895 (eq t (gnus-function-implies-unread-1
2896 (gnus-category-make-function-1 predicate))))
2898 (defun gnus-function-implies-unread-1 (function)
2899 "Recursively evaluate a predicate function to determine whether it can select
2900 any read articles. Returns t if the function is known to never
2902 articles, and t_nil when the function may return both read and unread
2904 (let ((func (car function))
2905 (args (mapcar 'gnus-function-implies-unread-1 (cdr function))))
2944 (error "Unknown predicate function: %s" function)))))
2961 If you want to force expiring of certain articles, this function can
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)))
3010 ;; Internal function - requires caller to have set
3043 (list (caar (last alist)))))
3050 ;; All articles are marked read by function
3056 ;; gnus-list-of-unread-articles as it returns
3075 ;; All articles are unmarked by function
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
3348 If you want to force expiring of certain articles, this function can
3354 if ARTICLES is a list, just those articles.
3370 (gnus-agent-expire-stats (list 0 0 0.0))
3436 (function
3480 (function
3504 (let ((gnus-agent-confirmation-function 'gnus-agent-batch-confirmation))
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)))
3573 (let ((gnus-decode-encoded-word-function 'identity)
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)))))))
3928 (list (list
3931 (delq nil (mapcar (function (lambda (c)
3963 (interactive (list t))
3975 (interactive (list (gnus-group-group-name)))