Function: rmail-mime-parse

rmail-mime-parse is a byte-compiled function defined in rmailmm.el.gz.

Signature

(rmail-mime-parse)

Documentation

Parse the current Rmail message as a MIME message.

The value is a MIME-entity object (see rmail-mime-entity). If an error occurs, return an error message string.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailmm.el.gz
(defun rmail-mime-parse ()
  "Parse the current Rmail message as a MIME message.
The value is a MIME-entity object (see `rmail-mime-entity').
If an error occurs, return an error message string."
  (let ((rmail-mime-mbox-buffer (if (rmail-buffers-swapped-p)
				    rmail-view-buffer
				  (current-buffer))))
    (condition-case err
	(with-current-buffer rmail-mime-mbox-buffer
	  (save-excursion
	    (goto-char (point-min))
	    (let* ((entity (rmail-mime-process t ""
					       '("text/plain") '("inline")))
		   (new (aref (rmail-mime-entity-display entity) 1)))
	      ;; Show header.
	      (setf (rmail-mime-display-header new)
                    (aset (rmail-mime-entity-header entity) 2 t))
	      entity)))
      (error (format "%s" err)))))