@@ -1,3 +1,8 @@

+1999-11-29  John Foderaro  <jkf@tiger.franz.com>

+version 1.3

+	* imap.cl - fixed bug where extra ^b's ended up in strings

+	* imap.html - fixed ref to wrong function

+

 1999-10-27  John Foderaro  <jkf@tiger.franz.com>

 version 1.2

@@ -19,7 +19,7 @@

 ;; Commercial Software developed at private expense as specified in

 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.

 ;;

-;; $Id: imap.cl,v 1.6 1999/10/27 19:16:31 jkf Exp $

+;; $Id: imap.cl,v 1.7 1999/11/29 21:59:48 jkf Exp $

 ;; Description:

 ;;

@@ -91,7 +91,7 @@

 (provide :imap)

-(defparameter *imap-version-number* '(:major 1 :minor 2)) ; major.minor

+(defparameter *imap-version-number* '(:major 1 :minor 3)) ; major.minor

 (defvar *debug-imap* nil)

@@ -457,7 +457,10 @@

 	 elseif (equal tag got-tag)

 	   then (funcall tagged-handler mb cmd count extra comment)

 		(return)

-	   else (warn "received tag ~s out of order" got-tag))))))

+	   else (po-error :error-response

+			  :format-control "received tag ~s out of order" 

+			  :format-arguments (list got-tag)

+			  :server-string comment))))))

 (defun get-next-tag ()

@@ -1537,6 +1540,7 @@

 		      (setf (schar buff i) #\^b) ; end of inset string

 		      (incf i)

 		      (free-line-buffer ans)

+		      (setq whole-count nil)

 		      )

 	     elseif ch

 	       then ; we're growing the buffer holding the line data

@@ -1544,6 +1548,7 @@

 		    (setf (schar buff i) ch)

 		    (incf i))

+	    

 	    (block timeout

 	      (mp:with-timeout ((timeout mailbox)

 				(po-error :timeout

@@ -177,7 +177,7 @@ server.&nbsp;&nbsp;&nbsp; <strong>mailbox </strong>is the object returned by <st

 &nbsp;&nbsp; This does <em>not</em> close the currently select mailbox before logging out,

 thus messages marked to be deleted in the currently selected mailbox will <em>not</em> be

 removed from the&nbsp; mailbox.&nbsp; Use <strong>close-mailbox</strong> or <strong>expunge-mailbox</strong>

-before calling this <strong>close-imap-connection</strong> to ensure that messages to be

+before calling this <strong>close-connection</strong> to ensure that messages to be

 deleted are deleted.</p>

 <p align="left">&nbsp;</p>

@@ -59,7 +59,9 @@

 			      (test-eql 0 (po:mailbox-message-count mb)))

 		      ; remove mailbox (except inbox)

 		      (if* (not (equalp "inbox" (po:mailbox-list-name mblist)))

-			 then (po:delete-mailbox mb (po:mailbox-list-name mblist)))

+			 then ; must not be selected if we want to del

+			      (po:select-mailbox mb "inbox") 

+			      (po:delete-mailbox mb (po:mailbox-list-name mblist)))

 		      )))