Lines Matching +defs:gnus +defs:part
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
8 ;; This file is part of GNU Emacs.
42 (defvar gnus-current-window-configuration)
44 (add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list)
336 Viewing agents are supposed to view the last possible part of a message,
346 prefered part of multipart/alternative messages. See also
347 `gnus-buttonized-mime-types', to which adding \"multipart/alternative\"
418 ;; Content-Type value for a body part is changed from "text/plain" to
429 ("application/x-gnus-pgp-signature" mm-uu-pgp-signed-extract-1 "PGP"
452 ("application/x-gnus-pgp-encrypted" mm-uu-pgp-encrypted-extract-1 "PGP"
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)
775 (gnus-map-function mm-file-name-rewrite-functions
804 (require 'gnus-win)
817 (gnus-configure-windows
818 ',gnus-current-window-configuration))))
819 (gnus-configure-windows 'display-term))
926 (gnus-map-function mm-path-name-rewrite-functions file)) out))
935 (gnus-map-function mm-path-name-rewrite-functions file))
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
1142 'gnus-decoded)
1146 (mm-string-to-multibyte (mm-get-part handle no-cache)))
1148 (mm-get-part handle no-cache))))))
1181 (gnus-replace-in-string filename "[\x00-\x1f\x7f]" ""))
1185 (setq filename (gnus-replace-in-string filename "[<>|]" ""))
1186 (gnus-replace-in-string filename "^[.-]+" ""))
1188 (defun mm-save-part (handle)
1196 (setq filename (gnus-map-function mm-file-name-rewrite-functions
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)
1333 (mm-insert-part handle)
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? "
1521 mm-security-handle 'gnus-details
1546 (format "Decrypt (%s) part? "
1553 mm-security-handle 'gnus-details
1582 (mm-insert-part handle)