sisimai 4.21.1-java → 4.22.0-java

data/lib/sisimai/mta/x1.rb

@@ -1,127 +0,0 @@
-module Sisimai
-  module MTA
-    # Sisimai::MTA::X1 parses a bounce email which created by Unknown MTA #1.
-    # Methods in the module are called from only Sisimai::Message.
-    module X1
-      # Imported from p5-Sisimail/lib/Sisimai/MTA/X1.pm
-      class << self
-        require 'sisimai/mta'
-        require 'sisimai/rfc5322'
-
-        Re0 = {
-          :from    => %r/["]Mail Deliver System["] /,
-          :subject => %r/\AReturned Mail: /,
-        }
-        Re1 = {
-          :begin   => %r/\AThe original message was received at (.+)\z/,
-          :endof   => %r/\A__END_OF_EMAIL_MESSAGE__\z/,
-          :rfc822  => %r/\AReceived: from \d+[.]\d+[.]\d+[.]\d/,
-        }
-        Indicators = Sisimai::MTA.INDICATORS
-
-        def description; return 'Unknown MTA #1'; end
-        def smtpagent;   return Sisimai::MTA.smtpagent(self); end
-        def headerlist;  return []; end
-        def pattern;     return Re0; end
-
-        # Parse bounce messages from Unknown MTA #1
-        # @param         [Hash] mhead       Message header of a bounce email
-        # @options mhead [String] from      From header
-        # @options mhead [String] date      Date header
-        # @options mhead [String] subject   Subject header
-        # @options mhead [Array]  received  Received headers
-        # @options mhead [String] others    Other required headers
-        # @param         [String] mbody     Message body of a bounce email
-        # @return        [Hash, Nil]        Bounce data list and message/rfc822
-        #                                   part or nil if it failed to parse or
-        #                                   the arguments are missing
-        def scan(mhead, mbody)
-          return nil unless mhead
-          return nil unless mbody
-          return nil unless mhead['subject'] =~ Re0[:subject]
-          return nil unless mhead['from']    =~ Re0[:from]
-
-          dscontents = [Sisimai::MTA.DELIVERYSTATUS]
-          hasdivided = mbody.split("\n")
-          rfc822list = []     # (Array) Each line in message/rfc822 part string
-          blanklines = 0      # (Integer) The number of blank lines
-          readcursor = 0      # (Integer) Points the current cursor position
-          recipients = 0      # (Integer) The number of 'Final-Recipient' header
-          datestring = ''     # (String) Date string
-          v = nil
-
-          hasdivided.each do |e|
-            if readcursor.zero?
-              # Beginning of the bounce message or delivery status part
-              if e =~ Re1[:begin]
-                readcursor |= Indicators[:deliverystatus]
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] == 0
-              # Beginning of the original message part
-              if e =~ Re1[:rfc822]
-                readcursor |= Indicators[:'message-rfc822']
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] > 0
-              # After "message/rfc822"
-              if e.empty?
-                blanklines += 1
-                break if blanklines > 1
-                next
-              end
-              rfc822list << e
-
-            else
-              # Before "message/rfc822"
-              next if readcursor & Indicators[:deliverystatus] == 0
-              next if e.empty?
-
-              # The original message was received at Thu, 29 Apr 2010 23:34:45 +0900 (JST)
-              # from shironeko@example.jp
-              #
-              # ---The following addresses had delivery errors---
-              #
-              # kijitora@example.co.jp [User unknown]
-              v = dscontents[-1]
-
-              if cv = e.match(/\A([^ ]+?[@][^ ]+?)[ ]+\[(.+)\]\z/)
-                # kijitora@example.co.jp [User unknown]
-                if v['recipient']
-                  # There are multiple recipient addresses in the message body.
-                  dscontents << Sisimai::MTA.DELIVERYSTATUS
-                  v = dscontents[-1]
-                end
-                v['recipient'] = cv[1]
-                v['diagnosis'] = cv[2]
-                recipients += 1
-
-              elsif cv = e.match(Re1[:begin])
-                # The original message was received at Thu, 29 Apr 2010 23:34:45 +0900 (JST)
-                datestring = cv[1]
-              end
-            end
-          end
-          return nil if recipients.zero?
-          require 'sisimai/string'
-
-          dscontents.map do |e|
-            e['agent']     = Sisimai::MTA::X1.smtpagent
-            e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-            e['date']      = datestring || ''
-            e.each_key { |a| e[a] ||= '' }
-          end
-
-          rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-          return { 'ds' => dscontents, 'rfc822' => rfc822part }
-        end
-
-      end
-    end
-  end
-end
-

