Function: canlock-narrow-to-header

canlock-narrow-to-header is a byte-compiled function defined in canlock.el.gz.

Signature

(canlock-narrow-to-header)

Documentation

Narrow the buffer to the head of the message.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/canlock.el.gz
(defun canlock-narrow-to-header ()
  "Narrow the buffer to the head of the message."
  (let (case-fold-search)
    (narrow-to-region
     (goto-char (point-min))
     (goto-char (if (re-search-forward
		     (format "^$\\|^%s$"
			     (regexp-quote mail-header-separator))
		     nil t)
		    (match-beginning 0)
		  (point-max))))))