rmail-sup 1.0.1

data/lib/rmail/utils.rb

@@ -0,0 +1,59 @@
+#--
+#   Copyright (C) 2002, 2003 Matt Armstrong.  All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice,
+#    this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. The name of the author may not be used to endorse or promote products
+#    derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN
+# NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+# TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+#++
+# Implements the RMail::Utils module.
+
+module RMail
+
+  # The RMail::Utils module is a collection of random utility methods
+  # that are useful for dealing with email.
+  module Utils
+
+    class << self
+
+      # Return the given string unquoted if it is quoted.
+      def unquote(str)
+        if str =~ /\s*"(.*?([^\\]|\\\\))"/m
+          $1.gsub(/\\(.)/, '\1')
+        else
+          str
+        end
+      end
+
+      # Decode the given string as if it were a chunk of base64 data
+      def base64_decode(str)
+        str.unpack("m*").first
+      end
+
+      # Decode the given string as if it were a chunk of quoted
+      # printable data
+      def quoted_printable_decode(str)
+        str.unpack("M*").first
+      end
+
+    end
+  end
+end

data/test/addrgrammar.txt

@@ -0,0 +1,113 @@
+Primarily concerned about mailbox, mailbox-list, and address-list
+
+    mailbox - sender, resent-sender
+
+    mailbox-list - from, resent-from
+
+    address-list - reply-to, to, cc, bcc, resent-to, resent-cc, resent-bcc
+
+----------------------------------------------------------------------
+Tokens
+----------------------------------------------------------------------
+
+Primitive -- these do not appear in Address Spedifications
+----------------------------------------------------------------------
+
+NO-WS-CTL       =       %d1-8 /         ; US-ASCII control characters
+                        %d11 /          ;  that do not include the
+                        %d12 /          ;  carriage return, line feed,
+                        %d14-31 /       ;  and white space characters
+                        %d127
+
+atext           =       a-z / A-Z / ; Any character except controls,
+			0-9 /
+                        "!" / "#" /     ;  SP, and specials.
+                        "$" / "%" /     ;  Used for atoms
+                        "&" / "'" /
+                        "*" / "+" /
+                        "-" / "/" /
+                        "=" / "?" /
+                        "^" / "_" /
+                        "`" / "{" /
+                        "|" / "}" /
+                        "~"
+
+quoted-pair     =       "\" (%d0-127)
+
+qtext           =       NO-WS-CTL /     ; Non white space controls
+                        %d33 /          ; The rest of the US-ASCII
+                        %d35-91 /       ;  characters not including "\"
+                        %d93-126        ;  or the quote character
+
+WSP		=	%d32 / %d09		; SPACE or TAB
+
+ctext           =       NO-WS-CTL /     ; Non white space controls
+                        %d33-39 /       ; The rest of the US-ASCII
+                        %d42-91 /       ;  characters not including "(",
+                        %d93-126        ;  ")", or "\"
+
+comment         =       "(" *([FWS] ccontent) [FWS] ")"
+
+ccontent        =       ctext / quoted-pair / comment
+
+qcontent	=	qtext / quoted-pair
+
+dtext           =       NO-WS-CTL /     ; Non white space controls
+                        %d33-90 /       ; The rest of the US-ASCII
+                        %d94-126        ;  characters not including "[",
+                                        ;  "]", or "\"
+
+Less primitive - these appear in Address Specifications
+----------------------------------------------------------------------
+
+FWS		=	1*([CRLF] WSP)
+
+CFWS            =       *([FWS] comment) (([FWS] comment) / FWS)
+
+atom		=	[CFWS] 1*atext [CFWS]
+
+quoted-string   =       [CFWS]
+                        " *([FWS] qcontent) [FWS] "
+                        [CFWS]
+
+phrase		=       word *(word / "." / CFWS)
+
+word            =       atom / quoted-string
+
+dcontent        =       dtext / quoted-pair
+
+----------------------------------------------------------------------
+Address Specification
+----------------------------------------------------------------------
+
+address-list    =       1*([address] [CFWS] "," [CFWS]) [address]
+
+address         =       mailbox / group
+
+mailbox		=	name-addr / addr-spec
+
+group           =       display-name ":" [mailbox-list / CFWS] ";"
+                        [CFWS]
+
+mailbox-list   =        1*([mailbox] [CFWS] "," [CFWS]) [mailbox]
+
+name-addr	=	[display-name] angle-addr
+
+display-name	=	phrase
+
+angle-addr	=	[CFWS] "<" [obs-route] addr-spec ">" [CFWS]
+
+obs-route       =       [CFWS] obs-domain-list ":" [CFWS]
+
+obs-domain-list =       "@" domain *(*(CFWS / "," ) [CFWS] "@" domain)
+
+domain          =       domain-literal / obs-domain
+
+domain-literal  =       [CFWS] "[" *([FWS] dcontent) [FWS] "]" [CFWS]
+
+obs-domain      =       atom *("." atom)
+
+addr-spec       =       local-part "@" domain
+
+local-part      =       word *("." word)
+