data/lib/sisimai/mta/x2.rb

@@ -1,128 +0,0 @@
-module Sisimai
-  module MTA
-    # Sisimai::MTA::X2 parses a bounce email which created by Unknown MTA #2.
-    # Methods in the module are called from only Sisimai::Message.
-    module X2
-      # Imported from p5-Sisimail/lib/Sisimai/MTA/X2.pm
-      class << self
-        require 'sisimai/mta'
-        require 'sisimai/rfc5322'
-
-        Re0 = {
-          :from    => %r/MAILER-DAEMON[@]/,
-          :subject => %r{\A(?>
-             Delivery[ ]failure
-            |fail(?:ure|ed)[ ]delivery
-            )
-          }x,
-        }
-        Re1 = {
-          :begin  => %r/\AUnable to deliver message to the following address/,
-          :rfc822 => %r/\A--- Original message follows/,
-          :endof  => %r/\A__END_OF_EMAIL_MESSAGE__\z/,
-        }
-        Indicators = Sisimai::MTA.INDICATORS
-
-        def description; return 'Unknown MTA #2'; end
-        def smtpagent;   return Sisimai::MTA.smtpagent(self); end
-        def headerlist;  return []; end
-        def pattern;     return Re0; end
-
-        # Parse bounce messages from Unknown MTA #2
-        # @param         [Hash] mhead       Message header of a bounce email
-        # @options mhead [String] from      From header
-        # @options mhead [String] date      Date header
-        # @options mhead [String] subject   Subject header
-        # @options mhead [Array]  received  Received headers
-        # @options mhead [String] others    Other required headers
-        # @param         [String] mbody     Message body of a bounce email
-        # @return        [Hash, Nil]        Bounce data list and message/rfc822
-        #                                   part or nil if it failed to parse or
-        #                                   the arguments are missing
-        def scan(mhead, mbody)
-          return nil unless mhead
-          return nil unless mbody
-          return nil unless mhead['subject'] =~ Re0[:subject]
-          return nil unless mhead['from']    =~ Re0[:from]
-
-          dscontents = [Sisimai::MTA.DELIVERYSTATUS]
-          hasdivided = mbody.split("\n")
-          rfc822list = []     # (Array) Each line in message/rfc822 part string
-          blanklines = 0      # (Integer) The number of blank lines
-          readcursor = 0      # (Integer) Points the current cursor position
-          recipients = 0      # (Integer) The number of 'Final-Recipient' header
-          v = nil
-
-          hasdivided.each do |e|
-            if readcursor.zero?
-              # Beginning of the bounce message or delivery status part
-              if e =~ Re1[:begin]
-                readcursor |= Indicators[:deliverystatus]
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] == 0
-              # Beginning of the original message part
-              if e =~ Re1[:rfc822]
-                readcursor |= Indicators[:'message-rfc822']
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] > 0
-              # After "message/rfc822"
-              if e.empty?
-                blanklines += 1
-                break if blanklines > 2
-                next
-              end
-              rfc822list << e
-
-            else
-              # Before "message/rfc822"
-              next if readcursor & Indicators[:deliverystatus] == 0
-              next if e.empty?
-
-              # Message from example.com.
-              # Unable to deliver message to the following address(es).
-              #
-              # <kijitora@example.com>:
-              # This user doesn't have a example.com account (kijitora@example.com) [0]
-              v = dscontents[-1]
-
-              if cv = e.match(/\A[<]([^ ]+[@][^ ]+)[>]:\z/)
-                # <kijitora@example.com>:
-                if v['recipient']
-                  # There are multiple recipient addresses in the message body.
-                  dscontents << Sisimai::MTA.DELIVERYSTATUS
-                  v = dscontents[-1]
-                end
-                v['recipient'] = cv[1]
-                recipients += 1
-
-              else
-                # This user doesn't have a example.com account (kijitora@example.com) [0]
-                v['diagnosis'] ||= ''
-                v['diagnosis']  += ' ' + e
-              end
-            end
-          end
-          return nil if recipients.zero?
-          require 'sisimai/string'
-
-          dscontents.map do |e|
-            e['agent']     = Sisimai::MTA::X2.smtpagent
-            e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-            e.each_key { |a| e[a] ||= '' }
-          end
-
-          rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-          return { 'ds' => dscontents, 'rfc822' => rfc822part }
-        end
-
-      end
-    end
-  end
-end
-

