Function: message-hide-headers

message-hide-headers is a byte-compiled function defined in message.el.gz.

Signature

(message-hide-headers)

Documentation

Hide headers based on the message-hidden-headers variable.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-hide-headers ()
  "Hide headers based on the `message-hidden-headers' variable."
  (let ((regexps (if (stringp message-hidden-headers)
		     (list message-hidden-headers)
		   message-hidden-headers))
	end-of-headers)
    (when regexps
      (save-excursion
	(save-restriction
	  (message-narrow-to-headers)
          (setq end-of-headers (point-min-marker))
	  (goto-char (point-min))
	  (while (not (eobp))
	    (if (not (message-hide-header-p regexps))
		(message-next-header)
	      (let ((begin (point)))
		(message-next-header)
                (let ((header (delete-and-extract-region begin (point))))
                  (save-excursion
                    (goto-char end-of-headers)
                    (insert-before-markers header))))))))
      (narrow-to-region end-of-headers (point-max)))))