From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Jun 2000 16:41:17 +0000 (+0000)
Subject: Decode BinHex 4.0 attachments.
X-Git-Tag: 20090517-FFI~3433
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4885d8445d860b901ef213b5c712a916c9a3f3d4;p=mit-scheme.git

Decode BinHex 4.0 attachments.
---

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