data/lib/sisimai/mta/x3.rb

@@ -1,144 +0,0 @@
-module Sisimai
-  module MTA
-    # Sisimai::MTA::X3 parses a bounce email which created by Unknown MTA #3.
-    # Methods in the module are called from only Sisimai::Message.
-    module X3
-      # Imported from p5-Sisimail/lib/Sisimai/MTA/X3.pm
-      class << self
-        require 'sisimai/mta'
-        require 'sisimai/rfc5322'
-
-        Re0 = {
-          :from    => %r/\AMail Delivery System/,
-          :subject => %r/\ADelivery status notification/,
-        }
-        Re1 = {
-          :begin  => %r/\A[ \t]+This is an automatically generated Delivery Status Notification/,
-          :rfc822 => %r|\AContent-Type: message/rfc822|,
-          :endof  => %r/\A__END_OF_EMAIL_MESSAGE__\z/,
-        }
-        Indicators = Sisimai::MTA.INDICATORS
-
-        def description; return 'Unknown MTA #3'; end
-        def smtpagent;   return Sisimai::MTA.smtpagent(self); end
-        def headerlist;  return []; end
-        def pattern;     return Re0; end
-
-        # Parse bounce messages from Unknown MTA #3
-        # @param         [Hash] mhead       Message header of a bounce email
-        # @options mhead [String] from      From header
-        # @options mhead [String] date      Date header
-        # @options mhead [String] subject   Subject header
-        # @options mhead [Array]  received  Received headers
-        # @options mhead [String] others    Other required headers
-        # @param         [String] mbody     Message body of a bounce email
-        # @return        [Hash, Nil]        Bounce data list and message/rfc822
-        #                                   part or nil if it failed to parse or
-        #                                   the arguments are missing
-        def scan(mhead, mbody)
-          return nil unless mhead
-          return nil unless mbody
-          return nil unless mhead['subject'] =~ Re0[:subject]
-          return nil unless mhead['from']    =~ Re0[:from]
-
-          dscontents = [Sisimai::MTA.DELIVERYSTATUS]
-          hasdivided = mbody.split("\n")
-          rfc822list = []     # (Array) Each line in message/rfc822 part string
-          blanklines = 0      # (Integer) The number of blank lines
-          readcursor = 0      # (Integer) Points the current cursor position
-          recipients = 0      # (Integer) The number of 'Final-Recipient' header
-          v = nil
-
-          hasdivided.each do |e|
-            if readcursor.zero?
-              # Beginning of the bounce message or delivery status part
-              if e =~ Re1[:begin]
-                readcursor |= Indicators[:deliverystatus]
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] == 0
-              # Beginning of the original message part
-              if e =~ Re1[:rfc822]
-                readcursor |= Indicators[:'message-rfc822']
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] > 0
-              # After "message/rfc822"
-              if e.empty?
-                blanklines += 1
-                break if blanklines > 1
-                next
-              end
-              rfc822list << e
-
-            else
-              # Before "message/rfc822"
-              next if readcursor & Indicators[:deliverystatus] == 0
-              next if e.empty?
-
-              # ============================================================================
-              #      This is an automatically generated Delivery Status Notification.
-              #
-              # Delivery to the following recipients failed permanently:
-              #
-              #   * kijitora@example.com
-              #
-              #
-              # ============================================================================
-              #                             Technical details:
-              #
-              # SMTP:RCPT host 192.0.2.8: 553 5.3.0 <kijitora@example.com>... No such user here
-              #
-              #
-              # ============================================================================
-              v = dscontents[-1]
-
-              if cv = e.match(/\A[ \t]+[*][ ]([^ ]+[@][^ ]+)\z/)
-                #   * kijitora@example.com
-                if v['recipient']
-                  # There are multiple recipient addresses in the message body.
-                  dscontents << Sisimai::MTA.DELIVERYSTATUS
-                  v = dscontents[-1]
-                end
-                v['recipient'] = cv[1]
-                recipients += 1
-
-              else
-                # Detect error message
-                if cv = e.match(/\ASMTP:([^ ]+)[ ](.+)\z/)
-                  # SMTP:RCPT host 192.0.2.8: 553 5.3.0 <kijitora@example.com>... No such user here
-                  v['command'] = cv[1].upcase
-                  v['diagnosis'] = cv[2]
-
-                elsif cv = e.match(/\ARouting: (.+)/)
-                  # Routing: Could not find a gateway for kijitora@example.co.jp
-                  v['diagnosis'] = cv[1]
-                end
-              end
-            end
-          end
-
-          return nil if recipients.zero?
-          require 'sisimai/string'
-          require 'sisimai/smtp/status'
-
-          dscontents.map do |e|
-            e['agent']     = Sisimai::MTA::X3.smtpagent
-            e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-            e['status']    = Sisimai::SMTP::Status.find(e['diagnosis'])
-            e.each_key { |a| e[a] ||= '' }
-          end
-
-          rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-          return { 'ds' => dscontents, 'rfc822' => rfc822part }
-        end
-
-      end
-    end
-  end
-end
-

