From: teranisi <teranisi>
Date: Wed, 12 Dec 2001 06:07:39 +0000 (+0000)
Subject: * bbdb-wl.el (bbdb-wl-setup): Added autoload magic.
X-Git-Tag: wl-2_8-root~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ad375c41b2bc6987c19a0e95bd30cb92f13eb42;p=elisp%2Fwanderlust.git

* bbdb-wl.el (bbdb-wl-setup): Added autoload magic.

* elmo-pop3.el (elmo-pop3-read-response): Set timeout argument
of accept-process-output as 1.
(elmo-pop3-read-contents): Ditto.
(elmo-pop3-read-body): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7340002..1af19b4 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2001-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-pop3.el (elmo-pop3-read-response): Set timeout argument
+	of accept-process-output as 1.
+	(elmo-pop3-read-contents): Ditto.
+	(elmo-pop3-read-body): Ditto.
+
 2001-12-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* elmo-version.el (product-version-as-string): Remove define.
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 259c311..2af46c9 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -190,7 +190,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"")
       (while response-continue
 	(goto-char elmo-pop3-read-point)
 	(while (not (re-search-forward "\r?\n" nil t))
-	  (accept-process-output process)
+	  (accept-process-output process 1)
 	  (goto-char elmo-pop3-read-point))
 	(setq match-end (point))
 	(setq response-string
@@ -420,7 +420,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"")
 	  match-end)
       (goto-char elmo-pop3-read-point)
       (while (not (re-search-forward "^\\.\r\n" nil t))
-	(accept-process-output process)
+	(accept-process-output process 1)
 	(goto-char elmo-pop3-read-point))
       (setq match-end (point))
       (elmo-delete-cr
@@ -809,7 +809,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"")
 	  end)
       (goto-char start)
       (while (not (re-search-forward "^\\.\r?\n" nil t))
-	(accept-process-output process)
+	(accept-process-output process 1)
 	(goto-char start))
       (setq end (point))
       (with-current-buffer outbuf
diff --git a/utils/ChangeLog b/utils/ChangeLog
index eb3b3f5..397a19a 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* bbdb-wl.el (bbdb-wl-setup): Added autoload magic.
+
 2001-12-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* bbdb-wl.el (bbdb-wl-setup): require bbdb-autoloads if exists.
diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
index 3ba6872..cfabd0c 100644
--- a/utils/bbdb-wl.el
+++ b/utils/bbdb-wl.el
@@ -32,6 +32,7 @@
 (defvar bbdb-wl-get-update-record-hook nil)
 (defvar bbdb-wl-folder-regexp nil)
 
+;;;###autoload
 (defun bbdb-wl-setup ()
   (add-hook 'wl-message-redisplay-hook 'bbdb-wl-get-update-record)
   (add-hook 'wl-summary-exit-hook 'bbdb-wl-hide-bbdb-buffer)