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 48af0fbabadf305a86659e160d388ea0060e6688..a0bb7283d5bbbfa428d3ef3ac8aa71cd097f3a7e 100644 (file)
--- 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 8795cba854b29fb24e4c701f5b3754bd78d23414..6d2000c995fded4dadd4779a9f73d5fd27efc82a 100644 (file)
--- 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