data/lib/sisimai/mta/x4.rb

@@ -1,328 +0,0 @@
-module Sisimai
-  module MTA
-    # Sisimai::MTA::X4 parses a bounce email which created by some qmail clone.
-    # Methods in the module are called from only Sisimai::Message.
-    module X4
-      # Imported from p5-Sisimail/lib/Sisimai/MTA/X4.pm
-      class << self
-        require 'sisimai/mta'
-        require 'sisimai/rfc5322'
-        Re0 = {
-          :subject  => %r{\A(?:
-             failure[ ]notice
-            |Permanent[ ]Delivery[ ]Failure
-            )
-          }xi,
-          :received => %r/\A[(]qmail[ ]+\d+[ ]+invoked[ ]+for[ ]+bounce[)]/,
-        }
-        #  qmail-remote.c:248|    if (code >= 500) {
-        #  qmail-remote.c:249|      out("h"); outhost(); out(" does not like recipient.\n");
-        #  qmail-remote.c:265|  if (code >= 500) quit("D"," failed on DATA command");
-        #  qmail-remote.c:271|  if (code >= 500) quit("D"," failed after I sent the message");
-        #
-        # Characters: K,Z,D in qmail-qmqpc.c, qmail-send.c, qmail-rspawn.c
-        #  K = success, Z = temporary error, D = permanent error
-        #
-        # MTA module for qmail clones
-        Re1 = {
-          :begin  => %r{\A(?>
-             He/Her[ ]is[ ]not.+[ ]user
-            |Hi[.][ ].+[ ]unable[ ]to[ ]deliver[ ]your[ ]message[ ]to[ ]
-              the[ ]following[ ]addresses
-            |Su[ ]mensaje[ ]no[ ]pudo[ ]ser[ ]entregado
-            |This[ ]is[ ]the[ ](?:
-               machine[ ]generated[ ]message[ ]from[ ]mail[ ]service
-              |mail[ ]delivery[ ]agent[ ]at
-              )
-            |Unable[ ]to[ ]deliver[ ]message[ ]to[ ]the[ ]following[ ]address
-            |Unfortunately,[ ]your[ ]mail[ ]was[ ]not[ ]delivered[ ]to[ ]the[ ]following[ ]address:
-            |Your[ ](?:
-               mail[ ]message[ ]to[ ]the[ ]following[ ]address
-              |message[ ]to[ ]the[ ]following[ ]addresses
-              )
-            |We're[ ]sorry[.]
-            )
-          }ix,
-          :rfc822 => %r{\A(?:
-             ---[ ]Below[ ]this[ ]line[ ]is[ ]a[ ]copy[ ]of[ ]the[ ]message[.]
-            |---[ ]Original[ ]message[ ]follows[.]
-            )
-          }xi,
-          :error  => %r/\ARemote host said:/,
-          :sorry  => %r/\A[Ss]orry[,.][ ]/,
-          :endof  => %r/\A__END_OF_EMAIL_MESSAGE__\z/,
-        }
-        ReSMTP = {
-          # Error text regular expressions which defined in qmail-remote.c
-          # qmail-remote.c:225|  if (smtpcode() != 220) quit("ZConnected to "," but greeting failed");
-          conn: %r/(?:Error:)?Connected[ ]to[ ].+[ ]but[ ]greeting[ ]failed[.]/x,
-          # qmail-remote.c:231|  if (smtpcode() != 250) quit("ZConnected to "," but my name was rejected");
-          ehlo: %r/(?:Error:)?Connected[ ]to[ ].+[ ]but[ ]my[ ]name[ ]was[ ]rejected[.]/x,
-          # qmail-remote.c:238|  if (code >= 500) quit("DConnected to "," but sender was rejected");
-          # reason = rejected
-          mail: %r/(?:Error:)?Connected[ ]to[ ].+[ ]but[ ]sender[ ]was[ ]rejected[.]/x,
-          # qmail-remote.c:249|  out("h"); outhost(); out(" does not like recipient.\n");
-          # qmail-remote.c:253|  out("s"); outhost(); out(" does not like recipient.\n");
-          # reason = userunknown
-          rcpt: %r/(?:Error:)?.+[ ]does[ ]not[ ]like[ ]recipient[.]/x,
-          # qmail-remote.c:265|  if (code >= 500) quit("D"," failed on DATA command");
-          # qmail-remote.c:266|  if (code >= 400) quit("Z"," failed on DATA command");
-          # qmail-remote.c:271|  if (code >= 500) quit("D"," failed after I sent the message");
-          # qmail-remote.c:272|  if (code >= 400) quit("Z"," failed after I sent the message");
-          data: %r{(?:
-             (?:Error:)?.+[ ]failed[ ]on[ ]DATA[ ]command[.]
-            |(?:Error:)?.+[ ]failed[ ]after[ ]I[ ]sent[ ]the[ ]message[.]
-            )
-          }x,
-        }
-        # qmail-remote.c:261|  if (!flagbother) quit("DGiving up on ","");
-        ReHost = %r{(?:
-           Giving[ ]up[ ]on[ ](.+[0-9a-zA-Z])[.]?\z
-          |Connected[ ]to[ ]([-0-9a-zA-Z.]+[0-9a-zA-Z])[ ]
-          |remote[ ]host[ ]([-0-9a-zA-Z.]+[0-9a-zA-Z])[ ]said:
-          )
-        }x
-        # qmail-ldap-1.03-20040101.patch:19817 - 19866
-        ReLDAP = {
-          suspend:     %r/Mailaddress is administrative?le?y disabled/,            # 5.2.1
-          userunknown: %r/[Ss]orry, no mailbox here by that name/,                 # 5.1.1
-          exceedlimit: %r/The message exeeded the maximum size the user accepts/,  # 5.2.3
-          systemerror: %r{(?>
-             Automatic[ ]homedir[ ]creator[ ]crashed                    # 4.3.0
-            |Illegal[ ]value[ ]in[ ]LDAP[ ]attribute                    # 5.3.5
-            |LDAP[ ]attribute[ ]is[ ]not[ ]given[ ]but[ ]mandatory      # 5.3.5
-            |Timeout[ ]while[ ]performing[ ]search[ ]on[ ]LDAP[ ]server # 4.4.3
-            |Too[ ]many[ ]results[ ]returned[ ]but[ ]needs[ ]to[ ]be[ ]unique # 5.3.5
-            |Permanent[ ]error[ ]while[ ]executing[ ]qmail[-]forward    # 5.4.4
-            |Temporary[ ](?:
-               error[ ](?:
-                 in[ ]automatic[ ]homedir[ ]creation            # 4.3.0 or 5.3.0
-                |while[ ]executing[ ]qmail[-]forward            # 4.4.4
-                )
-              |failure[ ]in[ ]LDAP[ ]lookup                       # 4.4.3
-              )
-            |Unable[ ]to[ ](?:
-               contact[ ]LDAP[ ]server                            # 4.4.3
-              |login[ ]into[ ]LDAP[ ]server,[ ]bad[ ]credentials  # 4.4.3
-              )
-            )
-          }x,
-        }
-        # userunknown + expired
-        ReOnHold  = %r/\A[^ ]+ does not like recipient[.][ ]+.+this message has been in the queue too long[.]\z/
-        # qmail-remote-fallback.patch
-        ReCommand = %r/Sorry,[ ]no[ ]SMTP[ ]connection[ ]got[ ]far[ ]enough;[ ]most[ ]progress[ ]was[ ]([A-Z]{4})[ ]/x
-        ReFailure = {
-          # qmail-local.c:589|  strerr_die1x(100,"Sorry, no mailbox here by that name. (#5.1.1)");
-          # qmail-remote.c:253|  out("s"); outhost(); out(" does not like recipient.\n");
-          userunknown: %r{(?:
-             no[ ]mailbox[ ]here[ ]by[ ]that[ ]name
-            |[ ]does[ ]not[ ]like[ ]recipient[.]
-            )
-          }x,
-          # error_str.c:192|  X(EDQUOT,"disk quota exceeded")
-          mailboxfull: %r/disk[ ]quota[ ]exceeded/x,
-          # qmail-qmtpd.c:233| ... result = "Dsorry, that message size exceeds my databytes limit (#5.3.4)";
-          # qmail-smtpd.c:391| ... out("552 sorry, that message size exceeds my databytes limit (#5.3.4)\r\n"); return;
-          mesgtoobig:  %r/Message[ ]size[ ]exceeds[ ]fixed[ ]maximum[ ]message[ ]size:/x,
-          # qmail-remote.c:68|  Sorry, I couldn't find any host by that name. (#4.1.2)\n"); zerodie();
-          # qmail-remote.c:78|  Sorry, I couldn't find any host named ");
-          hostunknown: %r/\ASorry[,][ ]I[ ]couldn[']t[ ]find[ ]any[ ]host[ ]/x,
-          systemerror: %r{(?>
-             bad[ ]interpreter:[ ]No[ ]such[ ]file[ ]or[ ]directory
-            |system[ ]error
-            |Unable[ ]to\b
-            )
-          }x,
-          networkerror: %r{Sorry(?:
-             [,][ ]I[ ]wasn[']t[ ]able[ ]to[ ]establish[ ]an[ ]SMTP[ ]connection
-            |[,][ ]I[ ]couldn[']t[ ]find[ ]a[ ]mail[ ]exchanger[ ]or[ ]IP[ ]address
-            |[.][ ]Although[ ]I[']m[ ]listed[ ]as[ ]a[ ]best[-]preference[ ]MX[ ]or[ ]A[ ]for[ ]that[ ]host
-            )
-          }x,
-          systemfull: %r/Requested action not taken: mailbox unavailable [(]not enough free space[)]/,
-        }
-        # qmail-send.c:922| ... (&dline[c],"I'm not going to try again; this message has been in the queue too long.\n")) nomem();
-        ReDelayed  = %r/this[ ]message[ ]has[ ]been[ ]in[ ]the[ ]queue[ ]too[ ]long[.]\z/x
-        Indicators = Sisimai::MTA.INDICATORS
-
-        def description; return 'Unknown MTA #4'; end
-        def smtpagent;   return Sisimai::MTA.smtpagent(self); end
-        def headerlist;  return []; end
-        def pattern;     return Re0; end
-
-        # Parse bounce messages from Unknown MTA #4
-        # @param         [Hash] mhead       Message header of a bounce email
-        # @options mhead [String] from      From header
-        # @options mhead [String] date      Date header
-        # @options mhead [String] subject   Subject header
-        # @options mhead [Array]  received  Received headers
-        # @options mhead [String] others    Other required headers
-        # @param         [String] mbody     Message body of a bounce email
-        # @return        [Hash, Nil]        Bounce data list and message/rfc822
-        #                                   part or nil if it failed to parse or
-        #                                   the arguments are missing
-        def scan(mhead, mbody)
-          return nil unless mhead
-          return nil unless mbody
-
-          # Pre process email headers and the body part of the message which generated
-          # by qmail, see http://cr.yp.to/qmail.html
-          #   e.g.) Received: (qmail 12345 invoked for bounce); 29 Apr 2009 12:34:56 -0000
-          #         Subject: failure notice
-          match  = 0
-          match += 1 if mhead['subject'] =~ Re0[:subject]
-          match += 1 if mhead['received'].find { |a| a =~ Re0[:received] }
-          return nil if match.zero?
-
-          dscontents = [Sisimai::MTA.DELIVERYSTATUS]
-          hasdivided = mbody.split("\n")
-          rfc822list = []     # (Array) Each line in message/rfc822 part string
-          blanklines = 0      # (Integer) The number of blank lines
-          readcursor = 0      # (Integer) Points the current cursor position
-          recipients = 0      # (Integer) The number of 'Final-Recipient' header
-          v = nil
-
-          hasdivided.each do |e|
-            if readcursor.zero?
-              # Beginning of the bounce message or delivery status part
-              if e =~ Re1[:begin]
-                readcursor |= Indicators[:deliverystatus]
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] == 0
-              # Beginning of the original message part
-              if e =~ Re1[:rfc822]
-                readcursor |= Indicators[:'message-rfc822']
-                next
-              end
-            end
-
-            if readcursor & Indicators[:'message-rfc822'] > 0
-              # After "message/rfc822"
-              if e.empty?
-                blanklines += 1
-                break if blanklines > 1
-                next
-              end
-              rfc822list << e
-
-            else
-              # Before "message/rfc822"
-              next if readcursor & Indicators[:deliverystatus] == 0
-              next if e.empty?
-
-              # <kijitora@example.jp>:
-              # 192.0.2.153 does not like recipient.
-              # Remote host said: 550 5.1.1 <kijitora@example.jp>... User Unknown
-              # Giving up on 192.0.2.153.
-              v = dscontents[-1]
-
-              if cv = e.match(/\A(?:To[ ]*:)?[<](.+[@].+)[>]:[ ]*\z/)
-                # <kijitora@example.jp>:
-                if v['recipient']
-                  # There are multiple recipient addresses in the message body.
-                  dscontents << Sisimai::MTA.DELIVERYSTATUS
-                  v = dscontents[-1]
-                end
-                v['recipient'] = cv[1]
-                recipients += 1
-
-              elsif dscontents.size == recipients
-                # Append error message
-                next if e.empty?
-                v['diagnosis'] ||= ''
-                v['diagnosis']  += e + ' '
-                v['alterrors']   = e if e =~ Re1[:error]
-
-                next if v['rhost']
-                if cv = e.match(ReHost)
-                  v['rhost'] = cv[1]
-                end
-              end
-            end
-          end
-          return nil if recipients.zero?
-          require 'sisimai/string'
-
-          dscontents.map do |e|
-            e['agent']     = Sisimai::MTA::X4.smtpagent
-            e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-
-            unless e['command']
-              # Get the SMTP command name for the session
-              ReSMTP.each_key do |r|
-                # Verify each regular expression of SMTP commands
-                next unless e['diagnosis'] =~ ReSMTP[r]
-                e['command'] = r.to_s.upcase
-                break
-              end
-
-              unless e['command']
-                # Verify each regular expression of patches
-                if cv = e['diagnosis'].match(ReCommand)
-                  e['command'] = cv[1].upcase
-                end
-                e['command'] ||= ''
-              end
-            end
-
-            # Detect the reason of bounce
-            if e['command'] == 'MAIL'
-              # MAIL | Connected to 192.0.2.135 but sender was rejected.
-              e['reason'] = 'rejected'
-
-            elsif e['command'] =~ /\A(?:HELO|EHLO)\z/
-              # HELO | Connected to 192.0.2.135 but my name was rejected.
-              e['reason'] = 'blocked'
-
-            else
-              # Try to match with each error message in the table
-              if e['diagnosis'] =~ ReOnHold
-                # To decide the reason require pattern match with
-                # Sisimai::Reason::* modules
-                e['reason'] = 'onhold'
-
-              else
-                ReFailure.each_key do |r|
-                  # Verify each regular expression of session errors
-                  if e['alterrors']
-                    # Check the value of "alterrors"
-                    next unless e['alterrors'] =~ ReFailure[r]
-                    e['reason'] = r.to_s
-                  end
-                  break if e['reason']
-
-                  next unless e['diagnosis'] =~ ReFailure[r]
-                  e['reason'] = r.to_s
-                  break
-                end
-
-                unless e['reason']
-                  ReLDAP.each_key do |r|
-                    # Verify each regular expression of LDAP errors
-                    next unless e['diagnosis'] =~ ReLDAP[r]
-                    e['reason'] = r.to_s
-                    break
-                  end
-                end
-
-                unless e['reason']
-                  e['reason'] = 'expired' if e['diagnosis'] =~ ReDelayed
-                end
-              end
-            end
-            e.each_key { |a| e[a] ||= '' }
-          end
-
-          rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-          return { 'ds' => dscontents, 'rfc822' => rfc822part }
-        end
-
-      end
-    end
-  end
-end
-