Function: metamail-interpret-body

metamail-interpret-body is an interactive and byte-compiled function defined in metamail.el.gz.

Signature

(metamail-interpret-body &optional VIEWMODE NODISPLAY)

Documentation

Interpret a body part of a MIME message in current buffer.

Optional argument VIEWMODE specifies the value of the EMACS_VIEW_MODE environment variable (defaulted to 1). Optional argument NODISPLAY non-nil means buffer is not redisplayed as output is inserted. Its header part is not interpreted at all.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/metamail.el.gz
;;;###autoload
(defun metamail-interpret-body (&optional viewmode nodisplay)
  "Interpret a body part of a MIME message in current buffer.
Optional argument VIEWMODE specifies the value of the
EMACS_VIEW_MODE environment variable (defaulted to 1).
Optional argument NODISPLAY non-nil means buffer is not
redisplayed as output is inserted.
Its header part is not interpreted at all."
  (interactive "p")
  (save-excursion
    (let ((contype nil)
	  (encoding nil)
	  (end (progn
		 (goto-char (point-min))
		 (search-forward "\n\n" nil t)
		 (point))))
      ;; Find Content-Type and Content-Transfer-Encoding from the header.
      (save-restriction
	(narrow-to-region (point-min) end)
	(setq contype
	      (or (mail-fetch-field "Content-Type") "text/plain"))
	(setq encoding
	      (or (mail-fetch-field "Content-Transfer-Encoding") "7bit")))
      ;; Interpret the body part only.
      (let ((metamail-switches		;Process body part only.
	     (append metamail-switches
		     (list "-b" "-c" contype "-E" encoding))))
	(metamail-region end (point-max) viewmode nil nodisplay))
      ;; This mode specific hack is no longer appropriate in mbox Rmail.
      ;; Pre-mbox, we have just modified the actual folder, so we
      ;; update the message-vector with the new end position of the
      ;; current message.  In mbox Rmail, all we have done is modify a
      ;; display copy of the message.  Note also that point-max is a
      ;; marker in the wrong buffer: the message-vector contains
      ;; markers in rmail-view-buffer (which is not in rmail-mode).
      ;; So this hack actually breaks the message-vector.
      ;; If you're calling this on the actual rmail-view-buffer (or a
      ;; non-swapped rmail-buffer), you would still need this hack.
      ;; But you're not going to do that.
;;;      (cond ((eq major-mode 'rmail-mode)
;;;	     ;; Adjust the marker of this message if in Rmail mode buffer.
;;;	     (set-marker (aref rmail-message-vector (1+ rmail-current-message))
;;;			 (point-max))))
      )))