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 afeb93d3de05bd4521c60a04088d1b9d7a0d67ae..c90992e2bf651649c4c9d578bc5a81b36f7dfd62 100644 (file)
--- 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 240f61c42a1801725a4e72d7b344c5d5055c8a14..a8c9de299a7ef7d04521987da62af9ed4ae47ea3 100644 (file)
--- 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.