From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 24 Feb 2010 19:51:50 +0000 (-0800)
Subject: Fixup ignores.
X-Git-Tag: 20100708-Gtk~152
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1968c73720582f00f2c6f942604466411bce0737;p=mit-scheme.git

Fixup ignores.
---

diff --git a/src/imail/imail-top.scm b/src/imail/imail-top.scm
index cf6cb4708..b54359eea 100644
--- a/src/imail/imail-top.scm
+++ b/src/imail/imail-top.scm
@@ -2567,7 +2567,7 @@ WARNING: With a prefix argument, this command may take a very long
 
 (define-method insert-mime-body-inline*
     (entity (body <mime-body>) selector context mark)
-  entity body selector context		;ignore
+  entity selector			;ignore
   (call-with-auto-wrapped-output-mark
    mark
    (walk-mime-context-left-margin context)
@@ -2618,7 +2618,6 @@ WARNING: With a prefix argument, this command may take a very long
 
 (define-method compute-mime-body-outline
     ((body <mime-body-one-part>) name context)
-  context
   (append (call-next-method body name context)
 	  (list (let ((encoding (mime-body-one-part-encoding body)))
 		  (and (not (known-mime-encoding? encoding))