From d48c293bc3ad4075e93673c9bae17fad3b7369d9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Jun 2000 17:35:04 +0000
Subject: [PATCH] Store bodystructure in IMAP message in converted form, so
 conversion only happens once.

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

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 4aed273ea..fbafa62de 100644
--- 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 a8c9de299..36320fb72 100644
--- 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.
-- 
2.25.1