Function: rmail-mime-shown-mode

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

Signature

(rmail-mime-shown-mode ENTITY)

Documentation

Make MIME-entity ENTITY display in the default way.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailmm.el.gz
(defun rmail-mime-shown-mode (entity)
  "Make MIME-entity ENTITY display in the default way."
  (let ((new (aref (rmail-mime-entity-display entity) 1)))
    (setf (rmail-mime-display-header new)
          (aref (rmail-mime-entity-header entity) 2))
    (setf (rmail-mime-display-tagline new)
          (aref (rmail-mime-entity-tagline entity) 2))
    (setf (rmail-mime-display-body new)
          (aref (rmail-mime-entity-body entity) 2)))
  (dolist (child (rmail-mime-entity-children entity))
    (rmail-mime-shown-mode child)))