kbaum-mail 2.1.2.1

data/lib/mail/parsers/rfc2822_obsolete.treetop

@@ -0,0 +1,241 @@
+module Mail
+  grammar RFC2822Obsolete
+  
+    rule obs_qp
+      "\\" [\x00-\x7F]
+    end
+
+    rule obs_text
+      LF* CR* (obs_char LF* CR*)*
+    end
+
+    rule obs_char
+      [\x00-\x09]      /       # %d0-127 except CR and
+      [\x0B-\x0C]      /       # LF
+      [\x0E-\x7F]
+    end
+
+    rule obs_utext
+      obs_text
+    end
+
+    rule obs_phrase
+      (word / ".")+
+    end
+
+    rule obs_phrase_list
+      phrase / (phrase? CFWS? "," CFWS?)+ phrase?
+    end
+
+    rule obs_FWS
+      WSP+ (CRLF WSP+)*
+    end
+
+    rule obs_day_of_week
+      CFWS? day_name CFWS?
+    end
+
+    rule obs_year
+      CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_month
+      CFWS month_name CFWS
+    end
+
+    rule obs_day
+      CFWS? (DIGIT / (DIGIT DIGIT))  CFWS?
+    end
+
+    rule obs_hour
+       CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_minute
+      CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_second
+      CFWS? (DIGIT DIGIT) CFWS?
+    end
+
+    rule obs_zone
+      "UT" / "GMT" /          # Universal Time
+                              # North American UT
+                              # offsets
+      "EST" / "EDT" /         # Eastern:  - 5/ - 4
+      "CST" / "CDT" /         # Central:  - 6/ - 5
+      "MST" / "MDT" /         # Mountain: - 7/ - 6
+      "PST" / "PDT" /         # Pacific:  - 8/ - 7
+                              #
+      [\x41-\x49] /           # Military zones - "A"
+      [\x4B-\x5A] /           # through "I" and "K"
+      [\x61-\x69] /           # through "Z", both
+      [\x6B-\x7A]             # upper and lower case
+    end
+
+    rule obs_angle_addr
+      CFWS? "<" obs_route? addr_spec ">" CFWS?
+    end
+    
+    rule obs_route
+      CFWS? obs_domain_list ":" CFWS?
+    end
+
+    rule obs_domain_list
+      "@" domain (("," )* CFWS? "@" domain)*
+    end
+    
+    rule obs_local_part
+      word ("." word)*
+    end
+
+    rule obs_domain
+      atom ("." atom)*
+    end
+
+    rule obs_mbox_list
+      (mailbox? CFWS? "," CFWS?)+ mailbox?
+    end
+
+    rule obs_addr_list
+      (address? CFWS? "," CFWS?)+ address?
+    end
+
+    rule obs_fields
+      (obs_return /
+       obs_received /
+       obs_orig_date /
+       obs_from /
+       obs_sender /
+       obs_reply_to /
+       obs_to /
+       obs_cc /
+       obs_bcc /
+       obs_message_id /
+       obs_in_reply_to /
+       obs_references /
+       obs_subject /
+       obs_comments /
+       obs_keywords /
+       obs_resent_date /
+       obs_resent_from /
+       obs_resent_send /
+       obs_resent_rply /
+       obs_resent_to /
+       obs_resent_cc /
+       obs_resent_bcc /
+       obs_resent_mid /
+       obs_optional)*
+    end
+
+    rule obs_orig_date
+      "Date" WSP* ":" date_time CRLF
+    end
+
+    rule obs_from
+      "From" WSP* ":" mailbox_list CRLF
+    end
+  
+    rule obs_sender
+      "Sender" WSP* ":" mailbox CRLF
+    end
+  
+    rule obs_reply_to
+      "Reply-To" WSP* ":" mailbox_list CRLF
+    end
+
+
+    rule obs_to
+      "To" WSP* ":" address_list CRLF
+    end
+
+    rule obs_cc
+      "Cc" WSP* ":" address_list CRLF
+    end
+
+    rule obs_bcc
+      "Bcc" WSP* ":" (address_list / CFWS?) CRLF
+    end
+
+    rule obs_message_id
+      "Message-ID" WSP* ":" msg_id CRLF
+    end
+
+    rule obs_in_reply_to
+      "In-Reply-To" WSP* ":" (phrase / msg_id)* CRLF
+    end
+
+    rule obs_references
+      "References" WSP* ":" (phrase / msg_id)* CRLF
+    end
+
+    rule obs_id_left
+      local_part
+    end
+
+    rule obs_id_right
+      domain
+    end
+
+    rule obs_subject
+      "Subject" WSP* ":" unstructured CRLF
+    end
+
+    rule obs_comments
+      "Comments" WSP* ":" unstructured CRLF
+    end
+
+    rule obs_keywords
+      "Keywords" WSP* ":" obs_phrase_list CRLF
+    end
+
+    rule obs_resent_from
+      "Resent-From" WSP* ":" mailbox_list CRLF
+    end
+
+    rule obs_resent_send
+      "Resent-Sender" WSP* ":" mailbox CRLF
+    end
+
+    rule obs_resent_date
+      "Resent-Date" WSP* ":" date_time CRLF
+    end
+
+    rule obs_resent_to
+      "Resent-To" WSP* ":" address_list CRLF
+    end
+
+    rule obs_resent_cc
+      "Resent-Cc" WSP* ":" address_list CRLF
+    end
+
+    rule obs_resent_bcc
+      "Resent-Bcc" WSP* ":" (address_list / CFWS?) CRLF
+    end
+
+    rule obs_resent_mid
+      "Resent-Message-ID" WSP* ":" msg_id CRLF
+    end
+
+    rule obs_resent_rply
+      "Resent-Reply-To" WSP* ":" address_list CRLF
+    end
+
+    rule obs_return
+      "Return-Path" WSP* ":" path CRLF
+    end
+
+    rule obs_received
+      "Received" WSP* ":" name_val_list CRLF
+    end
+
+    rule obs_path
+      obs_angle_addr
+    end
+
+    rule obs_optional
+      field_name WSP* ":" unstructured CRLF
+    end
+  end
+end

