[mel-base-devel] part-body-stream bug reading from imap folder

[Fred Gibson]

I fixed the following bug in part-body-stream when reading from an
imap folder (rather than return the stream, it was returning the
header string):

diff --git a/lib/mel-base/multiparts.lisp b/lib/mel-base/multiparts.lisp
index e98c58e..dce8cc2 100644
--- a/lib/mel-base/multiparts.lisp
+++ b/lib/mel-base/multiparts.lisp
@@ -402,7 +402,8 @@
 (defmethod part-body-stream ((part part))
   "Skip header to beginning of part body and return stream"
   (let ((part-stream (part-stream part)))
-    (read-rfc2822-header part-stream)))
+    (skip-rfc2822-header part-stream)
+    part-stream))

 (defmethod open-message-input-stream-using-folder
            (folder (part part) start)

My best,

Fred Gibson

Founder / Software Developer
http://www.streamfocus.com

(c)2010 Organon Technologies LLC