kbaum-mail 2.1.2.1

data/lib/mail/configuration.rb

@@ -0,0 +1,69 @@
+# encoding: utf-8
+#
+# Thanks to Nicolas Fouché for this wrapper
+#
+require 'singleton'
+
+module Mail
+  
+  # The Configuration class is a Singleton used to hold the default
+  # configuration for all Mail objects.
+  # 
+  # Each new mail object gets a copy of these values at initialization
+  # which can be overwritten on a per mail object basis.
+  class Configuration
+    include Singleton
+
+    def initialize
+      @delivery_method  = nil
+      @retriever_method = nil
+      super
+    end
+
+    def delivery_method(method = nil, settings = {})
+      return @delivery_method if @delivery_method && method.nil?
+      @delivery_method = lookup_delivery_method(method).new(settings)
+    end
+
+    def lookup_delivery_method(method)
+      case method
+      when nil
+        Mail::SMTP
+      when :smtp
+        Mail::SMTP
+      when :sendmail
+        Mail::Sendmail
+      when :file
+        Mail::FileDelivery
+      when :test
+        Mail::TestMailer
+      else
+        method
+      end
+    end
+
+    def retriever_method(method = nil, settings = {})
+      return @retriever_method if @retriever_method && method.nil?
+      @retriever_method = lookup_retriever_method(method).new(settings)
+    end
+    
+    def lookup_retriever_method(method)
+      case method
+      when nil
+        Mail::POP3
+      when :pop3
+        Mail::POP3
+      when :imap
+        Mail::IMAP
+      else
+        method
+      end
+    end
+
+    def param_encode_language(value = nil)
+      value ? @encode_language = value : @encode_language ||= 'en'
+    end
+
+  end
+
+end

data/lib/mail/core_extensions/nil.rb

@@ -0,0 +1,11 @@
+# encoding: utf-8
+
+class NilClass #:nodoc:
+  def to_crlf
+    ''
+  end
+
+  def to_lf
+    ''
+  end
+end

data/lib/mail/core_extensions/string.rb

