From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 Oct 2001 19:29:11 +0000 (+0000)
Subject: Change M-x imail-file-message to default to the last output file.
X-Git-Tag: 20090517-FFI~2481
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ac435c73f32a67fff6f40c6f2e681a98c3bfbf2;p=mit-scheme.git

Change M-x imail-file-message to default to the last output file.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 2efbd87b5..f85833fd6 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.276 2001/10/25 15:57:16 cph Exp $
+;;; $Id: imail-top.scm,v 1.277 2001/10/30 19:29:11 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -869,7 +869,11 @@ With prefix argument, appends next several messages."
 With prefix argument, appends next several messages.
 This command writes the message to the output file in human-readable format,
  unlike the \\[imail-output] command which writes in computer format."
-  "FAppend message to file\nP"
+  (lambda ()
+    (list (prompt-for-file "Append message to file" #f
+			   'HISTORY 'IMAIL-FILE-MESSAGE
+			   'HISTORY-INDEX 0)
+	  (command-argument)))
   (lambda (pathname argument)
     (let ((write-separator? (file-exists? pathname)))
       (call-with-temporary-buffer " *imail-file-message*"