Browse code
add-comment
jkf authored on 03/12/1999 16:14:50
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -19,7 +19,7 @@ |
19 | 19 |
;; Commercial Software developed at private expense as specified in |
20 | 20 |
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. |
21 | 21 |
;; |
22 |
-;; $Id: imap.cl,v 1.7 1999/11/29 21:59:48 jkf Exp $ |
|
22 |
+;; $Id: imap.cl,v 1.8 1999/12/03 16:14:50 jkf Exp $ |
|
23 | 23 |
|
24 | 24 |
;; Description: |
25 | 25 |
;; |
... | ... |
@@ -93,9 +93,18 @@ |
93 | 93 |
|
94 | 94 |
(defparameter *imap-version-number* '(:major 1 :minor 3)) ; major.minor |
95 | 95 |
|
96 |
+;; todo |
|
97 |
+;; have the list of tags selected done on a per connection basis to |
|
98 |
+;; eliminate any possible multithreading problems |
|
99 |
+;; |
|
100 |
+;; |
|
101 |
+ |
|
96 | 102 |
(defvar *debug-imap* nil) |
97 | 103 |
|
98 | 104 |
|
105 |
+ |
|
106 |
+ |
|
107 |
+ |
|
99 | 108 |
(defclass post-office () |
100 | 109 |
((socket :initarg :socket |
101 | 110 |
:accessor post-office-socket) |