Function: message-narrow-to-head-1

message-narrow-to-head-1 is a byte-compiled function defined in message.el.gz.

Signature

(message-narrow-to-head-1)

Documentation

Like message-narrow-to-head. Don't widen.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-narrow-to-head-1 ()
  "Like `message-narrow-to-head'.  Don't widen."
  (narrow-to-region
   (goto-char (point-min))
   (if (search-forward "\n\n" nil 1)
       (1- (point))
     (point-max)))
  (goto-char (point-min)))