From 402b885105ac5fb4e27ddff819ffcbb4cc2df368 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 20:16:05 +0000
Subject: [PATCH] Respect INLINE disposition if present.

---
 v7/src/imail/imail-top.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
-- 
2.25.1