From: teranisi Date: Tue, 17 Sep 2002 12:48:21 +0000 (+0000) Subject: * wl-summary.el: Fixed last change, again. X-Git-Tag: elmo-mark-restart~133 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5d54ef2707b484b8538fec6ad3f87e372a788793;p=elisp%2Fwanderlust.git * wl-summary.el: Fixed last change, again. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index a657501..1ccc7fe 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,6 +1,6 @@ 2002-09-17 Yuuichi Teranishi - * wl-summary.el (wl-summary-prefetch-msg): Use elmo-msgdb-set-cached. + * wl-summary.el (wl-summary-prefetch-msg): Use elmo-message-set-cached. (wl-summary-delete-cache): Likewise. (wl-summary-mark-as-read): Rewrite. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 355de2d..d91c62a 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1424,7 +1424,8 @@ If ARG is non-nil, checking is omitted." (elmo-message-encache wl-summary-buffer-elmo-folder number)) - (elmo-msgdb-set-cached msgdb number t) + (elmo-message-set-cached wl-summary-buffer-elmo-folder + number t) (setq new-mark (or (elmo-message-mark wl-summary-buffer-elmo-folder number) @@ -1702,7 +1703,7 @@ If ARG is non-nil, checking is omitted." (case-fold-search nil) new-mark mark number unread) (setq number (wl-summary-message-number)) - (elmo-msgdb-set-cached msgdb number nil) + (elmo-message-set-cached folder number nil) (setq new-mark (elmo-message-mark folder number) mark (wl-summary-persistent-mark)) (unless (string= new-mark mark) @@ -3937,7 +3938,7 @@ If ARG, exit virtual folder." mark (elmo-message-mark folder number)) ;; folder mark. (elmo-folder-mark-as-read folder (list number) no-folder-mark) - (elmo-msgdb-set-cached msgdb number t) + (elmo-message-set-cached folder number t) (setq new-mark (elmo-message-mark folder number)) ;; ;; elmo-folder-mark-as-read should return unread numbers?