From: teranisi <teranisi>
Date: Mon, 11 Jun 2001 03:49:27 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-shimbun-msgdb-to-headers): Inverted logic.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0cc7443ba39e5621a4d86557a25def02d942e9f3;p=elisp%2Fwanderlust.git

* elmo-shimbun.el (elmo-shimbun-msgdb-to-headers): Inverted logic.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fbab6e5..82970e3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-06-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-shimbun.el (elmo-shimbun-msgdb-to-headers): Inverted logic.
+
 	* elmo-util.el (elmo-file-field-primitive-condition-match):
 	New inline function (Don't fetch file content if "first" or "last").
 	(elmo-file-field-condition-match): Use
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 1c1ec09..c1d9922 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -96,7 +96,7 @@ See `shimbun-headers' for more detail about RANGE."
     (dolist (ov (elmo-msgdb-get-overview (elmo-folder-msgdb folder)))
       (when (and (elmo-msgdb-overview-entity-get-extra-field ov "xref")
 		 (if expire-days
-		     (> (elmo-shimbun-lapse-seconds
+		     (< (elmo-shimbun-lapse-seconds
 			 (elmo-shimbun-parse-time-string
 			  (elmo-msgdb-overview-entity-get-date ov)))
 			(* expire-days 86400 ; seconds per day