[mel-base-devel] Ensure-Connection problem with imaps-folder

[Fred Gibson]

I'm working with imaps-folder's and noticed a problem where ensure
connection tries to reconnect using the non-ssl make-imap-connection
method.  This fix seems to solve the problem:

diff --git a/lib/mel-base/folders/imap/folder.lisp
b/lib/mel-base/folders/imap/folder.lisp
index f855744..bfaf9c6 100644
--- a/lib/mel-base/folders/imap/folder.lisp
+++ b/lib/mel-base/folders/imap/folder.lisp
@@ -532,7 +532,9 @@

 (defmethod ensure-connection ((folder imap-folder))
   (when (eq (state folder) :disconnected)
-    (setf (connection folder) (make-imap-connection folder))
+    (setf (connection folder) (if (eq (type-of *)
'mel.folders.imap:imaps-folder)
+                                  (make-imaps-connection folder)
+                                  (make-imap-connection folder)))
     (setf (state folder) :connected)
     (select-mailbox folder))
   (handler-case

My best,
-- 
Fred Gibson

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

(c)2010 Organon Technologies LLC