Hi

lib/fetcher/base.rb

@@ -5,6 +5,7 @@ class Base
     # * <tt>:username</tt> - Username to use when connecting to server.
     # * <tt>:password</tt> - Password to use when connecting to server.
     # * <tt>:receiver</tt> - Receiver object to pass messages to. Assumes the
+    # * <tt>:keep</tt> - Do not remove messages from server
     # receiver object has a receive method that takes a message as it's argument
     #
     # Additional protocol-specific options implimented by sub-classes

lib/fetcher/imap.rb

@@ -52,7 +52,7 @@ def get_messages
           handle_bogus_message(msg)
         end
         # Mark message as deleted 
-        @connection.uid_store(uid, "+FLAGS", [:Seen, :Deleted])
+        @connection.uid_store(uid, "+FLAGS", [:Seen, :Deleted]) unless @keep
       end
     end
 
@@ -64,7 +64,7 @@ def handle_bogus_message(message)
 
     # Delete messages and log out
     def close_connection
-      @connection.expunge
+      @connection.expunge unless @keep
       @connection.logout
       begin
         @connection.disconnect unless @connection.disconnected?

lib/fetcher/pop.rb

@@ -31,7 +31,7 @@ def get_messages
             handle_bogus_message(msg.pop)
           end
           # Delete message from server
-          msg.delete
+          msg.delete unless @keep
         end
       end
     end