From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Jun 2000 17:32:35 +0000 (+0000)
Subject: Change attachment tag to show length of attachment.
X-Git-Tag: 20090517-FFI~3611
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d91f97e65454576fecb345fa24a606c617d1fd00;p=mit-scheme.git

Change attachment tag to show length of attachment.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index afeb93d3d..c90992e2b 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.125 2000/06/05 13:27:42 cph Exp $
+;;; $Id: imail-top.scm,v 1.126 2000/06/05 17:32:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1100,7 +1100,11 @@ With prefix argument N moves backward N messages with these flags."
       (insert-newline mark)
       (change-column column mark)
       (insert-string "encoding=" mark)
-      (insert (mime-body-one-part-encoding body) mark))
+      (insert (mime-body-one-part-encoding body) mark)
+      (insert-newline mark)
+      (change-column column mark)
+      (insert-string "length=" mark)
+      (insert (mime-body-one-part-n-octets body) mark))
     (insert-string ">" mark)
     (insert-newline mark)
     (region-put! start mark 'IMAIL-MIME-ATTACHMENT (cons body selector))))
diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index 240f61c42..a8c9de299 100644
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,11 +1,9 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.58 2000/06/05 17:29:43 cph Exp $
+$Id: todo.txt,v 1.59 2000/06/05 17:32:35 cph Exp $
 
 Bug fixes
 ---------
 
-* Change attachment tag to show length of attachment.
-
 * Store bodystructure in IMAP message in converted form, so conversion
   only happens once.