From: hmurata <hmurata>
Date: Wed, 23 Feb 2005 04:43:00 +0000 (+0000)
Subject: (elmo-filter-add-flag-count): Removed unused
X-Git-Tag: wl-2_14-root~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dbe998d1d9e0bb2c424dc2c9f79fb09eda4154aa;p=elisp%2Fwanderlust.git

(elmo-filter-add-flag-count): Removed unused
argument `number'.
(elmo-filter-connect-signals): Follow the above change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6afa5ed..f257dea 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-filter.el (elmo-filter-add-flag-count): Removed unused
+	argument `number'.
+	(elmo-filter-connect-signals): Follow the above change.
+
 2005-02-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* modb-standard.el (elmo-msgdb-unset-flag): Bind inhibit-quit.
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 632b095..fda3160 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -66,8 +66,8 @@
   (elmo-connect-signal
    target 'flag-changing folder
    (elmo-define-signal-handler (folder target number old-flags new-flags)
-     (elmo-filter-add-flag-count folder number old-flags -1)
-     (elmo-filter-add-flag-count folder number new-flags)
+     (elmo-filter-add-flag-count folder old-flags -1)
+     (elmo-filter-add-flag-count folder new-flags)
      (elmo-emit-signal 'flag-changing folder number old-flags new-flags))
    (elmo-define-signal-filter (folder target number)
      (memq number (elmo-folder-list-messages folder nil t))))
@@ -113,7 +113,7 @@
 	  (setq flag-count (cons (cons flag delta) flag-count)))))
     (elmo-filter-folder-set-flag-count-internal folder flag-count)))
 
-(defun elmo-filter-add-flag-count (folder number flags &optional delta)
+(defun elmo-filter-add-flag-count (folder flags &optional delta)
   (let ((flag-count (elmo-filter-folder-flag-count-internal folder))
 	(delta (or delta 1))
 	elem)