From 1ef23e2a98d6ebf9bb4ba308f7909766f8f93dce Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 21 Jun 2001 00:36:21 +0000 Subject: [PATCH] * elmo.el (elmo-generic-folder-append-messages): Fixed logic. (Detected by NAKAJIMA Mikio ) --- elmo/ChangeLog | 5 +++++ elmo/elmo.el | 18 ++++++++---------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index ea3f104..81714c2 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-06-21 Yuuichi Teranishi + + * elmo.el (elmo-generic-folder-append-messages): Fixed logic. + (Detected by NAKAJIMA Mikio ) + 2001-06-20 Yuuichi Teranishi * elmo-util.el (elmo-get-network-stream-type): Moved to elmo-net.el. diff --git a/elmo/elmo.el b/elmo/elmo.el index 3d25d96..3937506 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -854,16 +854,14 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).") (elmo-message-fetch src-folder (car numbers) (if (and (not (elmo-folder-plugged-p src-folder)) - elmo-enable-disconnected-operation) - (if (and (setq cache (elmo-file-cache-get - (elmo-message-field - src-folder (car numbers) - 'message-id))) - (eq (elmo-file-cache-status cache) 'entire)) - (elmo-make-fetch-strategy - 'entire - t - nil (elmo-file-cache-path cache))) + elmo-enable-disconnected-operation + (setq cache (elmo-file-cache-get + (elmo-message-field + src-folder (car numbers) + 'message-id))) + (eq (elmo-file-cache-status cache) 'entire)) + (elmo-make-fetch-strategy + 'entire t nil (elmo-file-cache-path cache)) (elmo-make-fetch-strategy 'entire)) nil (current-buffer) 'unread) -- 1.7.10.4