From 95fbb69998984c503486e1bf4a0de28356c242dc Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 9 Jan 2001 04:23:20 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-session-check): Clear `elmo-imap4-fetch-callback' and `elmo-imap4-fetch-callback-data'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 8d419eb..f7b2f6f 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-01-09 Yuuichi Teranishi + + * elmo-imap4.el (elmo-imap4-session-check): + Clear `elmo-imap4-fetch-callback' and `elmo-imap4-fetch-callback-data'. + 2000-12-29 TAKAHASHI Kaoru * elmo2.el (toplevel): Move `product-provide' declare. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 24a290b..84ed240 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -362,6 +362,9 @@ If response is not `OK' response, causes error with IMAP response text." ;;; (defun elmo-imap4-session-check (session) + (with-current-buffer (elmo-network-session-buffer session) + (setq elmo-imap4-fetch-callback nil) + (setq elmo-imap4-fetch-callback-data nil)) (elmo-imap4-send-command-wait session "check")) (defun elmo-imap4-atom-p (string) -- 1.7.10.4