git.fiddlerwoaroof.com
load.cl
58857608
 (load (compile-file-if-needed "imap"))
f91db5d2
 (load (compile-file-if-needed "smtp"))
58857608
 
 (defun test ()
8dd85436
   (setq *xx* (net.post-office::make-imap-connection "tiger.franz.com"
58857608
 				   :user "jkfmail"
 				   :password "jkf.imap"
 				   ))
8dd85436
   (net.post-office::select-mailbox *xx* "inbox"))
58857608
 
 				   
6fa1b4ab
 (defun testp ()
8dd85436
   (setq *xx* (net.post-office::make-pop-connection "tiger.franz.com"
 						   :user "jkfmail"
 						   :password "jkf.imap"
 						   )))