Function: gnus-summary-save-body-in-file

gnus-summary-save-body-in-file is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-summary-save-body-in-file &optional FILENAME OVERWRITE)

Documentation

Append this article body to a file.

Optional argument FILENAME specifies file name. The directory to save in defaults to gnus-article-save-directory.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-summary-save-body-in-file (&optional filename overwrite)
  "Append this article body to a file.
Optional argument FILENAME specifies file name.
The directory to save in defaults to `gnus-article-save-directory'."
  (setq filename (gnus-read-save-file-name
		  "Save %s body in file" filename
		  gnus-file-save-name gnus-newsgroup-name
		  gnus-current-headers 'gnus-newsgroup-last-file))
  (with-current-buffer gnus-save-article-buffer
    (save-excursion
      (save-restriction
	(widen)
	(when (article-goto-body)
	  (narrow-to-region (point) (point-max)))
	(when (and overwrite
		   (file-exists-p filename))
	  (delete-file filename))
	(gnus-output-to-file filename))))
  filename)