mlist 0.1.12 → 0.1.13

data/CHANGELOG

@@ -1,3 +1,7 @@
+*0.1.12 [Enhancement] (2010-03-26)
+
+* Added footers to html parts of email. [aiwilliams]
+
 *0.1.10 [Enhancement] (2010-01-11)
 
 * Delegating back to the list the question of whether an email has been to the list before (X-BeenThere checking). [aiwilliams]
@@ -60,4 +64,4 @@
 * Including display_name in from address of EmailPost. [aiwilliams]
 * Improved extraction of text when it is nested inside parts. [aiwilliams]
 
-*0.1.1 [First Working Release] (January 5, 2009)
+*0.1.1 [First Working Release] (January 5, 2009)

data/VERSION.yml

@@ -1,5 +1,5 @@
 --- 
-:patch: 12
+:patch: 13
 :major: 0
 :build: 
 :minor: 1

data/lib/mlist/email_server/imap.rb

@@ -0,0 +1,63 @@
+require 'net/imap'
+
+module MList
+  module EmailServer
+
+    class Imap < Base
+      def initialize(settings)
+        super(settings)
+        @imap = Net::IMAP.new(
+          settings[:server],
+          settings[:port],
+          settings[:ssl]
+        )
+      end
+
+      def deliver(tmail)
+        raise "Mail delivery is not presently supported by the Imap server. Please use the '#{MList::EmailServer::Default.name}' type."
+      end
+
+      def execute
+        connect { process_folders }
+      end
+
+      def archive_message_id(id)
+        @imap.copy(id, settings[:archive_folder])
+        @imap.store(id, '+FLAGS', [:Deleted])
+      end
+
+      def connect
+        @imap.login(settings[:username], settings[:password])
+        begin
+          yield
+        ensure
+          @imap.close
+        end
+      end
+
+      def process_folders
+        Array(settings[:source_folders]).each do |folder|
+          process_folder(folder)
+        end
+      end
+
+      def process_folder(folder)
+        @imap.select(folder)
+        @imap.search(['ALL']).each do |message_id|
+          process_message_id(message_id)
+          archive_message_id(message_id)
+        end
+      end
+
+      def process_message_id(id)
+        content = @imap.fetch(id, 'RFC822')[0].attr['RFC822']
+        process_message(content)
+      end
+
+      def process_message(content)
+        receive(TMail::Mail.parse(content))
+      end
+    end
+
+  end
+end

data/spec/integration/imap_email_server_spec.rb

@@ -0,0 +1,72 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+require 'mlist/email_server/imap'
+
+describe MList::EmailServer::Imap, 'settings' do
+  it 'should use the provided credentials' do
+    mock(Net::IMAP).new('host', 993, true) { mock('imap') }
+    MList::EmailServer::Imap.new(:server => 'host', :port => 993, :ssl => true)
+  end
+
+  it 'should login with the provided credentials, process the folders, close on completion' do
+    imap_server = Object.new
+    stub(Net::IMAP).new { imap_server }
+
+    mock(imap_server).login('aahh', 'eeya')
+    mock(imap_server).close
+
+    imap = MList::EmailServer::Imap.new(
+      :username => 'aahh', :password => 'eeya'
+    )
+    mock(imap).process_folders
+    imap.execute
+  end
+
+  it 'should process the provided folders' do
+    imap_server = Object.new
+    stub(Net::IMAP).new { imap_server }
+    imap = MList::EmailServer::Imap.new(
+      :source_folders => ['Inbox', 'Spam']
+    )
+    mock(imap).process_folder('Inbox')
+    mock(imap).process_folder('Spam')
+    imap.process_folders
+  end
+end
+
+describe MList::EmailServer::Imap, 'processing' do
+  before do
+    @imap_server = 'mock_imap_server'
+    stub(Net::IMAP).new { @imap_server }
+    @imap = MList::EmailServer::Imap.new({:archive_folder => 'Archive'})
+  end
+
+  it 'should examine the specified folder and process all the messages' do
+    message_ids = [1,2]
+    mock(@imap_server).select('folder')
+    mock(@imap_server).search(['ALL']) { message_ids }
+    mock(@imap).process_message_id(1)
+    mock(@imap).archive_message_id(1)
+    mock(@imap).process_message_id(2)
+    mock(@imap).archive_message_id(2)
+    @imap.process_folder('folder')
+  end
+
+  it 'should process the RFC822 message content' do
+    mock(@imap_server).fetch(1, 'RFC822').mock![0].mock!.attr.mock!['RFC822'].returns('email content')
+    mock(@imap).process_message('email content')
+    @imap.process_message_id(1)
+  end
+
+  it 'should wrap up RFC822 content in a TMail::Mail object' do
+    tmail = 'mock_tmail'
+    mock(TMail::Mail).parse('email content') { tmail }
+    mock(@imap).receive(tmail)
+    @imap.process_message('email content')
+  end
+
+  it 'should archive to the specified folder' do
+    mock(@imap_server).copy(1, 'Archive')
+    mock(@imap_server).store(1, '+FLAGS', [:Deleted])
+    @imap.archive_message_id(1)
+  end
+end

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 1
-  - 12
-  version: 0.1.12
+  - 13
+  version: 0.1.13
 platform: ruby
 authors: 
 - Adam Williams
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-03-26 00:00:00 -04:00
+date: 2010-04-02 00:00:00 -04:00
 default_executable: 
 dependencies: []
 
@@ -40,6 +40,7 @@ files:
 - lib/mlist/email_server/base.rb
 - lib/mlist/email_server/default.rb
 - lib/mlist/email_server/fake.rb
+- lib/mlist/email_server/imap.rb
 - lib/mlist/email_server/pop.rb
 - lib/mlist/email_server/smtp.rb
 - lib/mlist/email_subscriber.rb
@@ -92,6 +93,7 @@ summary: A Ruby mailing list library designed to be integrated into other applic
 test_files: 
 - spec/fixtures/schema.rb
 - spec/integration/date_formats_spec.rb
+- spec/integration/imap_email_server_spec.rb
 - spec/integration/mlist_spec.rb
 - spec/integration/pop_email_server_spec.rb
 - spec/integration/proof_spec.rb