Function: message-narrow-to-field

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

Signature

(message-narrow-to-field)

Documentation

Narrow the buffer to the header on the current line.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-narrow-to-field ()
  "Narrow the buffer to the header on the current line."
  (beginning-of-line)
  (while (looking-at "[ \t]")
    (forward-line -1))
  (narrow-to-region
   (point)
   (progn
     (forward-line 1)
     (if (re-search-forward "^[^ \n\t]" nil t)
	 (point-at-bol)
       (point-max))))
  (goto-char (point-min)))