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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fbab6e5..82970e3 100644 (file)
--- 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 (file)
--- 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