data/test/data/mbox.odd

@@ -0,0 +1,4 @@
+From foo@bar  Wed Nov 27 12:27:36 2002
+message1
+From foo@bar  Wed Nov 27 12:27:40 2002
+message2

data/test/data/mbox.simple

@@ -0,0 +1,8 @@
+From foo@bar  Wed Nov 27 12:27:32 2002
+message1
+
+From foo@bar  Wed Nov 27 12:27:36 2002
+message2
+
+From foo@bar  Wed Nov 27 12:27:40 2002
+message3

data/test/data/multipart/data.1

@@ -0,0 +1,5 @@
+preamble
+--aa
+part1
+--aa--
+epilogue

data/test/data/multipart/data.10

@@ -0,0 +1 @@
+--aa--

data/test/data/multipart/data.11

@@ -0,0 +1,9 @@
+preamble
+--aa	
+part1
+--aa 
+part2
+--aa 	 	
+part3
+--aa-- 
+epilogue

data/test/data/multipart/data.12

@@ -0,0 +1,9 @@
+preamble
+--aaZ
+part1
+--aa notignored
+part2
+--aa 	 	notignored
+part3
+--aa--notignored
+epilogue

data/test/data/multipart/data.13

@@ -0,0 +1,3 @@
+preamble
+--aa
+part1

data/test/data/multipart/data.14

@@ -0,0 +1,3 @@
+preamble
+--aa
+part1

data/test/data/multipart/data.15

@@ -0,0 +1,3 @@
+preamble
+line1
+line2

data/test/data/multipart/data.16

@@ -0,0 +1,3 @@
+preamble
+line1
+line2

data/test/data/multipart/data.2

@@ -0,0 +1,5 @@
+
+--aa
+
+--aa--
+

data/test/data/multipart/data.3

@@ -0,0 +1,2 @@
+--aa
+--aa--

data/test/data/multipart/data.4

@@ -0,0 +1,3 @@
+preamble
+--aa--
+epilogue

data/test/data/multipart/data.5

@@ -0,0 +1 @@
+--aa--

data/test/data/multipart/data.6

@@ -0,0 +1,2 @@
+
+--aa--

data/test/data/multipart/data.7

@@ -0,0 +1,3 @@
+preamble
+
+--aa--

data/test/data/multipart/data.8

@@ -0,0 +1,5 @@
+preamble
+--aa
+part1
+--aa--
+epilogue

data/test/data/multipart/data.9

@@ -0,0 +1,4 @@
+
+--aa
+
+--aa--

data/test/data/parser.badmime1

@@ -0,0 +1,4 @@
+MIME-Version: 1.0
+Content-Type: multipart/alternative; boundary=X
+
+--X--

data/test/data/parser.badmime2

@@ -0,0 +1,6 @@
+MIME-Version: 1.0
+Content-Type: multipart/alternative; boundary=X
+
+preamble
+--X--
+epilogue

data/test/data/parser.nested-multipart

@@ -0,0 +1,75 @@
+Return-Path: <matt@lickey.com>
+Delivered-To: matt@lickey.com
+Received: from localhost (localhost [127.0.0.1])
+	by squeaker.lickey.com (Postfix) with ESMTP id 78B08C0BE
+	for <matt@lickey.com>; Thu,  7 Feb 2002 19:35:13 -0700 (MST)
+Received: by squeaker.lickey.com (Postfix, from userid 1000)
+	id 52497BE6D; Thu,  7 Feb 2002 19:35:12 -0700 (MST)
+To: matt@lickey.com
+Subject: Some nested multiparts
+From: Matt Armstrong <matt@lickey.com>
+Date: Thu, 07 Feb 2002 19:35:11 -0700
+X-Gnus-Mail-Source: directory:~/.incoming
+Message-ID: <877kpolmzk.fsf@squeaker.lickey.com>
+User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.1
+ (i386-debian-linux-gnu)
+MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary="=-=-="
+X-Virus-Scanned: by AMaViS snapshot-20010714
+Lines: 45
+Xref: squeaker.lickey.com inbox:7709
+
+This is level 1's preamble.
+
+--=-=-=
+
+Let's see here.
+
+--=-=-=
+Content-Disposition: inline
+
+This is the first part.
+
+--=-=-=
+Content-Type: multipart/mixed; boundary="==-=-="
+
+This is level 2's preamble.
+
+--==-=-=
+Content-Disposition: inline
+
+This is the first nested part.
+
+--==-=-=
+Content-Disposition: inline
+
+This is the second nested part.
+
+--==-=-=
+Content-Type: multipart/mixed; boundary="===-=-="
+
+This is level 3's preamble.
+
+--===-=-=
+
+This is the first doubly nested part.
+
+--===-=-=
+Content-Disposition: inline
+
+This is the second doubly nested part.
+
+--===-=-=--
+This is level 3's epilogue.
+
+--==-=-=--
+This is level 2's epilogue.  It has no trailing end of line.
+--=-=-=
+Content-Disposition: inline
+
+This is the third part.
+
+--=-=-=--
+
+This is level 1's epilogue.
+

