From 88640820100098f9a3abbba83d0ec53f5020bf8a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 16:34:35 +0000
Subject: [PATCH] Implement variable imail-inline-mime-text-subtypes.

---
 v7/src/imail/imail-top.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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 "\\`"
-- 
2.25.1