Lines Matching +defs:list +defs:part
8 ;; This file is part of GNU Emacs.
44 (add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list)
101 `(list ,buffer ,type ,encoding ,undisplayer
272 :type '(repeat (list (regexp :tag "MIME type")
311 "A list of MIME types to be displayed automatically."
336 Viewing agents are supposed to view the last possible part of a message,
338 types instead, and this list says what types are most unwanted. If,
346 prefered part of multipart/alternative messages. See also
415 (defvar mm-postponed-undisplay-list nil)
418 ;; Content-Type value for a body part is changed from "text/plain" to
485 "Convert association list ALIST into the equivalent property-list form.
520 (push new-handle mm-postponed-undisplay-list))
523 (defun mm-destroy-postponed-undisplay-list ()
524 (when mm-postponed-undisplay-list
526 (mm-destroy-parts mm-postponed-undisplay-list)))
529 "Dissect the current buffer and return a list of MIME handles."
556 (list mm-dissect-default-type)
583 (list 'buffer (mm-copy-to-buffer)
630 (setq parts (nconc (list (mm-dissect-buffer t nil from)) parts)))))
639 (setq parts (nconc (list (mm-dissect-buffer t nil from)) parts)))))
662 (mm-display-part handle)
666 (defun mm-display-part (handle &optional no-default)
667 "Display the MIME part represented by HANDLE.
668 Returns nil if the part is removed; inline if displayed inline;
673 (mm-remove-part handle)
701 (mm-insert-inline handle (mm-get-part handle))
710 "Display part (" type
734 (mm-insert-part handle)
752 (mm-save-part handle))
757 (mm-insert-part handle)
877 (list 'mm-handle-set-undisplayer
878 (list 'quote handle)
883 ;; a vector in Emacs but is a list in XEmacs)
886 (if (boundp 'itimer-list)
889 (if (memq timer itimer-list)
896 (if (memq timer timer-list)
906 (defun mm-mailcap-command (method file type-list)
907 (let ((ctl (cdr type-list))
928 (push (mm-quote-arg (car type-list)) out))
943 (mm-remove-part handles)
954 (mm-remove-part handle)))))))
960 (mm-destroy-part handles)
971 (mm-destroy-part handle)))))))
973 (defun mm-remove-part (handle)
974 "Remove the displayed MIME part represented by HANDLE."
979 ;; Internally displayed part.
986 ;; Externally displayed part.
1086 (defun mm-destroy-part (handle)
1089 (mm-remove-part handle)
1101 (defmacro mm-with-part (handle &rest forms)
1118 (put 'mm-with-part 'lisp-indent-function 1)
1119 (put 'mm-with-part 'edebug-form-spec '(body))
1121 (defun mm-get-part (handle &optional no-cache)
1123 If NO-CACHE is non-nil, cached contents of a message/external-body part
1132 (mm-with-part handle
1135 (defun mm-insert-part (handle &optional no-cache)
1137 If NO-CACHE is non-nil, cached contents of a message/external-body part
1146 (mm-string-to-multibyte (mm-get-part handle no-cache)))
1148 (mm-get-part handle no-cache))))))
1188 (defun mm-save-part (handle)
1200 (read-file-name "Save MIME part to: "
1208 (mm-save-part-to-file handle file)
1211 (defun mm-save-part-to-file (handle file)
1213 (mm-insert-part handle)
1227 (defun mm-pipe-part (handle)
1231 (read-string "Shell command on MIME part: " mm-last-shell-command)))
1233 (mm-insert-part handle)
1237 (defun mm-interactively-view-part (handle)
1241 (mapcar (lambda (i) (list (cdr (assoc 'viewer i))))
1254 (let ((prec (if preferred (list preferred)
1281 (setq seq (nconc (delete elem seq) (list elem))))))
1333 (mm-insert-part handle)
1361 (make-glyph (list (cons 'x file))))
1406 (defun mm-find-part-by-type (handles type &optional notp recursive)
1407 "Search in HANDLES for part with TYPE.
1408 If NOTP, returns first non-matching part.
1413 (if (setq handle (mm-find-part-by-type (cdar handles) type
1424 (defun mm-find-raw-part-by-type (ctl type &optional notp)
1486 (format "Decrypt (S/MIME) part? "))))
1498 (mm-find-part-by-type parts (caar protocols) nil t))
1514 (format "Verify signed (%s) part? "
1546 (format "Decrypt (%s) part? "
1572 (list handles1))
1575 (list handles2))))
1582 (mm-insert-part handle)