Lines Matching +defs:list +defs:part
9 ;; This file is part of GNU Emacs.
158 This variable can also be a list of regexps of headers to be ignored.
168 This variable can also be a list of regexp of headers to remain visible.
174 (widget-editable-list-match widget value)))
178 (defcustom gnus-sorted-header-list
181 "*This variable is a list of regular expressions.
184 this list."
190 Possible values in this list are:
195 'to-list To identical to To-list.
196 'cc-list CC identical to To-list.
205 (const :tag "To identical to To-list." to-list)
206 (const :tag "CC identical to To-list." cc-list)
226 This can also be a list of regexps. In that case, it will be checked
250 "Property list to use for hiding text."
340 (list (format format (car (car value)) (cdr (car value)))
354 (list (cons (match-string 1 pattern) (match-string 2 pattern))
371 (list (format format (car spec) (cadr spec))
649 value is a list of possible files to save in if the match is non-nil.
654 parameter. If it is a list, it will be evaled in the same buffer.
657 a possible file name; and if it returns a non-nil list, that list will
660 :type '(repeat (choice (list :value (fun) function)
828 specified by the first element in the list where HEADER matches
833 :type '(repeat (list (regexp :tag "Header")
900 this list to display radio buttons that allow you to choose one of two
945 (defcustom gnus-article-mime-part-function nil
970 This is meant for people who want to view first matched part.
972 part or alternative part is used. For `undisplayed', the first
973 undisplayed part is used. For a function, the first part which
974 the function return t is used. For nil, the first part is
986 '(("save to file" . gnus-mime-save-part)
987 ("save and strip" . gnus-mime-save-part-and-strip)
988 ("delete part" . gnus-mime-delete-part)
989 ("display as text" . gnus-mime-inline-part)
990 ("view the part" . gnus-mime-view-part)
991 ("pipe to command" . gnus-mime-pipe-part)
993 ("toggle display" . gnus-article-view-part-as-charset)
994 ("view as type" . gnus-mime-view-part-as-type)
995 ("view internally" . gnus-mime-view-part-internally)
996 ("view externally" . gnus-mime-view-part-externally))
1006 (defvar gnus-part-display-hook nil
1143 (defcustom gnus-treat-strip-list-identifiers 'head
1144 "Strip list identifiers from `gnus-list-identifiers`.
1569 (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers)
1619 (?m (gnus-article-mime-part-status) ?s))
1702 (while (if (get-text-property (point) 'gnus-part)
1705 'gnus-part))
1731 "Give the rank of the string HEADER as given by `gnus-sorted-header-list'."
1732 (let ((list gnus-sorted-header-list)
1734 (while list
1735 (if (looking-at (car list))
1736 (setq list nil)
1737 (setq list (cdr list))
1748 (max (1+ (length gnus-sorted-header-list)))
1817 (list gnus-boring-article-headers)
1821 (while list
1822 (setq elem (pop list))
1859 ((eq elem 'to-list)
1861 (to-list
1862 (gnus-parameter-to-list
1865 (when (and to to-list
1870 to-list)))
1872 ((eq elem 'cc-list)
1874 (to-list
1875 (gnus-parameter-to-list
1878 (when (and cc to-list
1883 to-list)))
2250 (interactive (list 'force))
2279 (setq x-faces (list (car x-faces))))
2465 (interactive (list 'force current-prefix-arg))
2493 (interactive (list 'force current-prefix-arg))
2560 (list (cons 1 charset))))
2610 (list 'keymap w3m-minor-mode-map
2611 ;; Put the mark meaning this part was rendered by emacs-w3m.
2631 (defun article-hide-list-identifiers ()
2632 "Remove list identifies from the Subject header.
2633 The `gnus-list-identifiers' variable specifies what to do."
2636 (regexp (if (consp gnus-list-identifiers)
2637 (mapconcat 'identity gnus-list-identifiers " *\\|")
2638 gnus-list-identifiers))
2870 (list gnus-signature-limit)))
2906 (list (if current-prefix-arg
2981 (interactive (list 'ut t))
3067 (cond ((< ls 0) (list (1- ms) (+ ls 65536)))
3068 ((> ls 65535) (list (1+ ms) (- ls 65536)))
3069 (t (list ms ls)))))
3164 (interactive (list t))
3169 (interactive (list t))
3176 (interactive (list t))
3181 (interactive (list t))
3223 (interactive (list t))
3228 (interactive (list t))
3421 ;; A list of splits was found.
3708 (let ((mm-security-handle (list (format "multipart/signed"))))
3765 (interactive (list t))
3787 article-hide-list-identifiers
3920 (make-local-variable 'gnus-button-marker-list)
3942 (defvar gnus-button-marker-list nil
3993 ;; This list just keeps growing if we don't reset it.
3994 (setq gnus-button-marker-list nil)
4161 %l The length of the encoded part
4162 %p The part identifier number
4163 %e Dots if the part isn't displayed
4179 (gnus-mime-view-part "v" "View Interactively...")
4180 (gnus-mime-view-part-as-type "t" "View As Type...")
4181 (gnus-mime-view-part-as-charset "C" "View As charset...")
4182 (gnus-mime-save-part "o" "Save...")
4183 (gnus-mime-save-part-and-strip "\C-o" "Save and Strip")
4184 (gnus-mime-delete-part "d" "Delete part")
4185 (gnus-mime-copy-part "c" "View As Text, In Other Buffer")
4186 (gnus-mime-inline-part "i" "View As Text, In This Buffer")
4187 (gnus-mime-view-part-internally "E" "View Internally")
4188 (gnus-mime-view-part-externally "e" "View Externally")
4189 (gnus-mime-print-part "p" "Print")
4190 (gnus-mime-pipe-part "|" "Pipe To Command...")
4191 (gnus-mime-action-on-part "." "Take action on the part...")))
4193 (defun gnus-article-mime-part-status ()
4196 " (1 part)"
4227 t (list (car menu)
4262 (defun gnus-mime-save-part-and-strip ()
4263 "Save the MIME part under point then replace it with an external body."
4276 (setq file (and data (mm-save-part data)))
4283 ;; Add a filename for the sake of saving the part again.
4304 (mbl mml-buffer-list))
4305 (setq mml-buffer-list nil)
4309 (let ((mbl1 mml-buffer-list))
4310 (setq mml-buffer-list mbl)
4311 (set (make-local-variable 'mml-buffer-list) mbl1))
4326 (kill-local-variable 'mml-buffer-list))
4332 (defun gnus-mime-delete-part ()
4333 "Delete the MIME part under point.
4334 Replace it with some information about the removed part."
4355 (error "No MIME part under point"))
4372 (list "attachment")
4376 ;; `gnus-mime-save-part-and-strip') isn't necessary?
4385 (mbl mml-buffer-list))
4386 (setq mml-buffer-list nil)
4390 (let ((mbl1 mml-buffer-list))
4391 (setq mml-buffer-list mbl)
4392 (set (make-local-variable 'mml-buffer-list) mbl1))
4407 (kill-local-variable 'mml-buffer-list))
4412 ;; Not in `gnus-mime-save-part-and-strip':
4417 (defun gnus-mime-save-part ()
4418 "Save the MIME part under point."
4423 (mm-save-part data))))
4425 (defun gnus-mime-pipe-part ()
4426 "Pipe the MIME part under point to a process."
4431 (mm-pipe-part data))))
4433 (defun gnus-mime-view-part ()
4434 "Interactively choose a viewing method for the MIME part under point."
4442 (mm-interactively-view-part data))))
4444 (defun gnus-mime-view-part-as-type-internal ()
4455 (defun gnus-mime-view-part-as-type (&optional mime-type pred)
4456 "Choose a MIME media type, and view the part as such.
4462 (let ((default (gnus-mime-view-part-as-type-internal)))
4466 (mapcar #'list (mailcap-mime-types))
4487 (gnus-mm-display-part handle))))
4513 t (list t err-file) nil
4515 jka-compr-acceptable-retval-list)
4519 (defun gnus-mime-copy-part (&optional handle)
4520 "Put the MIME part under point into a new buffer.
4526 (contents (and handle (mm-get-part handle)))
4547 (defun gnus-mime-print-part (&optional handle filename)
4548 "Print the MIME part under point."
4549 (interactive (list nil (ps-print-preprint current-prefix-arg)))
4552 (contents (and handle (mm-get-part handle)))
4559 (mm-save-part-to-file handle file)
4572 (defun gnus-mime-inline-part (&optional handle arg)
4573 "Insert the MIME part under point into the current buffer."
4574 (interactive (list nil current-prefix-arg))
4582 (mm-remove-part handle)
4583 (setq contents (mm-get-part handle))
4591 (mm-remove-part handle))
4598 (mm-remove-part handle))))
4625 (defun gnus-mime-view-part-as-charset (&optional handle arg)
4626 "Insert the MIME part under point into the current buffer using the
4628 (interactive (list nil current-prefix-arg))
4636 (mm-remove-part handle))
4651 (setq parts (get-text-property (point) 'gnus-part))
4657 (list 'quote (or (cadr (member preferred parts))
4661 (defun gnus-mime-view-part-externally (&optional handle)
4662 "View the MIME part under point with an external viewer."
4676 (gnus-mime-view-part-as-type
4680 (mm-remove-part handle)
4681 (mm-display-part handle))))))
4683 (defun gnus-mime-view-part-internally (&optional handle)
4684 "View the MIME part under point with an internal viewer.
4697 (gnus-mime-view-part-as-type
4701 (mm-remove-part handle)
4702 (mm-display-part handle))))))
4704 (defun gnus-mime-action-on-part (&optional action)
4707 (list (completing-read "Action: " gnus-mime-action-alist nil t)))
4713 (defun gnus-article-part-wrapper (n function)
4718 ;; `gnus-article-goto-part' may really move the point.
4725 (error "No such part"))
4726 (gnus-article-goto-part n)
4731 (defun gnus-article-pipe-part (n)
4732 "Pipe MIME part N, which is the numerical prefix."
4734 (gnus-article-part-wrapper n 'mm-pipe-part))
4736 (defun gnus-article-save-part (n)
4737 "Save MIME part N, which is the numerical prefix."
4739 (gnus-article-part-wrapper n 'mm-save-part))
4741 (defun gnus-article-interactively-view-part (n)
4742 "View MIME part N interactively, which is the numerical prefix."
4744 (gnus-article-part-wrapper n 'mm-interactively-view-part))
4746 (defun gnus-article-copy-part (n)
4747 "Copy MIME part N, which is the numerical prefix."
4749 (gnus-article-part-wrapper n 'gnus-mime-copy-part))
4751 (defun gnus-article-view-part-as-charset (n)
4752 "View MIME part N using a specified charset.
4755 (gnus-article-part-wrapper n 'gnus-mime-view-part-as-charset))
4757 (defun gnus-article-view-part-externally (n)
4758 "View MIME part N externally, which is the numerical prefix."
4760 (gnus-article-part-wrapper n 'gnus-mime-view-part-externally))
4762 (defun gnus-article-inline-part (n)
4763 "Inline MIME part N, which is the numerical prefix."
4765 (gnus-article-part-wrapper n 'gnus-mime-inline-part))
4781 (gnus-article-goto-part (car ihandle))
4787 (defun gnus-article-view-part (&optional n)
4788 "View MIME part N, which is the numerical prefix."
4795 (error "No such part"))
4797 (when (gnus-article-goto-part n)
4800 (when (eq (gnus-mm-display-part handle) 'internal)
4805 1 ;; single part
4808 (defun gnus-mm-display-part (handle)
4810 (let ((id (get-text-property (point) 'gnus-part))
4832 ;; This will remove the part.
4833 (mm-display-part handle)
4837 (mm-display-part handle)
4838 ;; We narrow to the part itself and
4852 handle id (list (mm-handle-displayed-p handle)))
4855 (defun gnus-article-goto-part (n)
4856 "Go to MIME part N."
4857 (gnus-goto-char (text-property-any (point-min) (point-max) 'gnus-part n)))
4889 gnus-callback gnus-mm-display-part
4890 gnus-part ,gnus-tmp-id
4909 "%S: %s the MIME part; %S: more options"
4956 (when gnus-article-mime-part-function
4957 (gnus-mime-part-function handles)))
4968 (gnus-mime-display-part handles)))
5007 \"multipart/related\" part might be overlooked when this variable is nil."
5012 (defun gnus-mime-display-part (handle)
5016 ;; Single part.
5034 ;;;!!!We should find the start part, but we just default
5035 ;;;!!!to the first part.
5036 ;;(gnus-mime-display-part (cadr handle))
5042 (gnus-mime-display-part (cadr handle)))
5053 (defun gnus-mime-part-function (handles)
5055 (mapcar 'gnus-mime-part-function (cdr handles))
5056 (funcall gnus-article-mime-part-function handles)))
5059 (mapcar 'gnus-mime-display-part handles))
5099 handle id (list (or display (and not-attachment text))))
5115 (mm-display-part handle t))
5127 (mm-string-as-multibyte (mm-get-part handle)))
5132 (mm-decode-string (mm-get-part handle) charset)))))
5178 (setq begend (list (point-marker)))
5201 gnus-part ,id
5225 gnus-part ,id
5239 (mm-display-part preferred)
5275 (push (list key on off) result))))
5310 (add-to-list 'gnus-article-wash-types type))
5317 "Add IMAGE of CATEGORY to the list of displayed images."
5320 (setq entry (list category))
5322 (nconc entry (list image))))
5718 (lambda (x) (if (>= x 128) (list 'meta (- x 128)) x))
5719 (string-to-list key)))
5739 (lambda (x) (if (>= x 128) (list 'meta (- x 128)) x))
5740 (string-to-list key)))
5754 (gnus-summary-reply (list (list article)) wide))
5762 (list (list article contents)) wide)))))
5773 (gnus-summary-followup (list (list article))))
5781 (list (list article contents)))))))
5788 (interactive (append (gnus-article-hidden-arg) (list 'force)))
5790 (gnus-article-hide-list-identifiers arg)
5916 (setq methods (list methods)))
6248 (list "archive-tools" "biblio" "bibliography" "digests" "documentation"
6326 ;; ^[^0-9]+[0-9]{1,3}\@ digits only at end of local part
6349 (list gnus-button-mid-or-mail-heuristic-alist)
6353 (gnus-message 8 "`%s', length of local part=`%s'." mid-or-mail lpartlen)
6368 (while list
6369 (setq elem (car list)
6372 list (cdr list))
6386 ;; Long local part should contain realname if e-mail address,
6581 ;; RFC 2392 (Don't allow `/' in domain part --> CID)
6684 ;; all kind of allowed MIDs or mail addresses. Domain part must contain
6704 :type '(repeat (list (choice regexp variable sexp)
6740 :type '(repeat (list (regexp :tag "Header")
6780 (interactive (list 'force))
6792 (interactive (list 'force))
6865 (interactive (list 'force))
6874 (let (marker entry new-list)
6875 (while (setq marker (pop gnus-button-marker-list))
6877 (push marker new-list)
6884 (setq gnus-button-marker-list new-list))
6904 gnus-button-marker-list))))))))))
6955 (list gnus-mouse-face-prop gnus-article-mouse-face))
6956 (list 'gnus-callback fun)
6957 (and data (list 'gnus-data data))))
7047 (list scheme server port group message-id articles)))
7059 (nconc (list (list 'nntp server))
7142 (and (match-end 6) (list (string-to-number (match-string 6 address))))))))
7159 (setq retval (cons (list key val) retval)))))
7286 This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item
7304 (setq gnus-decode-header-methods-cache (list gnus-newsgroup-name))
7307 (nconc gnus-decode-header-methods-cache (list x))
7311 (list (cdr x))))))
7324 (defun gnus-treat-article (condition &optional part-number total-parts type)
7331 (let ((list gnus-article-treat-types))
7332 (while list
7333 (when (string-match (pop list) type)
7337 (gnus-run-hooks 'gnus-part-display-hook)
7354 (defvar part-number)
7389 (eq part-number total-parts))
7398 (list