comparison lisp/gnus/mm-decode.el @ 69572:b4faac2800dd

Revision: [e-mail]/emacs--devo--0--patch-163 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 58-61) - Update from CVS

69571:4f6b547120ec

(eval-and-compile
  (autoload 'executable-find "executable")
  (autoload 'mm-inline-partial "mm-partial")
  (autoload 'mm-inline-external-body "mm-extern")
  (autoload 'mm-insert-inline "mm-view"))

(defvar gnus-current-window-configuration)

(add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list)

;;;
;;; Functions for outputting parts
;;;

(defun mm-get-part (handle)
  "Return the contents of HANDLE as a string."
  (let ((default-enable-multibyte-characters
	  (with-current-buffer (mm-handle-buffer handle)
	    (mm-multibyte-p))))
    (with-temp-buffer
      (insert-buffer-substring (mm-handle-buffer handle))
      (mm-disable-multibyte)
      (mm-decode-content-transfer-encoding
       (mm-handle-encoding handle)
       (mm-handle-media-type handle))
      (buffer-string))))

(defun mm-insert-part (handle)
  "Insert the contents of HANDLE in the current buffer."
  (save-excursion

  (setq filename (gnus-replace-in-string filename "[<>|]" ""))
  (gnus-replace-in-string filename "^[.-]+" ""))

(defun mm-save-part (handle)
  "Write HANDLE to a file."
  (let* ((name (mail-content-type-get (mm-handle-type handle) 'name))
	 (filename (mail-content-type-get
		    (mm-handle-disposition handle) 'filename))
	 file)
    (when filename
      (setq filename (gnus-map-function mm-file-name-rewrite-functions
					(file-name-nondirectory filename))))
    (setq file
	  (mm-with-multibyte
	    (read-file-name "Save MIME part to: "
			    (or mm-default-directory default-directory)
			    nil nil (or filename name ""))))
    (setq mm-default-directory (file-name-directory file))
    (and (or (not (file-exists-p file))
	     (yes-or-no-p (format "File %s already exists; overwrite? "
				  file)))
	 (progn

69572:b4faac2800dd

(eval-and-compile
  (autoload 'executable-find "executable")
  (autoload 'mm-inline-partial "mm-partial")
  (autoload 'mm-inline-external-body "mm-extern")
  (autoload 'mm-extern-cache-contents "mm-extern")
  (autoload 'mm-insert-inline "mm-view"))

(defvar gnus-current-window-configuration)

(add-hook 'gnus-exit-gnus-hook 'mm-destroy-postponed-undisplay-list)

;;;
;;; Functions for outputting parts
;;;

(defmacro mm-with-part (handle &rest forms)
  "Run FORMS in the temp buffer containing the contents of HANDLE."
  `(let* ((handle ,handle)
	  ;; The multibyteness of the temp buffer should be turned on
	  ;; if inserting a multibyte string.  Contrarily, the buffer's
	  ;; multibyteness should be off if inserting a unibyte string,
	  ;; especially if a string contains 8bit data.
	  (default-enable-multibyte-characters
	    (with-current-buffer (mm-handle-buffer handle)
	      (mm-multibyte-p))))
     (with-temp-buffer
       (insert-buffer-substring (mm-handle-buffer handle))
       (mm-disable-multibyte)
       (mm-decode-content-transfer-encoding
	(mm-handle-encoding handle)
	(mm-handle-media-type handle))
       ,@forms)))
(put 'mm-with-part 'lisp-indent-function 1)
(put 'mm-with-part 'edebug-form-spec '(body))

(defun mm-get-part (handle)
  "Return the contents of HANDLE as a string."
  (if (equal (mm-handle-media-type handle) "message/external-body")
      (progn
	(unless (mm-handle-cache handle)
	  (mm-extern-cache-contents handle))
	(with-current-buffer (mm-handle-buffer (mm-handle-cache handle))
	  (buffer-string)))
    (mm-with-part handle
      (buffer-string))))

(defun mm-insert-part (handle)
  "Insert the contents of HANDLE in the current buffer."
  (save-excursion

  (setq filename (gnus-replace-in-string filename "[<>|]" ""))
  (gnus-replace-in-string filename "^[.-]+" ""))

(defun mm-save-part (handle)
  "Write HANDLE to a file."
  (let ((filename (or (mail-content-type-get
		       (mm-handle-disposition handle) 'filename)
		      (mail-content-type-get
		       (mm-handle-type handle) 'name)))
	file)
    (when filename
      (setq filename (gnus-map-function mm-file-name-rewrite-functions
					(file-name-nondirectory filename))))
    (setq file
	  (mm-with-multibyte
	   (read-file-name "Save MIME part to: "
			   (or mm-default-directory default-directory)
			   nil nil (or filename ""))))
    (setq mm-default-directory (file-name-directory file))
    (and (or (not (file-exists-p file))
	     (yes-or-no-p (format "File %s already exists; overwrite? "
				  file)))
	 (progn