[mel-base-devel] part-body-stream bug reading from imap folder
Fred Gibson
fred at streamfocus.com
Mon Feb 15 14:32:41 UTC 2010
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
More information about the mel-base-devel
mailing list