Mercurial > emacs

changeset 17267:958340c8db5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output-body): New command.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Mar 1997 22:22:32 +0000
parents 9ef8bf76c3c2
children c945c9845f01
files lisp/mail/rmailout.el
diffstat 1 files changed, 21 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Sun Mar 30 21:50:02 1997 +0000
+++ b/lisp/mail/rmailout.el	Sun Mar 30 22:22:32 1997 +0000
@@ -319,4 +319,25 @@
 		    (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