Function: ietf-drums-narrow-to-header

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

Signature

(ietf-drums-narrow-to-header)

Documentation

Narrow to the header section in the current buffer.

Aliases

mail-narrow-to-head

Source Code

;; Defined in /usr/src/emacs/lisp/mail/ietf-drums.el.gz
(defun ietf-drums-narrow-to-header ()
  "Narrow to the header section in the current buffer."
  (narrow-to-region
   (goto-char (point-min))
   (if (re-search-forward "^\r?$" nil 1)
       (match-beginning 0)
     (point-max)))
  (goto-char (point-min)))