Function: gnus-diary-narrow-to-headers

gnus-diary-narrow-to-headers is a byte-compiled function defined in gnus-diary.el.gz.

Signature

(gnus-diary-narrow-to-headers)

Documentation

Narrow the current buffer to the header part.

Point is left at the beginning of the region. The buffer is assumed to contain a message, but the format is unknown.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-diary.el.gz
(defun gnus-diary-narrow-to-headers ()
  "Narrow the current buffer to the header part.
Point is left at the beginning of the region.
The buffer is assumed to contain a message, but the format is unknown."
  (cond ((eq major-mode 'message-mode)
	 (message-narrow-to-headers))
	(t
	 (goto-char (point-min))
	 (when (search-forward "\n\n" nil t)
	   (narrow-to-region (point-min) (- (point) 1))
	   (goto-char (point-min))))
	))