From 5c9197d11a41633b43190a9da18624e22a46763d Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 11 May 2001 02:28:06 +0000 Subject: [PATCH] * elmo-net.el (elmo-message-fetch-unplugged): Don't call `elmo-message-fetch'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-net.el | 20 +++++--------------- 2 files changed, 10 insertions(+), 15 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index c36e2cc..3f90cf8 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-05-11 Hiroya Murata + + * elmo-net.el (elmo-message-fetch-unplugged): Don't call + `elmo-message-fetch'. + 2001-05-10 Hiroya Murata * elmo-net.el (elmo-message-encache): Fixed typo. diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el index 3ffdc5f..d3af2cc 100644 --- a/elmo/elmo-net.el +++ b/elmo/elmo-net.el @@ -513,21 +513,11 @@ Returns a process object. if making session failed, returns nil." (luna-define-method elmo-message-fetch-unplugged ((folder elmo-net-folder) number strategy &optional section outbuf unseen) - (if elmo-enable-disconnected-operation - (if (< number 0) - (elmo-message-fetch-internal - (elmo-dop-spool-folder folder) (abs number) strategy - section unseen) - (elmo-message-fetch - folder number - ;; fetch with entire cache process. - (elmo-make-fetch-strategy 'entire - t nil - (elmo-file-cache-path - (elmo-file-cache-get - (elmo-message-field folder number - 'message-id)))) - section outbuf unseen)) + (if (and elmo-enable-disconnected-operation + (< number 0)) + (elmo-message-fetch-internal + (elmo-dop-spool-folder folder) (abs number) strategy + section unseen) (error "Unplugged"))) (luna-define-method elmo-folder-check ((folder elmo-net-folder)) -- 1.7.10.4