From b497c57ea6afb1e2c93e61be527d0b98ac92e133 Mon Sep 17 00:00:00 2001
From: lnu <lnu@f70e237a-67f3-0310-a06c-d2b8a7116972>
Date: Tue, 19 Jul 2005 11:52:27 +0000
Subject: git-svn-id: svn+ssh://svn.gna.org/svn/feed2imap/trunk/feed2imap@35
 f70e237a-67f3-0310-a06c-d2b8a7116972

---
 ChangeLog             | 1 +
 lib/feed2imap/imap.rb | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 1a40edd..03930e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 Feed2Imap 0.4 (date unknown)
 ============================
+* New feed2imap-cleaner to remove old mails seen but not flagged
 * Feed2Imap version number wasn't displayed in the User-Agent
 * Better exception handling when parsing errors occur
 * added feed2imap's RSS feed to the default feeds in the config file
diff --git a/lib/feed2imap/imap.rb b/lib/feed2imap/imap.rb
index bb905e6..4fc1302 100644
--- a/lib/feed2imap/imap.rb
+++ b/lib/feed2imap/imap.rb
@@ -121,7 +121,7 @@ class ImapAccount
   def cleanup(folder, dryrun = false)
     puts "-- Considering #{folder}:"
     @connection.select(folder)
-    a = ['NOT', 'NEW', 'NOT', 'FLAGGED', 'BEFORE', (Date::today - 10).strftime('%d-%b-%Y')]
+    a = ['SEEN', 'NOT', 'FLAGGED', 'BEFORE', (Date::today - 3).strftime('%d-%b-%Y')]
     todel = @connection.search(a)
     todel.each do |m|
       f = @connection.fetch(m, "FULL")
-- 
cgit v1.2.3-70-g09d2