From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 16:34:35 +0000 (+0000)
Subject: Implement variable imail-inline-mime-text-subtypes.
X-Git-Tag: 20090517-FFI~3519
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=88640820100098f9a3abbba83d0ec53f5020bf8a;p=mit-scheme.git

Implement variable imail-inline-mime-text-subtypes.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 875fc1752..c25d7db4b 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.160 2000/06/15 16:19:53 cph Exp $
+;;; $Id: imail-top.scm,v 1.161 2000/06/15 16:34:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1198,7 +1198,9 @@ With prefix argument N moves backward N messages with these flags."
     (if (and (or (not enclosure)
 		 (let ((subtype (mime-body-subtype body)))
 		   (or (eq? subtype 'PLAIN)
-		       (memq subtype imail-inline-mime-text-subtypes))))
+		       (memq subtype
+			     (ref-variable imail-inline-mime-text-subtypes
+					   mark)))))
 	     (known-mime-encoding? encoding)
 	     (re-string-match
 	      (string-append "\\`"