Store bodystructure in IMAP message in converted form, so conversion

only happens once.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 4aed273ea88fccae92dbec52da9fde720d7d62d3..fbafa62de231d8f5c8afed901f62fde0dc532ba7 100644 (file)
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.106 2000/06/05 17:29:29 cph Exp $
+;;; $Id: imail-imap.scm,v 1.107 2000/06/05 17:35:04 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -796,7 +796,7 @@
 ;;;; MIME support
 
 (define-method message-mime-body-structure ((message <imap-message>))
-  (parse-mime-body (imap-message-bodystructure message)))
+  (imap-message-bodystructure message))
 
 (define-method message-mime-body-part ((message <imap-message>) selector)
   (let ((section
@@ -1541,7 +1541,7 @@
 (define (process-fetch-attribute message keyword datum)
   (case keyword
     ((BODYSTRUCTURE)
-     (%set-imap-message-bodystructure! message datum)
+     (%set-imap-message-bodystructure! message (parse-mime-body datum))
      #t)
     ((ENVELOPE)
      (%set-imap-message-envelope! message datum)

diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index a8c9de299a7ef7d04521987da62af9ed4ae47ea3..36320fb72d569e61cbefb51e7054fb6bfaa1d4c8 100644 (file)
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,12 +1,9 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.59 2000/06/05 17:32:35 cph Exp $
+$Id: todo.txt,v 1.60 2000/06/05 17:34:57 cph Exp $
 
 Bug fixes
 ---------
 
-* Store bodystructure in IMAP message in converted form, so conversion
-  only happens once.
-
 * When message is selected in IMAIL and deleted by a different user
   agent, IMAIL ends up in state that there is no selected message.
   Instead, it should select another message.