Disabled SSL validation for 1.9

Improved imap_archive and imap_keywords --list speed

[git-p4: depot-paths = "//src/imap_processor/dev/": change = 4966]

History.txt

@@ -1,3 +1,14 @@
+=== 1.2 / 2009-05-??
+
+* 1 major enhancement
+  * imap_archive which archives old mail to dated mailboxes
+
+* N minor enhancements
+  * Added IMAPProcessor#create_mailbox
+  * Added IMAPProcessor#delete_messages
+  * Added IMAPProcessor#move_messages
+  * Disabled verification of SSL certs for 1.9
+
 === 1.1.1 / 2009-05-19
 
 * 1 bug fix

lib/imap_processor.rb

@@ -308,7 +308,7 @@ def initialize(options)
   # Returns a Connection object.
 
   def connect(host, port, ssl, username, password, auth = nil)
-    imap = Net::IMAP.new host, port, ssl
+    imap = Net::IMAP.new host, port, ssl, nil, false
     log "Connected to imap://#{host}:#{port}/"
 
     capability = imap.capability
@@ -438,7 +438,8 @@ def mime_parts(uids, mime_type)
   end
 
   ##
-  # Create the specified mailbox if it doesn't exist
+  # Create the mailbox +name+ if it doesn't exist.  Note that this will SELECT
+  # the mailbox if it exists.
 
   def create_mailbox name
     begin
@@ -451,7 +452,7 @@ def create_mailbox name
   end
 
   ##
-  # Delete and expunge the specified uids.
+  # Delete and +expunge+ the specified +uids+.
 
   def delete_messages uids, expunge = true
     log "DELETING [...#{uids.size} uids]"
@@ -463,7 +464,8 @@ def delete_messages uids, expunge = true
   end
 
   ##
-  # Move the specified uids to a new destination and delete them.
+  # Move the specified +uids+ to a new +destination+ then delete and +expunge+
+  # them.
 
   def move_messages uids, destination, expunge = true
     return if uids.empty?

lib/imap_processor/archive.rb

@@ -85,18 +85,12 @@ def run
   def show_messages(uids)
     return unless list
 
-    responses = imap.fetch uids, [
-      'BODY.PEEK[HEADER]',
-      'FLAGS'
-    ]
+    fetch_data = 'BODY.PEEK[HEADER.FIELDS (DATE SUBJECT MESSAGE-ID)]'
+    responses = imap.fetch uids.first, fetch_data
+    fetch_data.sub! '.PEEK', '' # stripped by server
 
     responses.each do |res|
-      header = res.attr['BODY[HEADER]']
-
-      puts header[/^Date: .*/i]
-      puts header[/^Subject: .*/i]
-      puts header[/^Message-Id: .*/i]
-      puts
+      puts res.attr[fetch_data]
     end
   end
 end

lib/imap_processor/keywords.rb

@@ -134,15 +134,14 @@ def show_messages(uids)
     return unless @list
 
     responses = @imap.fetch uids, [
-      'BODY.PEEK[HEADER]',
+      Net::IMAP::RawData.new('BODY.PEEK[HEADER.FIELDS (SUBJECT MESSAGE-ID)]'),
       'FLAGS'
     ]
 
     responses.each do |res|
-      header = res.attr['BODY[HEADER]']
+      header = res.attr['BODY[HEADER.FIELDS (SUBJECT MESSAGE-ID)]']
 
-      puts header[/^Subject: .*/i]
-      puts header[/^Message-Id: .*/i]
+      puts header.chomp
 
       flags = res.attr['FLAGS'].map { |flag| flag.inspect }.join ', '