From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 20:16:05 +0000 (+0000)
Subject: Respect INLINE disposition if present.
X-Git-Tag: 20090517-FFI~3516
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=402b885105ac5fb4e27ddff819ffcbb4cc2df368;p=mit-scheme.git

Respect INLINE disposition if present.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index c25d7db4b..84130f60c 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.161 2000/06/15 16:34:35 cph Exp $
+;;; $Id: imail-top.scm,v 1.162 2000/06/15 20:16:05 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1196,6 +1196,9 @@ With prefix argument N moves backward N messages with these flags."
 		encoding
 		(mime-body-one-part-encoding body)))))
     (if (and (or (not enclosure)
+		 (let ((disposition (mime-body-disposition body)))
+		   (and disposition
+			(eq? (car disposition) 'INLINE)))
 		 (let ((subtype (mime-body-subtype body)))
 		   (or (eq? subtype 'PLAIN)
 		       (memq subtype