Function: mh-letter-hide-all-skipped-fields

mh-letter-hide-all-skipped-fields is an autoloaded and byte-compiled function defined in mh-utils.el.gz.

Signature

(mh-letter-hide-all-skipped-fields)

Documentation

Hide all skipped fields.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-utils.el.gz
  (backward-char 1))                    ;to end of previous line

;;;###mh-autoload
(defun mh-letter-hide-all-skipped-fields ()
  "Hide all skipped fields."
  (save-excursion
    (goto-char (point-min))
    (save-restriction
      (narrow-to-region (point) (mh-mail-header-end))
      (while (re-search-forward mh-letter-header-field-regexp nil t)
        (if (mh-letter-skipped-header-field-p (match-string 1))
            (mh-letter-toggle-header-field-display -1)
          (mh-letter-toggle-header-field-display 'long))
        (beginning-of-line 2)))))