lisp/gnus/mm-decode.el

6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
42 (defvar gnus-current-window-configuration)
44 (add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list)
95 (defmacro mm-handle-multipart-ctl-parameter (handle parameter)
96   `(get-text-property 0 ,parameter (car ,handle)))
101   `(list ,buffer ,type ,encoding ,undisplayer
135 It is suggested to customize `mm-text-html-renderer' instead.")
146   "Regexp matching URLs which are considered to be safe.
149 It is most likely intended to check whether the ominous spam mail has
154 matches parts embedded to the Multipart/Related type MIME contents and
155 Gnus will never connect to the spammer's site arbitrarily.  You may
156 set this variable to nil if you consider all urls to be safe."
228        ;; to cater to broken installations.  OTOH checking the function
229        ;; makes it possible to install another package which provides an
269     ;; Default to displaying as text
272   :type '(repeat (list (regexp :tag "MIME type")
286   "List of media types that are to be displayed inline.
287 See also `mm-inline-media-tests', which says how to display a media
311   "A list of MIME types to be displayed automatically."
320   "Types to have \"attachment\" ignored if they can be displayed inline."
325   "Types to be treated as attachments even if they can be displayed inline."
336 Viewing agents are supposed to view the last possible part of a message,
337 as that is supposed to be the richest.  However, users may prefer other
338 types instead, and this list says what types are most unwanted.  If,
341 to:
347 `gnus-buttonized-mime-types', to which adding \"multipart/alternative\"
348 enables you to choose manually one of two types those mails include."
400   "Set the mode bits of saved attachments to this integer."
406   "The program to start an external terminal."
415 (defvar mm-postponed-undisplay-list nil)
417 ;; According to RFC2046, in particular, in a digest, the default
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"
469     ;; Should we bind other key to minibuffer-complete-word?
477     ;; Should we bind other key to minibuffer-complete-word?
484 (defun mm-alist-to-plist (alist)
485   "Convert association list ALIST into the equivalent property-list form.
494 The original alist is not modified.  See also `destructive-alist-to-plist'."
513   "Set the undisplayer for HANDLE to FUNCTION.
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."
533 	(mail-narrow-to-head)
556 	   (list mm-dissect-default-type)
575 				  (mm-alist-to-plist (cdr ctl)) (car ctl))
577 	     ;; what really needs to be done here is a way to link a
578 	     ;; MIME handle back to it's parent MIME handle (in a multilevel
583 				  (list 'buffer (mm-copy-to-buffer)
611      (mm-copy-to-buffer) ctl cte nil cdl description nil id)))
629 	    (narrow-to-region start (point))
630 	    (setq parts (nconc (list (mm-dissect-buffer t nil from)) parts)))))
638 	  (narrow-to-region start end)
639 	  (setq parts (nconc (list (mm-dissect-buffer t nil from)) parts)))))
642 (defun mm-copy-to-buffer ()
643   "Copy the contents of the current buffer to a fresh buffer."
661 	  (narrow-to-region (point) (point))
738 	      (switch-to-buffer (generate-new-buffer " *mm*")))
756 	;; The function is a string to be executed.
775 			  (gnus-map-function mm-file-name-rewrite-functions
784 		;; Otherwise, use a suffix according to
804 		    (require 'gnus-win)
817 			    (gnus-configure-windows
818 			     ',gnus-current-window-configuration))))
819 		    (gnus-configure-windows 'display-term))
862 			 ;; Function used to remove temp file and directory.
872 			  ;; Form uses to kill the process buffer and
877 				   (list 'mm-handle-set-undisplayer
878 					 (list 'quote handle)
880 			  ;; Message to be issued when the process exits.
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))
926 	       (gnus-map-function mm-path-name-rewrite-functions file)) out))
928 	(push (mm-quote-arg (car type-list)) out))
935 	     (gnus-map-function mm-path-name-rewrite-functions file))
991 		(message "Waiting for external displayer to die...")
996 	  (message "Waiting for external displayer to die...done")
1017   "Say whether the user wants HANDLE to be displayed automatically."
1030 TYPE is the mime-type of the object; it defaults to the one given
1044   "Say whether the user wants HANDLE to be displayed inline."
1087   "Destroy the data structures connected to HANDLE."
1142 		'gnus-decoded)
1146 	    (mm-string-to-multibyte (mm-get-part handle no-cache)))
1172 Set the option `mm-file-name-replace-whitespace' to any other
1181   (gnus-replace-in-string filename "[\x00-\x1f\x7f]" ""))
1185   (setq filename (gnus-replace-in-string filename "[<>|]" ""))
1186   (gnus-replace-in-string filename "^[.-]+" ""))
1189   "Write HANDLE to a file."
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)
1218 	  ;; ange-ftp, which is reasonable to use here.
1228   "Pipe HANDLE to a process."
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))))))
1285   "Return the handle(s) referred to by ID."
1297   "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types.
1298 When the first bytes of an image file match REGEXP, it is assumed to
1351     ;; the only way to create glyphs from these
1352     ;; (without a ton of work) is to write them
1353     ;; out to a file, and then create a file
1361 	    (make-glyph (list (cons 'x file))))
1426   (let* ((boundary (concat "--" (mm-handle-multipart-ctl-parameter ctl
1443 	    (narrow-to-region start (1- (point)))
1455 	  (narrow-to-region start end)
1466 (defsubst mm-set-handle-multipart-parameter (handle parameter value)
1469     (put-text-property 0 (length (car handle)) parameter value
1491 			 (mm-handle-multipart-ctl-parameter ctl 'protocol))
1520 	    (mm-set-handle-multipart-parameter
1521 	     mm-security-handle 'gnus-details
1525 		    (mm-handle-multipart-ctl-parameter ctl 'protocol))
1552 	    (mm-set-handle-multipart-parameter
1553 	     mm-security-handle 'gnus-details
1572      (list handles1))
1575      (list handles2))))