data/lib/mail/part.rb

@@ -0,0 +1,82 @@
+# encoding: utf-8
+module Mail
+  class Part < Message
+    
+    # Creates a new empty Content-ID field and inserts it in the correct order
+    # into the Header.  The ContentIdField object will automatically generate
+    # a unique content ID if you try and encode it or output it to_s without
+    # specifying a content id.
+    # 
+    # It will preserve the content ID you specify if you do.
+    def add_content_id(content_id_val = '')
+      header['content-id'] = content_id_val
+    end
+    
+    # Returns true if the part has a content ID field, the field may or may
+    # not have a value, but the field exists or not.
+    def has_content_id?
+      header.has_content_id?
+    end
+
+    def add_required_fields
+      add_content_id unless has_content_id?
+      super
+    end
+    
+    def delivery_status_report_part?
+      main_type =~ /message/i && sub_type =~ /delivery-status/i
+    end
+    
+    def delivery_status_data
+      delivery_status_report_part? ? parse_delivery_status_report : {}
+    end
+    
+    def bounced?
+      !!(action =~ /failed/i)
+    end
+    
+    def action
+      delivery_status_data['action'].value
+    end
+    
+    def final_recipient
+      delivery_status_data['final-recipient'].value
+    end
+    
+    def error_status
+      delivery_status_data['status'].value
+    end
+
+    def diagnostic_code
+      delivery_status_data['diagnostic-code'].value
+    end
+    
+    def remote_mta
+      delivery_status_data['remote-mta'].value
+    end
+    
+    def retryable?
+      !(error_status =~ /^5/)
+    end
+
+    private
+    
+    # A part may not have a header.... so, just init a body if no header
+    def parse_message
+      header_part, body_part = raw_source.split(/#{CRLF}#{WSP}*#{CRLF}/m, 2)
+      if header_part =~ HEADER_LINE
+        self.header = header_part
+        self.body   = body_part
+      else
+        self.header = "Content-Type: text/plain\r\n"
+        self.body   = header_part
+      end
+    end
+    
+    def parse_delivery_status_report
+      @delivery_status_data ||= Header.new(body.to_s.gsub("\r\n\r\n", "\r\n"))
+    end
+
+  end
+  
+end

data/lib/mail/parts_list.rb

@@ -0,0 +1,34 @@
+module Mail
+  class PartsList < Array
+    
+    def attachments
+      Mail::AttachmentsList.new(self)
+    end
+
+    def collect
+      if block_given?
+        ary = PartsList.new
+        each { |o| ary << yield(o) }
+        ary
+      else
+        to_a
+      end
+    end
+
+    alias :collect :map 
+    
+    def sort!(order)
+      sorted = self.sort do |a, b|
+        # OK, 10000 is arbitrary... if anyone actually wants to explicitly sort 10000 parts of a
+        # single email message... please show me a use case and I'll put more work into this method,
+        # in the meantime, it works :)
+        a_order = order.index(a[:content_type].string.downcase) || 10000
+        b_order = order.index(b[:content_type].string.downcase) || 10000
+        a_order <=> b_order
+      end
+      self.clear
+      sorted.each { |p| self << p }
+    end
+    
+  end
+end

data/lib/mail/patterns.rb

@@ -0,0 +1,43 @@
+module Mail
+  module Patterns
+
+    white_space = %Q|\x9\x20|
+    text        = %Q|\x1-\x8\xB\xC\xE-\x7f|
+    field_name  = %Q|\x21-\x39\x3b-\x7e|
+    field_body  = text
+    
+    aspecial     = %Q|()<>[]:;.\\,"|
+    tspecial     = %Q|()<>[];:\\,"/?=|
+    lwsp         = %Q| \t\r\n|
+    control      = %Q|\x00-\x1f\x7f-\xff|
+    
+    CRLF          = /\r\n/
+    WSP           = /[#{white_space}]/
+    FWS           = /#{CRLF}#{WSP}*/
+    TEXT          = /[#{text}]/ # + obs-text
+    FIELD_NAME    = /[#{field_name}]+/
+    FIELD_BODY    = /[#{field_body}]+/
+    FIELD_LINE    = /^[#{field_name}]+:\s*[#{field_body}]+$/
+    HEADER_LINE   = /^([#{field_name}]+:\s*[#{field_body}]+)/
+
+    CONTROL_CHAR  = /[#{control}]/n
+    ATOM_UNSAFE   = /[#{Regexp.quote aspecial}#{control}#{lwsp}]/n
+    PHRASE_UNSAFE = /[#{Regexp.quote aspecial}#{control}]/n
+    TOKEN_UNSAFE  = /[#{Regexp.quote tspecial}#{control}#{lwsp}]/n
+    
+    
+    module ClassMethods
+      
+    end
+  
+    module InstanceMethods
+      
+    end
+    
+    def self.included(receiver)
+      receiver.extend         ClassMethods
+      receiver.send :include, InstanceMethods
+    end
+    
+  end
+end

data/lib/mail/utilities.rb

@@ -0,0 +1,163 @@
+# encoding: utf-8
+module Mail
+  module Utilities
+    
+    module ClassMethods # :nodoc:
+    
+    end
+  
+    module InstanceMethods
+
+      include Patterns
+      
+      # Returns true if the string supplied is free from characters not allowed as an ATOM
+      def atom_safe?( str )
+        not ATOM_UNSAFE === str
+      end
+
+      # If the string supplied has ATOM unsafe characters in it, will return the string quoted 
+      # in double quotes, otherwise returns the string unmodified
+      def quote_atom( str )
+        (ATOM_UNSAFE === str) ? dquote(str) : str
+      end
+
+      # If the string supplied has PHRASE unsafe characters in it, will return the string quoted 
+      # in double quotes, otherwise returns the string unmodified
+      def quote_phrase( str )
+        if RUBY_VERSION >= '1.9'
+          original_encoding = str.encoding
+          str.force_encoding('ASCII-8BIT')
+          if (PHRASE_UNSAFE === str)
+            dquote(str).force_encoding(original_encoding)
+          else
+            str.force_encoding(original_encoding)
+          end
+        else
+          (PHRASE_UNSAFE === str) ? dquote(str) : str
+        end
+      end
+
+      # Returns true if the string supplied is free from characters not allowed as a TOKEN
+      def token_safe?( str )
+        not TOKEN_UNSAFE === str
+      end
+
+      # If the string supplied has TOKEN unsafe characters in it, will return the string quoted 
+      # in double quotes, otherwise returns the string unmodified
+      def quote_token( str )
+        (TOKEN_UNSAFE === str) ? dquote(str) : str
+      end
+
+      # Wraps supplied string in double quotes unless it is already wrapped.
+      # 
+      # Additionally will escape any double quotation marks in the string with a single
+      # backslash in front of the '"' character.
+      def dquote( str )
+        str = $1 if str =~ /^"(.*)?"$/
+        # First remove all escaped double quotes:
+        str = str.gsub(/\\"/, '"')
+        # Then wrap and re-escape all double quotes
+        '"' + str.gsub(/["]/n) {|s| '\\' + s } + '"'
+      end
+      
+      # Unwraps supplied string from inside double quotes.
+      # 
+      # Example:
+      # 
+      #  string = '"This is a string"'
+      #  unquote(string) #=> 'This is a string'
+      def unquote( str )
+        str =~ /^"(.*?)"$/ ? $1 : str
+      end
+      
+      # Wraps a string in parenthesis and escapes any that are in the string itself.
+      # 
+      # Example:
+      # 
+      #  string
+      def paren( str )
+        RubyVer.paren( str )
+      end
+      
+      # Unwraps a string from being wrapped in parenthesis
+      # 
+      # Example:
+      # 
+      #  str = '(This is a string)'
+      #  unparen( str ) #=> 'This is a string'
+      def unparen( str )
+        str =~ /^\((.*?)\)$/ ? $1 : str
+      end
+      
+      # Escape parenthesies in a string
+      # 
+      # Example:
+      # 
+      #  str = 'This is (a) string'
+      #  escape_paren( str ) #=> 'This is \(a\) string'
+      def escape_paren( str )
+        RubyVer.escape_paren( str )
+      end
+      
+      # Matches two objects with their to_s values case insensitively
+      # 
+      # Example:
+      # 
+      #  obj2 = "This_is_An_object"
+      #  obj1 = :this_IS_an_object
+      #  match_to_s( obj1, obj2 ) #=> true
+      def match_to_s( obj1, obj2 )
+        obj1.to_s.downcase == obj2.to_s.downcase
+      end
+      
+      # Capitalizes a string that is joined by hyphens correctly.
+      # 
+      # Example:
+      # 
+      #  string = 'resent-from-field'
+      #  capitalize_field( string ) #=> 'Resent-From-Field'
+      def capitalize_field( str )
+        str.to_s.split("-").map { |v| v.capitalize }.join("-")
+      end
+      
+      # Takes an underscored word and turns it into a class name
+      # 
+      # Example:
+      # 
+      #  constantize("hello") #=> "Hello"
+      #  constantize("hello-there") #=> "HelloThere"
+      #  constantize("hello-there-mate") #=> "HelloThereMate"
+      def constantize( str )
+        str.to_s.split(/[-_]/).map { |v| v.capitalize }.to_s
+      end
+      
+      # Swaps out all underscores (_) for hyphens (-) good for stringing from symbols
+      # a field name.
+      # 
+      # Example:
+      # 
+      #  string = :resent_from_field
+      #  dasherize ( string ) #=> 'resent_from_field'
+      def dasherize( str )
+        str.to_s.downcase.gsub('_', '-')
+      end
+
+      # Swaps out all underscores (_) for hyphens (-) good for stringing from symbols
+      # a field name.
+      # 
+      # Example:
+      # 
+      #  string = :resent_from_field
+      #  underscoreize ( string ) #=> 'resent_from_field'
+      def underscoreize( str )
+        str.to_s.downcase.gsub('-', '_')
+      end
+      
+    end
+    
+    def self.included(receiver) # :nodoc:
+      receiver.extend         ClassMethods
+      receiver.send :include, InstanceMethods
+    end
+  end
+end