From 5ad375c41b2bc6987c19a0e95bd30cb92f13eb42 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 12 Dec 2001 06:07:39 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-pop3.el | 6 +++--- utils/ChangeLog | 4 ++++ utils/bbdb-wl.el | 1 + 4 files changed, 15 insertions(+), 3 deletions(-) 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 + + * 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 * 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 + + * bbdb-wl.el (bbdb-wl-setup): Added autoload magic. + 2001-12-12 TAKAHASHI Kaoru * 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) -- 1.7.10.4