Function: gnus-diary-add-header

gnus-diary-add-header is a byte-compiled function defined in gnus-diary.el.gz.

Signature

(gnus-diary-add-header STR)

Documentation

Add a header to the current buffer.

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-add-header (str)
  "Add a header to the current buffer.
The buffer is assumed to contain a message, but the format is unknown."
  (cond ((eq major-mode 'message-mode)
	 (message-add-header str))
	(t
	 (save-restriction
	   (gnus-diary-narrow-to-headers)
	   (goto-char (point-max))
	   (if (string-match "\n$" str)
	       (insert str)
	     (insert str ?\n))))
	))