From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 18:15:25 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~3577
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74144d4c848bd434b94a39bcd653ef6b2ce55778;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index c1601f1cb..096c6eed5 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.140 2000/06/08 17:16:26 cph Exp $
+;;; $Id: imail-top.scm,v 1.141 2000/06/08 18:15:25 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1039,7 +1039,8 @@ With prefix argument N moves backward N messages with these flags."
 
 (define-method insert-mime-message-part
     (message (body <mime-body>) enclosure selector mark)
-  (insert-mime-message-binary message body enclosure selector mark))
+  message enclosure
+  (insert-mime-message-attachment 'ATTACHMENT body selector mark))
 
 (define-method insert-mime-message-part
     (message (body <mime-body-multipart>) enclosure selector mark)
@@ -1119,12 +1120,8 @@ With prefix argument N moves backward N messages with these flags."
 		(else
 		 (write-string text port)))))
 	  (guarantee-newline mark))
-	(insert-mime-message-binary message body enclosure selector mark))))
+	(insert-mime-message-attachment 'ATTACHMENT body selector mark))))
 
-(define (insert-mime-message-binary message body enclosure selector mark)
-  message enclosure
-  (insert-mime-message-attachment 'ATTACHMENT class body selector mark))
-
 (define (insert-mime-message-attachment class body selector mark)
   (let ((start (mark-right-inserting-copy mark)))
     (insert-string "<IMAIL-" mark)