Function: nnspool-insert-nov-head

nnspool-insert-nov-head is a byte-compiled function defined in nnspool.el.gz.

Signature

(nnspool-insert-nov-head ARTICLE)

Documentation

Read the head of ARTICLE, convert to NOV headers, and insert.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnspool.el.gz
(defun nnspool-insert-nov-head (article)
  "Read the head of ARTICLE, convert to NOV headers, and insert."
  (save-excursion
    (let ((cur (current-buffer))
          buf)
      (setq buf (nnheader-set-temp-buffer " *nnspool head*"))
      (when (nnheader-insert-head
             (nnspool-article-pathname nnspool-current-group article))
        (nnheader-insert-article-line article)
        (goto-char (point-min))
        (let ((headers (nnheader-parse-head nil t)))
          (set-buffer cur)
          (goto-char (point-max))
          (nnheader-insert-nov headers)))
      (kill-buffer buf))))