qwik2md 0.1.0

data/vendor/qwik/lib/qwik/mail-header.rb

@@ -0,0 +1,474 @@
+# -*- coding: shift_jis -*-
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# Copyright (C) 2003-2006 Kouichirou Eto
+#     All rights reserved.
+#     This is free software with ABSOLUTELY NO WARRANTY.
+#
+# You can redistribute it and/or modify it under the terms of 
+# the GNU General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/mail'
+require 'qwik/mailaddress'
+require 'qwik/mail-multipart'
+require 'qwik/util-charset'
+
+module QuickML
+  class Mail
+    # ==================== Basic header methods.
+    def header
+      return nil if ! $test	# Only for test.
+      return @header
+    end
+
+    def []=(key, value)
+      return nil if ! $test	# Only for test.
+      field = @header.find {|field|
+	key.downcase == field.first.downcase
+      }
+      if field
+	field[1] = value
+      else
+	@header << [key, value]
+      end
+      return nil
+    end
+
+    def [] (key)
+      field = @header.find {|field|
+	key.downcase == field.first.downcase
+      }
+      return '' if field.nil?
+      return field.last
+    end
+
+    # ml-session.rb:214:      mail.unshift_field('Received', received_field)
+    def unshift_field (key, value)
+      # Use Array for preserving order of the header
+      @header.unshift([key, value])
+    end
+
+    # group.rb:265:      mail.each_field {|key, value|
+    # mail-body.rb:18:      self.each_field {|key, value|
+    def each_field
+      @header.each {|field|
+	yield(field.first, field.last)
+      }
+    end
+
+    # ==================== Get value.
+    def get_unified_subject(name)
+      return Mail.get_unified_subject(self['Subject'], name)
+    end
+
+    # ml-processor.rb:37:      if @mail.looping?
+    def looping?
+      return ! self['X-QuickML'].empty?
+    end
+
+    # ==================== Address methods.
+    def from
+      address = @mail_from
+      address = Mail.collect_address(self['From'])[0] if ! self['From'].empty?
+      address = 'unknown' if address.nil? || address.empty?
+      address = MailAddress.normalize(address)
+      return address
+    end
+
+    def valid?
+      return (! @recipients.empty?) && !!@mail_from
+    end
+
+    def add_recipient (address)
+      @recipients.push(MailAddress.normalize(address))
+    end
+
+    def clear_recipients
+      @recipients = []
+    end
+
+    def collect_to
+      return Mail.collect_address(self['To']) if self['To']
+      return []
+    end
+
+    def collect_cc
+      return Mail.collect_address(self['Cc']) if self['Cc']
+      return []
+    end
+
+    # ==================== Class methods.
+    def self.collect_address (field)
+      address_regex = 
+	/(("?)[-0-9a-zA-Z_.+?\/]+\2@[-0-9a-zA-Z]+\.[-0-9a-zA-Z.]+)/ #/
+      addresses = []
+      parts = Mail.remove_comment_in_field(field).split(',')
+      parts.each {|part|
+	if (/<(.*?)>/ =~ part) || (address_regex =~ part)
+	  addresses.push(MailAddress.normalize($1))
+	end
+      }
+      return addresses.uniq
+    end
+
+    def self.get_unified_subject(s, name)
+      s = Mail.clean_subject(s, name)
+      s.sub!(/(?:Re:\s*)+/i, '')
+      s.sub!(/\A\s+/, '')
+      s.sub!(/\s+\z/, '')
+      s.gsub!(/\s+/, ' ')	# Thanks to Mr. Atsushi SHICHI.
+      return s
+    end
+
+    def self.remove_comment_in_field (field)
+      field = field.tosjis
+      true while field.sub!(/\([^()]*?\)/, '')
+      return field
+    end
+
+    def self.get_charset(contenttype)
+      return $2.downcase if /charset=("?)([-\w]+)\1/ =~ contenttype
+      return nil
+    end
+
+    def self.get_content_type(contenttype)
+      return $1.downcase if /([-\w]+\/[-\w]+)/ =~ contenttype
+      return nil
+    end
+
+    def self.encode_field (field)
+      field.gsub(Regexp.new("[\x81\x40-\xef\xf7]\\S*\\s*", nil, 's')) {|x|
+	x.scan(Regexp.new('.{1,10}', nil, 's')).map {|y|
+	  '=?ISO-2022-JP?B?' + y.tojis.to_a.pack('m').chomp + '?='
+	}.join("\n ")
+      }
+    end
+
+    def self.decode_subject(s)
+      s = join_lines(s) if multiline?(s)
+      s = SubjectDecoder.decode(s)
+      s.tosjis
+    end
+
+    def self.multiline?(s)
+      /\n/ =~ s
+    end
+
+    def self.join_lines(s)
+      result = s.dup
+      result.gsub!(/\?=\s*\n\s+=\?/, '?==?')
+      result.gsub!(/\n\s+/, ' ')
+      result.gsub!(/\n/, '')
+      return result
+    end
+
+    def self.clean_subject(s, name)
+      s = Mail.decode_subject(s)
+      s.gsub!(/(?:\[#{Regexp.quote(name)}:\d+\])/, '')
+      s.sub!(/(?:Re:\s*)+/i, 'Re: ')
+      return s
+    end
+
+    def self.rewrite_subject (s, name, count)
+      s = Mail.clean_subject(s, name)
+      s = "[#{name}:#{count}] " + s
+      return Mail.encode_field(s)
+    end
+
+    def self.address_of_domain? (address, domain)
+      re = '[.@]' + Regexp.quote(domain) + '$'
+      domainpat = Regexp.new(re, Regexp::IGNORECASE)
+      return true if domainpat =~ address
+      return false
+    end
+
+    def self.content_type(default_content_type, charset)
+      return default_content_type + "; charset=#{charset}" if charset
+      return default_content_type
+    end
+
+  end
+
+  class SubjectDecoder
+    ENCODED_WORDS = /=\?(iso-2022-jp|euc-jp|shift_jis|cp932)\?([QB])\?([^?]+)\?=/i
+    def self.decode(str)
+      str.gsub(ENCODED_WORDS) {|s|
+	charset = $1.downcase
+	encoding = $2.upcase
+	contents = $3
+	decoder = self.new(charset, encoding, contents)
+	decoder.decode
+      }
+    end
+
+    def initialize(charset, encoding, contents)
+      @charset = charset
+      @encoding = encoding
+      @contents = contents
+    end
+
+    def decode
+      return @contents if @charset.nil? and @encoding.nil?
+      decode_encoding!
+      convert_charset!
+      return @contents
+    end
+
+    def decode_encoding!
+      result = @contents
+      case @encoding
+      when "B"
+	result = @contents.unpack("m").first
+      when "Q"
+	result = @contents.unpack("M").first
+	result.gsub!("_", " ")
+      end
+      @contents = result
+    end
+
+    def convert_charset!
+      case @charset
+      when "iso-2022-jp"
+	@contents = @contents.jistosjis
+      when "euc-jp"
+	@contents = @contents.euctosjis
+      when "shift_jis", "cp932"
+	:do_nothing
+      when "utf-8"
+	@contents = @contents.u8tosjis
+      end
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSubjectDecoder < Test::Unit::TestCase
+    def test_usascii_none
+      input = "test"
+      expected = "test"
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_cp932_quotedprintable
+      input = "=?CP932?B?gqAg?="
+      expected = "\202\240 "
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_iso2022jp_base64
+      input = '=?iso-2022-jp?B?GyRCJCIbKEI=?= '
+      expected = "\202\240 "
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_1
+      input = "[smd:30] =?ISO-2022-JP?B?GyRCRnxLXDhsJTUlViU4JSclLyVIGyhC?="
+      expected = "[smd:30] 日本語サブジェクト"
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_2
+      input = "=?ISO-2022-JP?B?UmU6IFtzbWQ6MzA=?==?ISO-2022-JP?B?XSAbJEJGfEtcOGwlNSVWJTglJyUvJUgbKEI=?="
+      expected = "Re: [smd:30] 日本語サブジェクト"
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_3
+      input = "[smd:31] Re: =?ISO-2022-JP?B?GyRCRnxLXDhsJTUlViU4JSclLyVIGyhC?="
+      expected = "[smd:31] Re: 日本語サブジェクト"
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_4
+      input = "[smd:32] =?CP932?Q?Re: __=93=FA=96{=8C=EA=83T=83u=83W=83F=83N=83g?="
+      expected = "[smd:32] Re:   日本語サブジェクト"
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+    def test_5
+      input = "=?ISO-2022-JP?B?UmU6IFtzbWQ6MzBdIBskQkZ8S1w4bCU1JVYlOBsoQg==?==?ISO-2022-JP?B?GyRCJSclLyVIGyhC?="
+      expected = "Re: [smd:30] 日本語サブジェクト"
+      actual = QuickML::SubjectDecoder.decode(input)
+      ok_eq(expected, actual)
+    end
+
+  end
+
+  class TestMailHeader < Test::Unit::TestCase
+    def test_all
+      mail = QuickML::Mail.new
+
+      # test_header
+      ok_eq([], mail.header)
+
+      # test_[]=
+      mail['k'] = 'v'
+
+      # test_[]
+      ok_eq('v', mail['k'])
+
+      # test_unshift_field
+      mail.unshift_field('k2', 'v2')
+      ok_eq([['k2', 'v2'], ['k', 'v']], mail.header)
+
+      # test_each_field
+      mail.each_field {|k, v|
+	# do nothing.
+      }
+
+      # test_get_unified_subject
+      mail['Subject'] = 'Re: [t:1] s'
+      ok_eq('s', mail.get_unified_subject('t'))
+
+      # test_looping?
+      ok_eq(false, mail.looping?)
+      mail['X-QuickML'] = 'true'
+      ok_eq(true, mail.looping?)
+    end
+
+    def test_address
+      mail = QuickML::Mail.new
+
+      # test_from
+      ok_eq('unknown', mail.from)
+      mail['From'] = 'a@e.com'
+      ok_eq('a@e.com', mail.from)
+
+      # test_valid?
+      ok_eq(false, mail.valid?)
+
+      # test_add_recipient
+      mail.add_recipient('b@e.com')
+      ok_eq(false, mail.valid?)
+      
+      # test_clear_recipients
+      mail.clear_recipients
+
+      # test_collect_to
+      ok_eq([], mail.collect_to)
+      mail['To'] = 't@e.com'
+      ok_eq(['t@e.com'], mail.collect_to)
+
+      # test_collect_cc
+      ok_eq([], mail.collect_cc)
+      mail['Cc'] = 'c@e.com'
+      ok_eq(['c@e.com'], mail.collect_cc)
+    end
+
+    def test_class_method
+      c = QuickML::Mail
+
+      # test_collect_address
+      ok_eq(['a@example.net'], c.collect_address('a@example.net'))
+
+      # test_get_unified_subject
+      ok_eq('t', c.get_unified_subject('t', 'test'))
+      ok_eq('t', c.get_unified_subject('Re: t', 'test'))
+      ok_eq('t', c.get_unified_subject(' t', 'test'))
+      ok_eq('t', c.get_unified_subject('t ', 'test'))
+      ok_eq('t t', c.get_unified_subject('t t', 'test'))
+      ok_eq('t t', c.get_unified_subject('t  t', 'test'))
+      ok_eq('t t t', c.get_unified_subject('t t t', 'test'))
+      ok_eq('t t t', c.get_unified_subject('t  t  t', 'test'))
+      ok_eq('Test Mail', c.get_unified_subject('Re: [test:1] Test Mail', 'test'))
+      ok_eq('テスト', c.get_unified_subject('Re: [test:1] テスト ', 'test'))
+
+      # test_remove_comment_in_field
+      ok_eq('', c.remove_comment_in_field(''))
+      ok_eq('ac', c.remove_comment_in_field('a(b)c'))
+      ok_eq('ace', c.remove_comment_in_field('a(b)c(d)e'))
+
+      # test_get_charset
+      ok_eq(nil, c.get_charset(''))
+      ok_eq('ascii', c.get_charset('text/plain; charset="ascii"'))
+      ok_eq('iso-2022-jp', c.get_charset('text/plain; charset=ISO-2022-JP'))
+      ok_eq('shift_jis', c.get_charset('text/plain; charset=Shift_JIS'))
+
+      # test_get_contenttype
+      ok_eq(nil, c.get_content_type(''))
+      ok_eq('text/plain',
+	    c.get_content_type('text/plain; charset="ascii"'))
+      ok_eq('multipart/mixed',
+	    c.get_content_type("multipart/mixed; boundary='boundary'"))
+      ok_eq('multipart/alternative',
+	    c.get_content_type("multipart/alternative; boundary='b'"))
+
+      # test_encode_field
+      ok_eq("\201@", '　')
+      ok_eq("\352\242", '瑤')
+      ok_eq('t', c.encode_field('t'))
+      ok_eq('=?ISO-2022-JP?B?GyRCJCIbKEI=?=', c.encode_field('あ'))
+      ok_eq('=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=', c.encode_field('あい'))
+      ok_eq('=?ISO-2022-JP?B?GyRCJCIkJCQmJCgkKiQrJC0kLyQxJDMbKEI=?=
+ =?ISO-2022-JP?B?GyRCJDUkNyQ5JDskPRsoQg==?=',
+	 c.encode_field('あいうえおかきくけこさしすせそ'))
+      ok_eq('[test:1] Re: =?ISO-2022-JP?B?GyRCJUYlOSVIGyhCICA=?=',
+	 c.encode_field('[test:1] Re: テスト  '))
+      ok_eq('[test:1] Re: =?ISO-2022-JP?B?GyRCJUYlOSVIGyhCIA==?=',
+	 c.encode_field('[test:1] Re: テスト '))
+      ok_eq('[test:1] Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=',
+	 c.encode_field('[test:1] Re: あ'))
+
+      # test_decode_subject
+      ok_eq('t', c.decode_subject('t'))
+      ok_eq('st', c.decode_subject("s\nt"))
+      ok_eq('s t', c.decode_subject("s\n t"))
+      ok_eq("\202\240 ", c.decode_subject('=?iso-2022-jp?B?GyRCJCIbKEI=?= '))
+      ok_eq( '[test:33] とてもとてもとてもとてもとてもとても長い長い長い長い長い長い長い長い長いとてもとてもとてもとてもとてもとても長い長い長い長い長い長い長い長い長い日本語サブジェクトのテスト',
+	     c.decode_subject('[test:33] =?ISO-2022-JP?B?GyRCJEgkRiRiJEgkRiRiJEgkRiRiJEgbKEI=?=
+ =?ISO-2022-JP?B?GyRCJEYkYiRIJEYkYiRIJEYkYkQ5JCQbKEI=?=
+ =?ISO-2022-JP?B?GyRCRDkkJEQ5JCREOSQkRDkkJEQ5JCQbKEI=?=
+ =?ISO-2022-JP?B?GyRCRDkkJEQ5JCREOSQkJEgkRiRiJEgbKEI=?=
+ =?ISO-2022-JP?B?GyRCJEYkYiRIJEYkYiRIJEYkYiRIJEYbKEI=?=
+ =?ISO-2022-JP?B?GyRCJGIkSCRGJGJEOSQkRDkkJEQ5JCQbKEI=?=
+ =?ISO-2022-JP?B?GyRCRDkkJEQ5JCREOSQkRDkkJEQ5JCQbKEI=?=
+ =?ISO-2022-JP?B?GyRCRDkkJEZ8S1w4bCU1JVYlOCUnJS8bKEI=?=
+ =?ISO-2022-JP?B?GyRCJUgkTiVGJTklSBsoQg==?=
+'))
+      ok_eq('[test:34] very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very long なサブジェクトのテスト',
+	    c.decode_subject('[test:34] very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very long =?ISO-2022-JP?B?GyRCJEolNSVWJTglJyUvJUgkTiVGJTkbKEI=?=
+ =?ISO-2022-JP?B?GyRCJUgbKEI=?=
+'))
+
+      # test_clean_subject
+      ok_eq('t', c.clean_subject('t', 'test'))
+      ok_eq(' Re: Test ', c.clean_subject('[test:1] Re: Test ', 'test'))
+      ok_eq('Re: テスト ', c.clean_subject('Re: [test:1] テスト ', 'test'))
+      ok_eq('[hoge:2] てすと ', c.clean_subject('[hoge:2] てすと ', 'test'))
+      ok_eq('[ttt:3] てすと ', c.clean_subject('[ttt:3] てすと ', 'test'))
+
+      # test_rewrite_subject
+      ok_eq('[n:2] t', c.rewrite_subject('t', 'n', '2'))
+      ok_eq('[test:2] [t:3] test', c.rewrite_subject('[t:3] test', 'test', '2'))
+      ok_eq('[test:2] Re: Test Mail',
+	    c.rewrite_subject('Re: [test:1] Test Mail', 'test', 2))
+      ok_eq('[test:2] Re: =?ISO-2022-JP?B?GyRCJUYlOSVIGyhCIA==?=',
+	    c.rewrite_subject('Re: [test:1] テスト ', 'test', 2))
+
+      # test_address_of_domain?
+      ok_eq(true,  c.address_of_domain?('user@example.net', 'example.net'))
+      ok_eq(false, c.address_of_domain?('user@example.com', 'example.net'))
+      ok_eq(false, c.address_of_domain?('user', 'example.net'))
+
+      # test_content_type
+      ok_eq('text/plain', c.content_type('text/plain', nil))
+      ok_eq('text/plain; charset=iso-2022-jp',
+	    c.content_type('text/plain', 'iso-2022-jp'))
+    end
+  end
+end

data/vendor/qwik/lib/qwik/mail-multipart.rb

@@ -0,0 +1,193 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# Copyright (C) 2003-2006 Kouichirou Eto
+#     All rights reserved.
+#     This is free software with ABSOLUTELY NO WARRANTY.
+#
+# You can redistribute it and/or modify it under the terms of 
+# the GNU General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/mail'
+
+module QuickML
+  class Mail
+    # ==================== Multipart methods.
+    def multipart?
+      return !!boundary
+    end
+
+    def boundary
+      return Mail.boundary(self['Content-Type'])
+    end
+
+    def filename
+      return Mail.get_filename(self['Content-Disposition'])
+    end
+
+    def parts
+      return Mail.split_body(self.body, self.boundary)
+    end
+
+    def nuparts
+      boundary = self.boundary
+      return [self.body] if boundary.nil? || boundary.empty?
+      parts = @body.split(/^--#{Regexp.escape(boundary)}-*\n/)
+      parts.shift	# Remove the first empty string.
+      return parts
+    end
+
+    def each_part(&block)
+      if multipart?
+	self.parts.each {|str|
+	  submail = Mail.new
+	  submail.read(str)
+	  submail.each_part(&block)	# Recursive.
+	}
+      else
+	yield(self)
+      end
+    end
+
+    # ==================== class method
+    def self.boundary(ct)
+     #if /^multipart\/\w+;\s*boundary=("?)(.*)\1/i =~ ct
+      if /^multipart\/\w+;/i =~ ct and /[\s;]boundary=("?)(.*)\1/i =~ ct
+	return $2 
+      end
+      return nil
+    end
+
+    def self.split_body(body, boundary)
+      return [body] if boundary.nil? || boundary.empty?
+      parts = body.split(/^--#{Regexp.escape(boundary)}-*\n/)
+      parts.shift	# Remove the first empty string.
+      parts.pop if /\A\s*\z/ =~ parts.last
+      return parts
+    end
+
+    def self.get_filename(disp)
+      return nil if disp.nil?
+      type, fdesc = disp.split(';', 2)
+      return nil if fdesc.nil?
+      fdesc = fdesc.strip
+      if /\Afilename=/ =~ fdesc
+	fdesc.sub!(/\Afilename=/, '')
+	fdesc.sub!(/\A\"/, '')
+	fdesc.sub!(/\"\z/, '')
+
+	# FIXME: It is not sure that the filename is encoded in JIS.
+	# FIXME: It is using nkf for decode MIME encode.
+	str = fdesc.set_mail_charset.to_page_charset
+	str = str.to_filename_charset
+
+	return str
+      end
+      return nil
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMailMultipart < Test::Unit::TestCase
+    def test_class_method
+      c = QuickML::Mail
+
+      # test_boundary
+      ok_eq('b', c.boundary("multipart/mixed; boundary=\"b\""))
+      # ref. https://www.codeblog.org/blog/ryu/?date=20060112#p01
+      # Thanks to Mr. Sato.
+      ok_eq('b', c.boundary("multipart/signed; protocol=\"TYPE/STYPE\";
+           micalg=\"MICALG\"; boundary=\"b\""))
+
+      # test_split_body
+      ok_eq(['body'], c.split_body('body', ''))
+      ok_eq(["a\n", "b\n"], c.split_body('
+--t
+a
+--t
+b
+', 't'))
+
+      ok_eq(["a\n", "b\n"], c.split_body('
+--t
+a
+--t
+b
+--t--
+', 't'))
+
+      ok_eq(["a\n", "b\n"], c.split_body('
+--t
+a
+--t
+b
+--t--
+
+', 't'))
+
+      # example.
+      ok_eq(["a\n", "b\n"], c.split_body('
+This is a multi-part message in MIME format.
+
+------=_NextPart_000_006A_01C5C34A.53A389F0
+a
+------=_NextPart_000_006A_01C5C34A.53A389F0
+b
+------=_NextPart_000_006A_01C5C34A.53A389F0--
+
+', '----=_NextPart_000_006A_01C5C34A.53A389F0'))
+
+      # test_get_filename
+      ok_eq("\e$B$\"\e(B", 'あ'.set_sourcecode_charset.to_mail_charset)
+      ok_eq('t', c.get_filename("Content-Disposition: attachment; filename=\"t\""))
+      ok_eq("\343\201\202", c.get_filename("Content-Disposition: attachment; filename=\"\e$B$\"\e(B\""))
+      ok_eq('sounds.zip', c.get_filename("Content-Disposition: attachment;
+	filename=sounds.zip"))
+      # $KCODE = 's'
+      ok_eq('17fy予算コードの指定について.doc'.set_sourcecode_charset.to_filename_charset,
+	    c.get_filename('Content-Disposition: attachment;
+ filename="=?ISO-2022-JP?B?MTdmeRskQk09OzslMyE8JUkkTjtYRGokSxsoQg==?=
+ =?ISO-2022-JP?B?GyRCJEQkJCRGGyhCLmRvYw==?="'))
+      ok_eq('情報流デザイングループ.xls'.set_sourcecode_charset.to_filename_charset,
+	    c.get_filename('Content-Disposition: attachment;
+ filename="=?ISO-2022-JP?B?GyRCPnBKc04uJUclNiUkJXMlMCVrITwlVxsoQg==?=
+ =?ISO-2022-JP?B?Lnhscw==?="'))
+    end
+
+    def test_all
+      mail = QuickML::Mail.new
+
+      # test_plain
+      mail.body = 'body'
+      ok_eq(['body'], mail.parts)	# test_parts
+      ok_eq(false, mail.multipart?)	# test_multipart?
+
+      # test_multi_part
+      mail['Content-Type'] = "multipart/mixed; boundary=\"b\""
+      ok_eq(true, mail.multipart?)	# test_multipart?
+      ok_eq('b', mail.boundary)		# test_boundary
+      ok_eq([], mail.parts)	# test_parts
+
+      mail.body = '--b
+1
+--b
+2
+--b-
+'
+      ok_eq(["1\n", "2\n"], mail.parts)	# test_parts
+
+      # test_each_part
+      mail.each_part {|mail|
+	assert_match(/\A\d\n\z/, mail.bare)
+      }
+    end
+  end
+end