From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 13 Nov 2000 21:28:43 +0000 (+0000)
Subject: Add variable imail-output-default at Hal's request.
X-Git-Tag: 20090517-FFI~3197
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12c03d5152663668b560e629262eb03b48fa8c1d;p=mit-scheme.git

Add variable imail-output-default at Hal's request.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 48af0fbab..a0bb7283d 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.219 2000/10/26 16:44:32 cph Exp $
+;;; $Id: imail-top.scm,v 1.220 2000/11/13 21:28:37 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -61,6 +61,11 @@ The procedure is called with one argument, a list of headers,
   #f
   (lambda (object) (or (not object) (procedure? object))))
 
+(define-variable imail-output-default
+  "If not #f, the default URL for M-x imail-output."
+  #f
+  string-or-false?)
+
 (define-variable imail-delete-after-output
   "True means automatically delete a message that is copied to a file."
   #f
@@ -782,7 +787,8 @@ With prefix argument N, removes FLAG from next N messages,
 (define-command imail-output
   "Append this message to a specified folder."
   (lambda ()
-    (list (prompt-for-imail-url-string "Output to folder" #f
+    (list (prompt-for-imail-url-string "Output to folder"
+				       (ref-variable imail-output-default #f)
 				       'HISTORY 'IMAIL-OUTPUT
 				       'HISTORY-INDEX 0)
 	  (command-argument)))
diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 8795cba85..6d2000c99 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.77 2000/10/26 05:07:24 cph Exp $
+;;; $Id: imail.pkg,v 1.78 2000/11/13 21:28:43 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -313,6 +313,7 @@
 	  edwin-variable$imail-mime-attachment-directory
 	  edwin-variable$imail-mime-show-alternatives
 	  edwin-variable$imail-mode-hook
+	  edwin-variable$imail-output-default
 	  edwin-variable$imail-pass-phrase-retention-time
 	  edwin-variable$imail-primary-folder
 	  edwin-variable$imail-reply-with-re