From fbdb62625b9f613019c6f5b44260312e362fc5c7 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Sep 2002 04:06:29 +0000 Subject: [PATCH] * elmo-net.el (elmo-folder-unmark-important): Added :around qualifier. (elmo-folder-mark-as-important): Ditto. (elmo-folder-unmark-read): Ditto. (elmo-folder-mark-as-read): Ditto. (elmo-folder-unmark-answered): Ditto. (elmo-folder-mark-as-answered): Ditto. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-net.el | 36 ++++++++++++++++++++---------------- 2 files changed, 27 insertions(+), 16 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index ee906b9..7322efe 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,12 @@ 2002-09-17 Yuuichi Teranishi + * elmo-net.el (elmo-folder-unmark-important): Added :around qualifier. + (elmo-folder-mark-as-important): Ditto. + (elmo-folder-unmark-read): Ditto. + (elmo-folder-mark-as-read): Ditto. + (elmo-folder-unmark-answered): Ditto. + (elmo-folder-mark-as-answered): Ditto. + * elmo-msgdb.el (elmo-msgdb-match-condition-primitive): Added argument `mark'; evaluate mark condition. (elmo-msgdb-match-condition-internal): New function. diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el index 51d70e6..966b3c6 100644 --- a/elmo/elmo-net.el +++ b/elmo/elmo-net.el @@ -455,45 +455,48 @@ Returned value is searched from `elmo-network-stream-type-alist'." (mapcar 'abs numbers) seen-list))) -(luna-define-method elmo-folder-unmark-important ((folder elmo-net-folder) - numbers) +(luna-define-method elmo-folder-unmark-important :around ((folder + elmo-net-folder) + numbers) (if (elmo-folder-use-flag-p folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder 'elmo-folder-unmark-important-plugged numbers) (elmo-folder-send folder 'elmo-folder-unmark-important-unplugged numbers)) - t)) + (luna-call-next-method))) -(luna-define-method elmo-folder-mark-as-important ((folder elmo-net-folder) - numbers) +(luna-define-method elmo-folder-mark-as-important :around ((folder + elmo-net-folder) + numbers) (if (elmo-folder-use-flag-p folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder 'elmo-folder-mark-as-important-plugged numbers) (elmo-folder-send folder 'elmo-folder-mark-as-important-unplugged numbers)) - t)) + (luna-call-next-method))) -(luna-define-method elmo-folder-unmark-read ((folder elmo-net-folder) - numbers) +(luna-define-method elmo-folder-unmark-read :around ((folder elmo-net-folder) + numbers) (if (elmo-folder-use-flag-p folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder 'elmo-folder-unmark-read-plugged numbers) (elmo-folder-send folder 'elmo-folder-unmark-read-unplugged numbers)) - t)) + (luna-call-next-method))) -(luna-define-method elmo-folder-mark-as-read ((folder elmo-net-folder) - numbers) +(luna-define-method elmo-folder-mark-as-read :around ((folder elmo-net-folder) + numbers) (if (elmo-folder-use-flag-p folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder 'elmo-folder-mark-as-read-plugged numbers) (elmo-folder-send folder 'elmo-folder-mark-as-read-unplugged numbers)) - t)) + (luna-call-next-method))) -(luna-define-method elmo-folder-unmark-answered ((folder elmo-net-folder) - numbers) +(luna-define-method elmo-folder-unmark-answered :around ((folder + elmo-net-folder) + numbers) (if (elmo-folder-use-flag-p folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder 'elmo-folder-unmark-answered-plugged @@ -502,8 +505,9 @@ Returned value is searched from `elmo-network-stream-type-alist'." 'elmo-folder-unmark-answered-unplugged numbers)) (luna-call-next-method))) -(luna-define-method elmo-folder-mark-as-answered ((folder elmo-net-folder) - numbers) +(luna-define-method elmo-folder-mark-as-answered :around ((folder + elmo-net-folder) + numbers) (if (elmo-folder-use-flag-p folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder 'elmo-folder-mark-as-answered-plugged -- 1.7.10.4