From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Mar 1997 22:22:32 +0000 (+0000)
Subject: (rmail-output-body): New command.
X-Git-Tag: emacs-20.1~2678
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d607b17dbe34b7ca54c2af4e04d0e66345ba7dd3;p=emacs.git

(rmail-output-body): New command.
---

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 29621cc955d..533283d8884 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -319,4 +319,25 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
 		    (setq count 0))))))
       (kill-buffer tembuf))))
 
+;;;###autoload
+(defun rmail-output-body (file-name)
+  "Write this message body to the file FILE-NAME.
+FILE-NAME defaults, interactively, from the Subject field of the message."
+  (interactive
+   (let ((default-file
+	   (mail-fetch-field "Subject")))
+     (list (read-file-name
+	    "Output message body to file: "
+	    (file-name-directory default-file)
+	    default-file
+	    nil default-file))))
+  (save-excursion
+    (goto-char (point-min))
+    (search-forward "\n\n")
+    (write-region (point) (point-max) file-name)
+    (if (equal major-mode 'rmail-mode)
+	(rmail-set-attribute "stored" t)))
+  (if rmail-delete-after-output
+      (rmail-delete-forward)))
+
 ;;; rmailout.el ends here