From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 9 Jun 2000 04:17:52 +0000 (+0000)
Subject: Eliminate variable imail-receive-mime.  User can toggle message to raw
X-Git-Tag: 20090517-FFI~3561
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2405e86781bc8b5313fb67cf58a67c77b1a165f5;p=mit-scheme.git

Eliminate variable imail-receive-mime.  User can toggle message to raw
form to get similar effect.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 4edeb62e8..542399772 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.146 2000/06/09 04:14:00 cph Exp $
+;;; $Id: imail-top.scm,v 1.147 2000/06/09 04:17:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -131,12 +131,6 @@ Set this variable to #F to disable updating."
   600
   (lambda (x) (or (not x) (and (exact-integer? x) (positive? x)))))
 
-(define-variable imail-receive-mime
-  "If true, MIME messages are decoded before being presented.
-Otherwise, all messages are presented as plain text."
-  #t
-  boolean?)
-
 (define-variable imail-auto-wrap
   "If true, messages will have their lines wrapped at the right margin.
 If set to 'FILL, the paragraphs are filled rather than wrapped.
@@ -451,7 +445,6 @@ variable's documentation (using \\[describe-variable]) for details:
     imail-mode-hook
     imail-pass-phrase-retention-time
     imail-primary-folder
-    imail-receive-mime
     imail-reply-with-re
     imail-update-interval
 
@@ -739,8 +732,7 @@ With prefix argument N moves backward N messages with these flags."
 		      (if raw?
 			  (insert-string (message-body message) mark)
 			  (begin
-			    (if (and (ref-variable imail-receive-mime buffer)
-				     (folder-supports-mime? folder))
+			    (if (folder-supports-mime? folder)
 				(insert-mime-message-body message mark)
 				(call-with-auto-wrapped-output-mark mark
 				  (lambda (port)
diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index c07c9eac8..e7465f06b 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.52 2000/06/08 18:08:29 cph Exp $
+;;; $Id: imail.pkg,v 1.53 2000/06/09 04:17:52 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -256,7 +256,6 @@
 	  edwin-variable$imail-mode-hook
 	  edwin-variable$imail-pass-phrase-retention-time
 	  edwin-variable$imail-primary-folder
-	  edwin-variable$imail-receive-mime
 	  edwin-variable$imail-reply-with-re
 	  edwin-variable$imail-summary-highlight-message
 	  edwin-variable$imail-summary-mode-hook