mlist 0.1.9

data/lib/mlist/util/tmail_methods.rb

@@ -0,0 +1,138 @@
+module MList
+  module Util
+    
+    module TMailReaders
+      def date
+        if date = tmail.header_string('date')
+          Time.parse(date)
+        end
+      end
+      
+      def from_address
+        tmail.from.first.downcase
+      end
+      
+      def html
+        case tmail.content_type
+        when 'text/html'
+          tmail.body.strip
+        when 'multipart/alternative'
+          html_part = tmail.parts.detect {|part| part.content_type == 'text/html'}
+          html_part.body.strip if html_part
+        end
+      end
+      
+      def identifier
+        remove_brackets(tmail.header_string('message-id'))
+      end
+      
+      def mailer
+        tmail.header_string('x-mailer')
+      end
+      
+      def text
+        text_content = ''
+        extract_text_content(tmail, text_content)
+        return text_content unless text_content.blank?
+        
+        html_content = ''
+        extract_html_content(tmail, html_content)
+        return html_to_text(html_content) unless html_content.blank?
+        
+        return nil
+      end
+      
+      # Answers the first text/plain part it can find, the tmail itself if
+      # it's content type is text/plain.
+      #
+      def text_plain_part(part = tmail)
+        case part.content_type
+        when 'text/plain'
+          part
+        when 'multipart/alternative'
+          part.parts.detect {|part| text_plain_part(part)}
+        end
+      end
+      
+      private
+        def extract_html_content(part, collector)
+          case part.content_type
+          when 'text/html'
+            collector << part.body.strip
+          when 'multipart/alternative', 'multipart/mixed', 'multipart/related'
+            part.parts.each {|part| extract_html_content(part, collector)}
+          end
+        end
+        
+        def extract_text_content(part, collector)
+          case part.content_type
+          when 'text/plain'
+            collector << part.body.strip
+          when 'multipart/alternative', 'multipart/mixed', 'multipart/related'
+            part.parts.each {|part| extract_text_content(part, collector)}
+          end
+        end
+    end
+    
+    module TMailWriters
+      def charset
+        'utf-8'
+      end
+      
+      def delete_header(name)
+        tmail[name] = nil
+      end
+      
+      def headers=(updates)
+        updates.each do |k,v|
+          if TMail::Mail::ALLOW_MULTIPLE.include?(k.downcase)
+            prepend_header(k,v)
+          else
+            write_header(k,v)
+          end
+        end
+      end
+      
+      # Add another value for the named header, it's position being earlier in
+      # the email than those that are already present. This will raise an error
+      # if the header does not allow multiple values according to
+      # TMail::Mail::ALLOW_MULTIPLE.
+      #
+      def prepend_header(name, value)
+        original = tmail[name] || []
+        tmail[name] = nil
+        tmail[name] = sanitize_header(charset, name, value)
+        tmail[name] = tmail[name] + original
+      end
+      
+      def write_header(name, value)
+        tmail[name] = sanitize_header(charset, name, value)
+      end
+      
+      def to=(recipient_addresses)
+        tmail.to = sanitize_header(charset, 'to', recipient_addresses)
+      end
+      
+      def bcc=(recipient_addresses)
+        tmail.bcc = sanitize_header(charset, 'bcc', recipient_addresses)
+      end
+      
+      def from=(from_address)
+        tmail.from = sanitize_header(charset, 'from', from_address)
+      end
+      
+      def in_reply_to=(*values)
+        tmail.in_reply_to = sanitize_header(charset, 'in-reply-to', *values)
+      end
+      
+      def mailer=(value)
+        write_header('x-mailer', value)
+      end
+      
+      def message_id=(value)
+        tmail.message_id = sanitize_header(charset, 'message-id', value)
+      end
+    end
+    
+  end
+end

data/lib/mlist/util.rb

@@ -0,0 +1,12 @@
+require 'mlist/util/quoting'
+require 'mlist/util/header_sanitizer'
+require 'mlist/util/email_helpers'
+require 'mlist/util/tmail_methods'
+require 'mlist/util/tmail_builder'
+
+module MList
+  module Util
+    mattr_accessor :default_header_sanitizers
+    self.default_header_sanitizers = HeaderSanitizerHash.new
+  end
+end

data/lib/mlist.rb

@@ -0,0 +1,46 @@
+require 'delegate'
+
+require 'uuid'
+require 'tmail'
+require 'hpricot'
+require 'active_support'
+require 'active_record'
+
+require 'mlist/util'
+require 'mlist/email'
+require 'mlist/message'
+require 'mlist/list'
+require 'mlist/mail_list'
+require 'mlist/email_post'
+require 'mlist/email_server'
+require 'mlist/email_subscriber'
+require 'mlist/server'
+require 'mlist/thread'
+
+require 'mlist/manager'
+
+module MList
+  mattr_reader :version
+  @@version = YAML.load_file(File.join(File.dirname(__FILE__), '..', "VERSION.yml"))
+  class << @@version
+    def to_s
+      @to_s ||= [self[:major], self[:minor], self[:patch]].join('.')
+    end
+  end
+  
+  class DoubleDeliveryError < StandardError
+    def initialize(message)
+      super("A message should never be delivered more than once. An attempt was made to deliver this message:\n#{message.inspect}")
+    end
+  end
+end
+
+Time::DATE_FORMATS[:mlist_reply_timestamp] = Date::DATE_FORMATS[:mlist_reply_timestamp] = lambda do |time|
+  time.strftime('%a, %b %d, %Y at %I:%M %p').sub(/0(\d,)/, '\1').sub(/0(\d:)/, '\1')
+end
+
+# In order to keep the inline images in email intact. Certainly a scary bit of
+# hacking, but this is the solution out there on the internet.
+TMail::HeaderField::FNAME_TO_CLASS.delete 'content-id'
+
+TMail::Mail::ALLOW_MULTIPLE['x-beenthere'] = true