Function: nndoc-rfc822-forward-generate-article

nndoc-rfc822-forward-generate-article is a byte-compiled function defined in nndoc.el.gz.

Signature

(nndoc-rfc822-forward-generate-article ARTICLE &optional HEAD)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nndoc.el.gz
(defun nndoc-rfc822-forward-generate-article (article &optional head)
  (let ((entry (cdr (assq article nndoc-dissection-alist)))
	(begin (point))
	encoding)
    (with-current-buffer nndoc-current-buffer
      (save-restriction
	(message-narrow-to-head)
	(setq encoding (message-fetch-field "content-transfer-encoding"))))
    (insert-buffer-substring nndoc-current-buffer (car entry) (nth 3 entry))
    (when encoding
      (save-restriction
	(narrow-to-region begin (point-max))
	(mm-decode-content-transfer-encoding
	 (intern (downcase (mail-header-strip-cte encoding))))))
    (when head
      (goto-char begin)
      (when (search-forward "\n\n" nil t)
	(delete-region (1- (point)) (point-max)))))
  t)