comparison lisp/gnus/gnus-art.el @ 112390:1b25cd6a6e36

mm-decode.el (mm-inline-media-tests): Add text/x-sh. gnus-art.el (gnus-mime-inline-part): Use mm-display-inline rather than mm-insert-inline to insert inline part: this respect mm-inline-media-tests displayers. mm-view.el (mm-display-shell-script-inline): New function. mm-decode.el (mm-inline-media-tests): Add x-shellscript and x-sh. mm-uu.el (mm-uu-type-alist): Add org block. (mm-uu-org-src-code-block-extract): New function. mm-view.el (mm-display-org-inline): New function. mm-decode.el (mm-automatic-display): Add text/org. mailcap.el (mailcap-mime-extensions): Add .org.

112389:75fb060ecbc3

		    (mm-read-coding-system "Charset: "))))
	 (t
	  (if (mm-handle-undisplayer handle)
	      (mm-remove-part handle))))
	(forward-line 2)
	(mm-insert-inline
	 handle
	 (if (or coding-system
		 (and charset
		      (setq coding-system
			    (mm-charset-to-coding-system charset))
		      (not (eq coding-system 'ascii))))
	     (mm-decode-coding-string contents coding-system)
	   (mm-string-to-multibyte contents)))
	(goto-char b)))))

(defun gnus-mime-set-charset-parameters (handle charset)
  "Set CHARSET to parameters in HANDLE.
CHARSET may either be a string or a symbol."

112390:1b25cd6a6e36

		    (mm-read-coding-system "Charset: "))))
	 (t
	  (if (mm-handle-undisplayer handle)
	      (mm-remove-part handle))))
	(forward-line 2)
        (mm-display-inline handle)
	(goto-char b)))))

(defun gnus-mime-set-charset-parameters (handle charset)
  "Set CHARSET to parameters in HANDLE.
CHARSET may either be a string or a symbol."