data/test/data/parser.nested-simple

@@ -0,0 +1,12 @@
+Content-Type: multipart/mixed; boundary="=-=-="
+MIME-Version: 1.0
+
+--=-=-=
+Content-Type: multipart/mixed; boundary="==-=-="
+
+--==-=-=
+
+--==-=-=
+
+--==-=-=--
+--=-=-=--

data/test/data/parser.nested-simple2

@@ -0,0 +1,16 @@
+Content-Type: multipart/mixed; boundary="=-=-="
+MIME-Version: 1.0
+
+
+--=-=-=
+Content-Type: multipart/mixed; boundary="==-=-="
+
+
+--==-=-=
+
+--==-=-=
+
+--==-=-=--
+
+--=-=-=--
+

data/test/data/parser.nested-simple3

@@ -0,0 +1,21 @@
+Content-Type: multipart/mixed; boundary="X"
+MIME-Version: 1.0
+
+
+
+--X
+Content-Type: multipart/mixed; boundary="Y"
+
+
+
+--Y
+
+--Y
+
+
+--Y--
+
+
+--X--
+
+

data/test/data/parser.rfc822

@@ -0,0 +1,65 @@
+Return-Path: <matt@lickey.com>
+Delivered-To: matt@lickey.com
+Received: from localhost (localhost [127.0.0.1])
+	by squeaker.lickey.com (Postfix) with ESMTP id B9ED0C0E7
+	for <matt@lickey.com>; Sun, 10 Feb 2002 14:35:43 -0700 (MST)
+Received: by squeaker.lickey.com (Postfix, from userid 1000)
+	id BE69CC0D1; Sun, 10 Feb 2002 14:35:37 -0700 (MST)
+To: matt@lickey.com
+Subject: Example of a message/rfc822 part.
+From: Matt Armstrong <matt@lickey.com>
+Date: Sun, 10 Feb 2002 14:35:37 -0700
+X-Gnus-Mail-Source: directory:~/.incoming
+Message-ID: <87heop10ly.fsf@squeaker.lickey.com>
+User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.1
+ (i386-debian-linux-gnu)
+MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary="=-=-="
+X-Virus-Scanned: by AMaViS snapshot-20010714
+Lines: 44
+Xref: squeaker.lickey.com inbox:7729
+
+--=-=-=
+
+Below is an example of a message/rfc822 MIME part.
+
+
+--=-=-=
+Content-Type: message/rfc822
+Content-Disposition: inline
+
+Return-Path: <matt@lickey.com>
+Delivered-To: matt@lickey.com
+Received: from localhost (localhost [127.0.0.1])
+	by squeaker.lickey.com (Postfix) with ESMTP id 5F0B4C0E7
+	for <matt@lickey.com>; Sun, 10 Feb 2002 14:34:31 -0700 (MST)
+Received: by squeaker.lickey.com (Postfix, from userid 1000)
+	id F0DABC0D1; Sun, 10 Feb 2002 14:34:29 -0700 (MST)
+To: matt@lickey.com
+Subject: This is a short, simple message.
+From: Matt Armstrong <matt@lickey.com>
+Date: Sun, 10 Feb 2002 14:34:29 -0700
+Message-ID: <87n0yh10nu.fsf@squeaker.lickey.com>
+User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.1
+ (i386-debian-linux-gnu)
+X-Virus-Scanned: by AMaViS snapshot-20010714
+Lines: 5
+Xref: squeaker.lickey.com inbox:7728
+MIME-Version: 1.0
+
+This is a short, simple message.
+
+-- 
+matt
+
+
+--=-=-=
+
+
+
+-- 
+matt
+
+--=-=-=--
+
+