Change imail-forward to (by default) ask whether to forward all

headers.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index fd5caca83bef9f570552cfee6f69843a14bfaf19..bb05421135c1eb0aefe76624dee2468696e18f38 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.278 2001/11/06 04:45:13 cph Exp $
+;;; $Id: imail-top.scm,v 1.279 2001/12/03 18:12:58 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -147,8 +147,8 @@ Otherwise, the text is left as is."
 (define-variable imail-forward-all-headers
   "If true, forwarded email messages will contain all header fields.
 Otherwise, only the header fields normally shown by IMAIL are sent."
-  #f
-  boolean?)
+  'ASK
+  (lambda (x) (or (boolean? x) (eq? x 'ASK))))
 \f
 (define-variable imail-forward-using-mime
   "If true, forwarded email messages are sent as MIME attachments.
@@ -1189,7 +1189,11 @@ With negative argument, forward the message with all headers;
        (let ((raw?
              (if (< (command-argument-numeric-value argument) 0)
                  #t
-                 (ref-variable imail-forward-all-headers mail-buffer))))
+                 (let ((all?
+                        (ref-variable imail-forward-all-headers mail-buffer)))
+                   (if (eq? all? 'ASK)
+                       (prompt-for-confirmation? "Forward all header fields")
+                       all?)))))
         (if (ref-variable imail-forward-using-mime mail-buffer)
             (add-buffer-mime-attachment!
              mail-buffer

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index 5c6bba46b45ea7ad7515aa47f1ee20c7ba28a15f..6c3152e04cbf79d27ce00f4fde4988d0acc77908 100644 (file)
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.36 2001/11/11 06:05:54 cph Exp $
+;;; $Id: load.scm,v 1.37 2001/12/03 18:13:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -28,4 +28,4 @@
   (lambda ()
     (fluid-let ((*allow-package-redefinition?* #t))
       (load-package-set "imail"))))
-(add-subsystem-identification! "IMAIL" '(1 16))
\ No newline at end of file
+(add-subsystem-identification! "IMAIL" '(1 17))
\ No newline at end of file