Lines Matching +defs:range +defs:list
116 (defvar news-user-group-list nil)
122 "An assoc list of a group name and the time at which it is
133 (defvar news-list-of-files nil
134 "Global variable in which we store the list of files
136 (defvar news-list-of-files-possibly-bogus nil
140 ;; association list in which we store lists of the form
153 (list 'setq ref (list 'cons item ref)))
155 (defmacro news-cadr (x) (list 'car (list 'cdr x)))
156 (defmacro news-cdar (x) (list 'cdr (list 'car x)))
157 (defmacro news-caddr (x) (list 'car (list 'cdr (list 'cdr x))))
158 (defmacro news-cadar (x) (list 'car (list 'cdr (list 'car x))))
159 (defmacro news-caadr (x) (list 'car (list 'car (list 'cdr x))))
160 (defmacro news-cdadr (x) (list 'cdr (list 'car (list 'cdr x))))
208 Type \\[describe-mode] once reading news to get a list of rnews commands."
257 ;; This is an assoc list of group names with doubletons that represent
276 "Creates a minor mode list that has group name, total articles,
278 (setq news-minor-modes (list (cons 'foo
284 ;; directly from news-minor-modes by using a list for mode-name.
291 (if (null news-list-of-files)
310 (define-key news-mode-map "l" 'news-list-news-groups)
341 l list all the news groups with current status.
397 (list 'setcar
398 (list 'news-cdadr
399 (list 'assoc ngroup 'news-group-article-assoc))
402 (defun news-parse-range (number-string)
403 "Parse string representing range of numbers of he form <a>-<b>
404 to a list (a . b)"
422 (if (not (null news-user-group-list))
425 (setq news-user-group-list ())
441 (let ((range (news-parse-range
448 (cons (list tem (list (car range)
449 (cdr range)
450 (cdr range)))
456 (setq news-user-group-list temp-user-groups)
465 (defun news-list-news-groups ()
475 (let ((temp news-user-group-list)
510 (interactive (list (completing-read "NewsGroup: "
539 (or (news-cadr (memq (news-cdar news-point-pdl) news-list-of-files))
569 (t (error "Article out of range")))
572 news-list-of-files)))
588 (let ((plist (news-get-motion-lists cg news-user-group-list))
602 (while (null news-list-of-files)
611 (while (null news-list-of-files)
616 "Given a msgnumber/group this will return a list of two lists;
623 (throw 'out (cons (cdr temp) (list result)))
624 (setq result (nconc (list (car temp)) result))
699 (setq news-user-group-list ()))
706 (tem news-user-group-list)
741 (interactive (list (completing-read "Unsubscribe from group: "
767 (defun news-get-pruned-list-of-files (gp-list end-file-no)
776 (news-group-certification gp-list))
777 (setq news-list-of-files nil
778 news-list-of-files-possibly-bogus t)))
780 (string-subst-char ?/ ?. gp-list)))
786 (setq news-list-of-files-possibly-bogus t news-list-of-files nil)
789 (setq news-list-of-files-possibly-bogus t
792 (news-push last-winner news-list-of-files)
794 news-list-of-files)
798 (setq news-list-of-files
804 gp-list)
807 (setq tem news-list-of-files)
814 (setq news-list-of-files
815 (delq (car tem) news-list-of-files)))
817 (if (null news-list-of-files)
820 (setq news-list-of-files
821 (mapcar 'string-to-number news-list-of-files))
822 (setq news-list-of-files (sort news-list-of-files '<))
824 (elt news-list-of-files
825 (1- (length news-list-of-files))))
826 news-list-of-files)))))))
838 (news-get-pruned-list-of-files group end-file-no)
842 (setq news-point-pdl (list (cons (car files-start-end)
844 (if (null news-list-of-files)
852 (setq news-current-group-begin (car news-list-of-files))
855 (if (> (car news-list-of-files) end-file-no)
856 (setcdr (car news-point-pdl) (car news-list-of-files)))
895 "Added %s to your list of newsgroups." gp)
907 (let ((range (news-parse-range
910 (cons (list tem (list (car range)
911 (cdr range)
912 (cdr range)))
938 (list (prefix-numeric-value current-prefix-arg))
939 (list nil)))
978 (list (prefix-numeric-value current-prefix-arg))
979 (list nil)))