+(defun mime-display-multipart/encrypted (entity situation)
+ (let ((children (mime-entity-children entity))
+ (original-major-mode-cell (assq 'major-mode situation))
+ (default-situation
+ (cdr (assq 'childrens-situation situation))))
+ (if original-major-mode-cell
+ (setq default-situation
+ (cons original-major-mode-cell default-situation)))
+ (mime-display-entity (car children) nil default-situation)
+ (mime-display-entity (cadr children) nil
+ (put-alist '*entity-button
+ 'invisible default-situation))
+ (del-alist '*entity-button default-situation)
+ (setq children (nth 2 children))
+ ;; This shouldn't happen.
+ (while children
+ (mime-display-entity (car children) nil default-situation)
+ (setq children (cdr children)))))
+
+(defun mime-display-detect-application/octet-stream (entity situation)
+ "Detect unknown ENTITY and display it inline.
+This can only handle gzipped contents."
+ (or (and (mime-entity-filename entity)
+ (string-match "\\.gz$" (mime-entity-filename entity))
+ (mime-display-gzipped entity situation))
+ (mime-display-text/plain entity situation)))
+
+(defun mime-display-gzipped (entity situation)
+ "Ungzip gzipped part and display."
+ (insert
+ (decode-coding-string
+ (with-temp-buffer
+ ;; #### Kludge to make FSF Emacs happy.
+ (if (featurep 'xemacs)
+ (insert (mime-entity-content entity))
+ (let ((content (mime-entity-content entity)))
+ (if (not (multibyte-string-p content))
+ ;; I really hate this brain-damaged function.
+ (set-buffer-multibyte nil))
+ (insert content)))
+ (as-binary-process
+ (call-process-region (point-min) (point-max) "gzip" t t
+ nil "-cd"))
+ ;; Oh my goodness.
+ (when (fboundp 'set-buffer-multibyte)
+ (set-buffer-multibyte t))
+ (buffer-string))
+ mime-view-automatic-conversion))
+ t)
+
+(defun mime-preview-inline ()
+ "View part as text without code conversion."
+ (interactive)
+ (let ((inhibit-read-only t)
+ (entity (get-text-property (point) 'mime-view-entity))
+ (situation (get-text-property (point) 'mime-view-situation))
+ start)
+ (when (and entity
+ (not (get-text-property (point) 'mime-view-entity-header))
+ (not (memq (mime-entity-media-type entity)
+ '(multipart message))))
+ (setq start (or (and (not (mime-entity-parent entity))
+ (1+ (previous-single-property-change
+ (point)
+ 'mime-view-entity-header)))
+ (and (not (eq (point) (point-min)))
+ (not (eq (get-text-property (1- (point))
+ 'mime-view-entity)
+ entity))
+ (point))
+ (previous-single-property-change (point)
+ 'mime-view-entity)
+ (point)))
+ (delete-region start
+ (1-
+ (or (next-single-property-change (point)
+ 'mime-view-entity)
+ (point-max))))
+ (setq start (point))
+ (if (mime-view-entity-button-visible-p entity)
+ (mime-view-insert-entity-button entity))
+ (insert (mime-entity-content entity))
+ (if (and (bolp) (eolp))
+ (delete-char 1)
+ (forward-char 1))
+ (add-text-properties start (point)
+ (list 'mime-view-entity entity
+ 'mime-view-situation situation))
+ (goto-char start))))
+
+(defun mime-preview-text (&optional ask-coding)
+ "View part as text. MIME charset will be guessed automatically.
+With prefix, it prompts for coding-system."
+ (interactive "P")
+ (let ((inhibit-read-only t)
+ (mime-view-force-inline-types t)
+ (position (mime-preview-entity-boundary))
+ (coding (if ask-coding
+ (or (read-coding-system "Coding system: ")
+ mime-view-automatic-conversion)
+ mime-view-automatic-conversion))
+ (cte (if ask-coding
+ (completing-read "Content Transfer Encoding: "
+ (mime-encoding-alist) nil t)))
+ entity situation)
+ (setq entity (get-text-property (car position) 'mime-view-entity)
+ situation (get-text-property (car position) 'mime-view-situation))
+ (setq situation
+ (put-alist
+ 'encoding cte
+ (put-alist
+ 'coding coding
+ (put-alist
+ 'body-presentation-method 'mime-display-text
+ (put-alist '*body 'visible situation)))))
+ (save-excursion
+ (delete-region (car position) (cdr position))
+ (mime-display-entity entity situation))))
+
+(defun mime-preview-type ()
+ "View part as text without code conversion."
+ (interactive)
+ (mime-preview-toggle-content t))
+
+(defun mime-preview-buttonize ()
+ (interactive)
+ (save-excursion
+ (goto-char (point-min))
+ (let (point)
+ (while (setq point (next-single-property-change
+ (point) 'mime-view-entity))
+ (goto-char point)
+ (unless (get-text-property (point) 'mime-button)
+ (mime-preview-toggle-button t))))))
+
+(defun mime-preview-unbuttonize ()
+ (interactive)
+ (save-excursion
+ (goto-char (point-min))
+ (let (point)
+ (while (setq point (next-single-property-change
+ (point) 'mime-view-entity))
+ (goto-char point)
+ (when (get-text-property (point) 'mime-button)
+ ;; Remove invisible text following XPM buttons.
+ (static-if (featurep 'xemacs)
+ (let ((extent (extent-at (point) nil 'invisible))
+ (inhibit-read-only t))
+ (if extent
+ (delete-region (extent-start-position extent)
+ (extent-end-position extent)))))
+ (mime-preview-toggle-button 'hide))))))
+