From e6dc2ad7ba4fd3a7cf34dd75c0d26201d7aeb0c2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 30 Jun 2000 19:11:46 +0000
Subject: [PATCH] Don't inline text/plain entities that have disposition
 ATTACHMENT.

---
 v7/src/imail/imail-top.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 0a9fa271e..a3f8537f7 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.203 2000/06/30 18:31:31 cph Exp $
+;;; $Id: imail-top.scm,v 1.204 2000/06/30 19:11:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -2145,13 +2145,13 @@ Negative argument means search in reverse."
     (message (body <mime-body-text>) selector context mark)
   (if (and (or (not (insert-mime-context-enclosure context))
 	       (let ((disposition (mime-body-disposition body)))
-		 (and disposition
-		      (eq? (car disposition) 'INLINE)))
-	       (let ((subtype (mime-body-subtype body)))
-		 (or (eq? subtype 'PLAIN)
-		     (memq subtype
-			   (ref-variable imail-inline-mime-text-subtypes
-					 mark)))))
+		 (if disposition
+		     (eq? (car disposition) 'INLINE)
+		     (let ((subtype (mime-body-subtype body)))
+		       (or (eq? subtype 'PLAIN)
+			   (memq subtype
+				 (ref-variable imail-inline-mime-text-subtypes
+					       mark)))))))
 	   (known-mime-encoding? (mime-part-encoding context body))
 	   (re-string-match
 	    (string-append "\\`"
-- 
2.25.1