From b808793cd3f99d95aca01e9783d593c7a0a3319d Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Tue, 28 Aug 2001 01:50:20 +0000
Subject: [PATCH] * acap.el (toplevel): Added tiny comments.

---
 elmo/ChangeLog |    1 +
 elmo/acap.el   |   30 ++++++++++++++++++++++++++++--
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2f534fa..98e22b5 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -4,6 +4,7 @@
 	(acap-network-stream-open): Show "Connecting..." message.
 	(acap-parse-response): Fixed problem for BYE untagged response.
 	(acap-open): Changed argument (Use `acap-default-user' if user is nil).
+	(toplevel): Added tiny comments.
 
 2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>
 
diff --git a/elmo/acap.el b/elmo/acap.el
index 75aec73..55a02cb 100644
--- a/elmo/acap.el
+++ b/elmo/acap.el
@@ -24,10 +24,36 @@
 ;;
 
 ;;; Commentary:
-;;  Some codes are based on imap.el.
+;;
+;; acap.el is an elisp library providing an interface for talking to
+;; ACAP (RFC2244) servers. 
+;; 
+;; This is a transcript of short interactive session for demonstration
+;; purposes.
+
+;; (setq proc (acap-open "my.acap.server" "username" "CRAM-MD5"))
+;; => #<process ACAP>
+;;
+;; (acap-search proc "/addressbook/" '((RETURN ("*")))))
+;; => ((done-ok nil "search completed")
+;;     (modtime . "20010828091433000010")
+;;     (entry "user"
+;;	   ((("subdataset"
+;;	      ("."))
+;;	     ("modtime" "20010824004532000003")
+;;	     ("entry" "user"))))
+;;     (entry ""
+;;	   ((("modtime" "20010824004532000002")
+;;	     ("entry" "")
+;;	     ("dataset.owner" "anonymous")
+;;	     ("dataset.acl" ("$anyone	xrwia")))))
+;;
+;; (acap-close proc)
+;; => t
 
 ;;; History:
-;; 
+;;
+;; 27 Aug 2001 Created (Some codes are based on imap.el.).
 
 ;;; Code:
 
-- 
1.7.10.4