From d91f97e65454576fecb345fa24a606c617d1fd00 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Jun 2000 17:32:35 +0000
Subject: [PATCH] Change attachment tag to show length of attachment.

---
 v7/src/imail/imail-top.scm | 8 ++++++--
 v7/src/imail/todo.txt      | 4 +---
 2 files changed, 7 insertions(+), 5 deletions(-)

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.
 
-- 
2.25.1