@@ -0,0 +1,19 @@
+# encoding: utf-8
+class String #:nodoc:
+  def to_crlf
+    gsub(/\n|\r\n|\r/) { "\r\n" }
+  end
+
+  def to_lf
+    gsub(/\n|\r\n|\r/) { "\n" }
+  end
+
+  unless method_defined?(:ascii_only?)
+    # Provides all strings with the Ruby 1.9 method of .ascii_only? and
+    # returns true or false
+    US_ASCII_REGEXP = %Q{\x00-\x7f}
+    def ascii_only?
+      !(self =~ /[^#{US_ASCII_REGEXP}]/)
+    end
+  end
+end

data/lib/mail/elements/address.rb

@@ -0,0 +1,306 @@
+# encoding: utf-8
+module Mail
+  class Address
+    
+    include Mail::Utilities
+    
+    # Mail::Address handles all email addresses in Mail.  It takes an email address string
+    # and parses it, breaking it down into it's component parts and allowing you to get the
+    # address, comments, display name, name, local part, domain part and fully formatted
+    # address.
+    # 
+    # Mail::Address requires a correctly formatted email address per RFC2822 or RFC822.  It
+    # handles all obsolete versions including obsolete domain routing on the local part.
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.format       #=> 'Mikel Lindsaar <mikel@test.lindsaar.net> (My email address)'
+    #  a.address      #=> 'mikel@test.lindsaar.net'
+    #  a.display_name #=> 'Mikel Lindsaar'
+    #  a.local        #=> 'mikel'
+    #  a.domain       #=> 'test.lindsaar.net'
+    #  a.comments     #=> ['My email address']
+    #  a.to_s         #=> 'Mikel Lindsaar <mikel@test.lindsaar.net> (My email address)'
+    def initialize(value = nil)
+      @output_type = nil
+      @tree = nil
+      @raw_text = value
+      case
+      when value.nil?
+        @parsed = false
+        return
+      else
+        parse(value)
+      end
+    end
+    
+    # Returns the raw imput of the passed in string, this is before it is passed
+    # by the parser.
+    def raw
+      @raw_text
+    end
+
+    # Returns a correctly formatted address for the email going out.  If given
+    # an incorrectly formatted address as input, Mail::Address will do it's best
+    # to format it correctly.  This includes quoting display names as needed and
+    # putting the address in angle brackets etc.
+    #
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.format #=> 'Mikel Lindsaar <mikel@test.lindsaar.net> (My email address)'
+    def format
+      parse unless @parsed
+      case
+      when tree.nil?
+        ''
+      when display_name
+        [quote_phrase(display_name), "<#{address}>", format_comments].compact.join(" ")
+      else
+        [address, format_comments].compact.join(" ")
+      end
+    end
+
+    # Returns the address that is in the address itself.  That is, the 
+    # local@domain string, without any angle brackets or the like.
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.address #=> 'mikel@test.lindsaar.net'
+    def address
+      parse unless @parsed
+      domain ? "#{local}@#{domain}" : local
+    end
+    
+    # Provides a way to assign an address to an already made Mail::Address object.
+    # 
+    #  a = Address.new
+    #  a.address = 'Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>'
+    #  a.address #=> 'mikel@test.lindsaar.net'
+    def address=(value)
+      parse(value)
+    end
+    
+    # Returns the display name of the email address passed in.
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.display_name #=> 'Mikel Lindsaar'
+    def display_name
+      parse unless @parsed
+      @display_name ||= get_display_name
+      Encodings.decode_encode(@display_name, @output_type) if @display_name
+    end
+    
+    # Provides a way to assign a display name to an already made Mail::Address object.
+    # 
+    #  a = Address.new
+    #  a.address = 'mikel@test.lindsaar.net'
+    #  a.display_name = 'Mikel Lindsaar'
+    #  a.format #=> 'Mikel Lindsaar <mikel@test.lindsaar.net>'
+    def display_name=( str )
+      @display_name = str
+    end
+
+    # Returns the local part (the left hand side of the @ sign in the email address) of
+    # the address
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.local #=> 'mikel'
+    def local
+      parse unless @parsed
+      "#{obs_domain_list}#{get_local.strip}"
+    end
+
+    # Returns the domain part (the right hand side of the @ sign in the email address) of
+    # the address
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.domain #=> 'test.lindsaar.net'
+    def domain
+      parse unless @parsed
+      strip_all_comments(get_domain) if get_domain
+    end
+    
+    # Returns an array of comments that are in the email, or an empty array if there
+    # are no comments
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.comments #=> ['My email address']
+    def comments
+      parse unless @parsed
+      if get_comments.empty?
+        nil
+      else
+        get_comments.map { |c| c.squeeze(" ") }
+      end
+    end
+    
+    # Sometimes an address will not have a display name, but might have the name
+    # as a comment field after the address.  This returns that name if it exists.
+    # 
+    #  a = Address.new('mikel@test.lindsaar.net (Mikel Lindsaar)')
+    #  a.name #=> 'Mikel Lindsaar'
+    def name
+      parse unless @parsed
+      get_name
+    end
+    
+    # Returns the format of the address, or returns nothing
+    # 
+    #  a = Address.new('Mikel Lindsaar (My email address) <mikel@test.lindsaar.net>')
+    #  a.format #=> 'Mikel Lindsaar <mikel@test.lindsaar.net> (My email address)'
+    def to_s
+      parse unless @parsed
+      format
+    end
+    
+    # Shows the Address object basic details, including the Address
+    #  a = Address.new('Mikel (My email) <mikel@test.lindsaar.net>')
+    #  a.inspect #=> "#<Mail::Address:14184910 Address: |Mikel <mikel@test.lindsaar.net> (My email)| >"
+    def inspect
+      parse unless @parsed
+      "#<#{self.class}:#{self.object_id} Address: |#{to_s}| >"
+    end
+    
+    def encoded
+      @output_type = :encode
+      format
+    end
+    
+    def decoded
+      @output_type = :decode
+      format
+    end
+
+    private
+    
+    def parse(value = nil)
+      @parsed = true
+      case
+      when value.nil?
+        nil
+      when value.class == String
+        self.tree = Mail::AddressList.new(value).address_nodes.first
+      else
+        self.tree = value
+      end
+    end
+    
+    
+    def get_domain
+      if tree.respond_to?(:angle_addr)
+        @domain_text ||= tree.angle_addr.addr_spec.domain.text_value.strip
+      elsif tree.respond_to?(:domain)
+        @domain_text ||= tree.domain.text_value.strip
+      elsif tree.respond_to?(:addr_spec)
+        tree.addr_spec.domain.text_value.strip
+      else
+        nil
+      end
+    end
+
+    def strip_all_comments(string)
+      unless comments.blank?
+        comments.each do |comment|
+          string = string.gsub("(#{comment})", '')
+        end
+      end
+      string.strip
+    end
+
+    def strip_domain_comments(value)
+      unless comments.blank?
+        comments.each do |comment|
+          if get_domain && get_domain.include?("(#{comment})")
+            value = value.gsub("(#{comment})", '')
+          end
+        end
+      end
+      value.to_s.strip
+    end
+    
+    def get_comments
+      if tree.respond_to?(:comments)
+        @comments ||= tree.comments.map { |c| unparen(c.text_value) } 
+      else
+        @comments = []
+      end
+    end
+    
+    def get_display_name
+      if tree.respond_to?(:display_name)
+        name = unquote(tree.display_name.text_value.strip)
+        str = strip_all_comments(name)
+      elsif comments
+        if domain
+          str = strip_domain_comments(format_comments)
+        else
+          str = nil
+        end
+      else
+        nil
+      end
+      
+      if str.blank?
+        nil
+      else
+        str
+      end
+    end
+    
+    def get_name
+      if display_name
+        str = display_name
+      else
+        if comments
+          comment_text = comments.join(' ').squeeze(" ")
+          str = "(#{comment_text})"
+        end
+      end
+
+      if str.blank?
+        nil
+      else
+        unparen(str)
+      end
+    end
+    
+    # Provides access to the Treetop parse tree for this address
+    def tree
+      @tree
+    end
+    
+    def tree=(value)
+      @tree = value
+    end
+    
+    def format_comments
+      if comments
+        comment_text = comments.map {|c| escape_paren(c) }.join(' ').squeeze(" ")
+        @format_comments ||= "(#{comment_text})"
+      else
+        nil
+      end
+    end
+   
+    def obs_domain_list
+      if tree.respond_to?(:angle_addr)
+        obs = tree.angle_addr.elements.select { |e| e.respond_to?(:obs_domain_list) }
+        !obs.empty? ? obs.first.text_value : nil
+      else
+        nil
+      end
+    end
+    
+    def get_local
+      case
+      when tree.respond_to?(:local_dot_atom_text)
+        tree.local_dot_atom_text.text_value
+      when tree.respond_to?(:angle_addr)
+        tree.angle_addr.addr_spec.local_part.text_value
+      when tree.respond_to?(:addr_spec)
+        tree.addr_spec.local_part.text_value
+      else
+        tree.local_part.text_value
+      end
+    end
+    
+ 
+  end
+end

data/lib/mail/elements/address_list.rb

@@ -0,0 +1,74 @@
+# encoding: utf-8
+module Mail
+  class AddressList # :nodoc:
+    
+    # Mail::AddressList is the class that parses To, From and other address fields from
+    # emails passed into Mail.
+    # 
+    # AddressList provides a way to query the groups and mailbox lists of the passed in
+    # string.
+    # 
+    # It can supply all addresses in an array, or return each address as an address object.
+    # 
+    # Mail::AddressList requires a correctly formatted group or mailbox list per RFC2822 or
+    # RFC822.  It also handles all obsolete versions in those RFCs.
+    # 
+    #  list = 'ada@test.lindsaar.net, My Group: mikel@test.lindsaar.net, Bob <bob@test.lindsaar.net>;'
+    #  a = AddressList.new(list)
+    #  a.addresses    #=> [#<Mail::Address:14943130 Address: |ada@test.lindsaar.net...
+    #  a.group_names  #=> ["My Group"]
+    def initialize(string)
+      if string.blank?
+        @address_nodes = []
+        return self
+      end
+      parser = Mail::AddressListsParser.new
+      if tree = parser.parse(string)
+        @address_nodes = tree.addresses
+      else
+        raise Mail::Field::ParseError, "AddressListsParser can not parse |#{string}|\nReason was: #{parser.failure_reason}\n"
+      end
+    end
+    
+    # Returns a list of address objects from the parsed line
+    def addresses
+      @addresses ||= get_addresses.map do |address_tree|
+        Mail::Address.new(address_tree)
+      end
+    end
+    
+    # Returns a list of all recipient syntax trees that are not part of a group
+    def individual_recipients # :nodoc:
+      @individual_recipients ||= @address_nodes - group_recipients
+    end
+    
+    # Returns a list of all recipient syntax trees that are part of a group
+    def group_recipients # :nodoc:
+      @group_recipients ||= @address_nodes.select { |an| an.respond_to?(:group_name) }
+    end
+    
+    # Returns the names as an array of strings of all groups
+    def group_names # :nodoc:
+      group_recipients.map { |g| g.group_name.text_value }
+    end
+    
+    # Returns a list of address syntax trees
+    def address_nodes # :nodoc:
+      @address_nodes
+    end
+    
+    private
+    
+    def get_addresses
+      (individual_recipients + group_recipients.map { |g| get_group_addresses(g) }).flatten
+    end
+    
+    def get_group_addresses(g)
+      if g.group_list.respond_to?(:addresses)
+        g.group_list.addresses
+      else
+        []
+      end
+    end
+  end
+end