Function: article-narrow-to-head

article-narrow-to-head is a byte-compiled function defined in gnus-art.el.gz.

Signature

(article-narrow-to-head)

Documentation

Narrow the buffer to the head of the message.

Point is left at the beginning of the narrowed-to region.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article-narrow-to-head ()
  "Narrow the buffer to the head of the message.
Point is left at the beginning of the narrowed-to region."
  (narrow-to-region
   (goto-char (point-min))
   (cond
    ;; Absolutely no headers displayed.
    ((looking-at "\n")
     (point))
    ;; Normal headers.
    ((search-forward "\n\n" nil 1)
     (1- (point)))
    ;; Nothing but headers.
    (t
     (point-max))))
  (goto-char (point-min)))