From 4885d8445d860b901ef213b5c712a916c9a3f3d4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Jun 2000 16:41:17 +0000
Subject: [PATCH] Decode BinHex 4.0 attachments.

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

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 44ffd08fa..82c65d364 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.197 2000/06/27 16:37:48 cph Exp $
+;;; $Id: imail-top.scm,v 1.198 2000/06/27 16:41:17 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -899,8 +899,8 @@ With prefix argument, prompt even when point is on an attachment."
 	   (call-with-mime-decoding-output-port
 	    (let ((encoding (mime-body-one-part-encoding body)))
 	      (if (and (eq? (mime-body-type body) 'APPLICATION)
-		       (eq? (mime-body-subtype body) 'BINHEX40)
-		       (memq encoding '(7BIT 8BIT BINARY)))
+		       (eq? (mime-body-subtype body) 'MAC-BINHEX40)
+		       (eq? encoding '7BIT))
 		  'BINHEX40
 		  encoding))
 	    port
-- 
2.25.1