Lines Matching +defs:list +defs:part
10 ;; This file is part of GNU Emacs.
140 (list "uncompress" "gunzip"))
143 "A list that can be set to override the default archive unpacking commands.
180 (defconst gnus-uu-ext-to-mime-list
245 Likely functions you can use in this list are `gnus-uu-grab-view'
368 (list current-prefix-arg
383 (list current-prefix-arg
393 (list current-prefix-arg
406 (list current-prefix-arg
424 (list current-prefix-arg
440 (list current-prefix-arg
450 (list current-prefix-arg
461 (list current-prefix-arg
633 "Invert the list of process-marked articles."
716 (list current-prefix-arg
727 (list current-prefix-arg
746 (let ((articles (gnus-uu-get-list-of-articles n))
761 "Return a list of all files under DIR."
766 (push (list (cons 'name file)
807 (cond ((eq in-state 'first) (list gnus-uu-saved-article-name 'begin))
808 ((eq in-state 'first-and-last) (list gnus-uu-saved-article-name
810 ((eq in-state 'last) (list 'end))
811 (t (list 'middle)))))
816 (cond ((eq in-state 'first) (list gnus-uu-saved-article-name 'begin))
817 ((eq in-state 'first-and-last) (list gnus-uu-saved-article-name
819 ((eq in-state 'last) (list 'end))
820 (t (list 'middle)))))
831 (setq state (list 'begin))
847 (setq state (list 'middle))))
906 (insert "\n<#part type=message/rfc822"
974 (setq state (list 'wrong-type))))
982 (setq state (list 'begin))
985 (setq state (list 'middle)))
993 (list 'end))))
1005 (let ((state (list 'ok))
1011 (setq state (list 'wrong-type))
1015 (setq state (list 'wrong-type))
1022 (setq state (list file-name 'begin 'end)))))
1035 (setcar files (nconc (list (if (string= action "gnus-uu-archive")
1058 (gnus-uu-choose-action file-name gnus-uu-ext-to-mime-list))
1098 (defun gnus-uu-get-list-of-articles (n)
1103 ;; Failing that, articles that have subjects that are part of the
1134 list-of-subjects)
1152 list-of-subjects))))
1154 ;; Expand numbers, sort, and return the list of article
1158 list-of-subjects
1162 (defun gnus-uu-expand-numbers (string-list &optional translate)
1163 ;; Takes a list of strings and "expands" all numbers in all the
1167 ;; decoded in. Returns the list of expanded strings.
1168 (let ((out-list string-list)
1173 (while string-list
1175 (insert (caar string-list))
1194 (setcar (car string-list) string)
1195 (setq string-list (cdr string-list))))
1196 out-list))
1200 ;; function. It takes a list of articles to be grabbed and a function
1208 ;; The second parameter is the state of the list of articles, and can
1211 ;; The function should return a list. The list may contain the
1215 ;; If the list returned contains a `begin', the first element of
1216 ;; the list *must* be a string with the file name of the decoded
1219 ;; `middle' if the article was a body part of an encoded file
1220 ;; `wrong-type' if the article was not a part of an encoded file
1225 (defun gnus-uu-unmark-list-of-grabbed (&optional dont-unmark-last-article)
1237 (setq gnus-uu-has-been-grabbed (list art))))))
1239 ;; This function takes a list of articles and a function to apply to
1242 ;; This function returns a list of files decoded if the grabbing and
1268 (let ((part (gnus-uu-part-number article)))
1270 article (if (string= part "") "" (concat ", " part))))
1286 ;; on to a list.
1311 (setq files (list result-file))
1315 (push (list (cons 'name (pop files))
1322 (setq funcs (list funcs)))
1355 (setq process-state (list 'error))
1356 (gnus-message 2 "No begin part at the beginning")
1399 (defun gnus-uu-part-number (article)
1402 (part nil))
1406 (setq part (match-string 0 subject))
1408 (or part
1410 (setq part (match-string 0 subject))
1412 (or part "")))
1421 (let ((state (list 'wrong-type))
1434 (setq state (list 'ok))
1440 (setq state (list 'middle))
1460 (gnus-uu-unmark-list-of-grabbed t))
1477 (setq state (list 'begin))
1503 (setq state (list 'wrong-type)))))
1516 (setq state (list 'wrong-type)))))))
1540 (let ((state (list 'ok))
1546 (setq state (list 'wrong-type))
1562 (setq state (list 'error))))))
1585 ;; and `gnus-uu-file-action-list'. Returns either nil if no action is
1587 (defun gnus-uu-choose-action (file-name file-action-list &optional no-ignore)
1588 (let ((action-list (copy-sequence file-action-list))
1600 file-name gnus-uu-ext-to-mime-list t)
1602 (while (not (or (eq action-list ()) action))
1603 (setq rule (car action-list))
1604 (setq action-list (cdr action-list))
1675 (push (list (cons 'name (car nfiles))
1928 (gnus-uu-choose-action file-name gnus-uu-ext-to-mime-list)