sisimai 4.21.1 → 4.22.0

data/lib/sisimai/mta/qmail.rb

@@ -1,307 +0,0 @@
-module Sisimai
-  module MTA
-    # Sisimai::MTA::Qmail parses a bounce email which created by qmail. Methods
-    # in the module are called from only Sisimai::Message.
-    module Qmail
-      # Imported from p5-Sisimail/lib/Sisimai/MTA/qmail.pm
-      class << self
-        require 'sisimai/mta'
-        require 'sisimai/rfc5322'
-
-        Re0 = {
-          :subject  => %r/\Afailure notice/i,
-          :received => %r/\A[(]qmail[ ]+\d+[ ]+invoked[ ]+(?:for[ ]+bounce|from[ ]+network)[)]/,
-        }
-        #  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
-        Re1 = {
-          :begin  => %r/\AHi[.] This is the qmail/,
-          :rfc822 => %r/\A--- Below this line is a copy of the message[.]\z/,
-          :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
-        ReLDAP = {
-          # qmail-ldap-1.03-20040101.patch:19817 - 19866
-          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 'qmail'; end
-        def smtpagent;   return 'MTA::qmail'; end
-        def headerlist;  return []; end
-        def pattern;     return Re0; end
-
-        # Parse bounce messages from qmail
-        # @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[ ]*:)?[<](.+[@].+)[>]:[ \t]*\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'
-          require 'sisimai/smtp/status'
-
-          dscontents.map do |e|
-            e['agent']     = Sisimai::MTA::Qmail.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['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/sendmail.rb

@@ -1,293 +0,0 @@
-module Sisimai
-  module MTA
-    # Sisimai::MTA::Sendmail parses a bounce email which created by v8 Sendmail.
-    # Methods in the module are called from only Sisimai::Message.
-    module Sendmail
-      # Imported from p5-Sisimail/lib/Sisimai/MTA/Sendmail.pm
-      class << self
-        require 'sisimai/mta'
-        require 'sisimai/rfc5322'
-
-        Re0 = {
-          :from    => %r/\AMail Delivery Subsystem/,
-          :subject => %r/(?:see transcript for details\z|\AWarning: )/,
-        }
-        # Error text regular expressions which defined in sendmail/savemail.c
-        #   savemail.c:1040|if (printheader && !putline("   ----- Transcript of session follows -----\n",
-        #   savemail.c:1041|          mci))
-        #   savemail.c:1042|  goto writeerr;
-        #
-        Re1 = {
-          :begin   => %r/\A[ \t]+[-]+ Transcript of session follows [-]+\z/,
-          :error   => %r/\A[.]+ while talking to .+[:]\z/,
-          :rfc822  => %r{\AContent-Type:[ ]*(?:message/rfc822|text/rfc822-headers)\z},
-          :endof   => %r/\A__END_OF_EMAIL_MESSAGE__\z/,
-        }
-        Indicators = Sisimai::MTA.INDICATORS
-
-        def description; return 'V8Sendmail: /usr/sbin/sendmail'; end
-        def smtpagent;   return Sisimai::MTA.smtpagent(self); end
-        def headerlist;  return []; end
-        def pattern;     return Re0; end
-
-        # Parse bounce messages from Sendmail
-        # @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]
-
-          unless mhead['subject'] =~ /\A[ \t]*Fwd?:/i
-            # Fwd: Returned mail: see transcript for details
-            # Do not execute this code if the bounce mail is a forwarded message.
-            return nil unless mhead['from'] =~ Re0[:from]
-          end
-
-          dscontents = [Sisimai::MTA.DELIVERYSTATUS]
-          hasdivided = mbody.split("\n")
-          havepassed = ['']
-          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
-          commandtxt = ''     # (String) SMTP Command name begin with the string '>>>'
-          esmtpreply = ''     # (String) Reply from remote server on SMTP session
-          sessionerr = false  # (Boolean) Flag, "true" if it is SMTP session error
-          connvalues = 0      # (Integer) Flag, 1 if all the value of $connheader have been set
-          connheader = {
-            'date'  => '',    # The value of Arrival-Date header
-            'rhost' => '',    # The value of Reporting-MTA header
-          }
-          anotherset = {}     # Another error information
-          v = nil
-
-          hasdivided.each do |e|
-            # Save the current line for the next loop
-            havepassed << e
-            p = havepassed[-2]
-
-            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?
-
-              if connvalues == connheader.keys.size
-                # Final-Recipient: RFC822; userunknown@example.jp
-                # X-Actual-Recipient: RFC822; kijitora@example.co.jp
-                # Action: failed
-                # Status: 5.1.1
-                # Remote-MTA: DNS; mx.example.jp
-                # Diagnostic-Code: SMTP; 550 5.1.1 <userunknown@example.jp>... User Unknown
-                # Last-Attempt-Date: Fri, 14 Feb 2014 12:30:08 -0500
-                v = dscontents[-1]
-
-                if cv = e.match(/\A[Ff]inal-[Rr]ecipient:[ ]*(?:RFC|rfc)822;[ ]*([^ ]+)\z/)
-                  # Final-Recipient: RFC822; userunknown@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 cv = e.match(/\A[Xx]-[Aa]ctual-[Rr]ecipient:[ ]*(?:RFC|rfc)822;[ ]*([^ ]+)\z/)
-                  # X-Actual-Recipient: RFC822; kijitora@example.co.jp
-                  v['alias'] = cv[1]
-
-                elsif cv = e.match(/\A[Aa]ction:[ ]*(.+)\z/)
-                  # Action: failed
-                  v['action'] = cv[1].downcase
-
-                elsif cv = e.match(/\A[Ss]tatus:[ ]*(\d[.]\d+[.]\d+)/)
-                  # Status: 5.1.1
-                  # Status:5.2.0
-                  # Status: 5.1.0 (permanent failure)
-                  v['status'] = cv[1]
-
-                elsif cv = e.match(/\A[Rr]emote-MTA:[ ]*(?:DNS|dns);[ ]*(.+)\z/)
-                  # Remote-MTA: DNS; mx.example.jp
-                  v['rhost'] = cv[1].downcase
-                  v['rhost'] = '' if v['rhost'] =~ /\A\s+\z/  # Remote-MTA: DNS;
-
-                elsif cv = e.match(/\A[Ll]ast-[Aa]ttempt-[Dd]ate:[ ]*(.+)\z/)
-                  # Last-Attempt-Date: Fri, 14 Feb 2014 12:30:08 -0500
-                  v['date'] = cv[1]
-
-                else
-                  if cv = e.match(/\A[Dd]iagnostic-[Cc]ode:[ ]*(.+?);[ ]*(.+)\z/)
-                    # Diagnostic-Code: SMTP; 550 5.1.1 <userunknown@example.jp>... User Unknown
-                    v['spec'] = cv[1].upcase
-                    v['diagnosis'] = cv[2]
-
-                  elsif p =~ /\A[Dd]iagnostic-[Cc]ode:[ ]*/ && cv = e.match(/\A[ \t]+(.+)\z/)
-                    # Continued line of the value of Diagnostic-Code header
-                    v['diagnosis'] ||= ''
-                    v['diagnosis']  += ' ' + cv[1]
-                    havepassed[-1] = 'Diagnostic-Code: ' + e
-                  end
-                end
-
-              else
-                # ----- Transcript of session follows -----
-                # ... while talking to mta.example.org.:
-                # >>> DATA
-                # <<< 550 Unknown user recipient@example.jp
-                # 554 5.0.0 Service unavailable
-                # ...
-                # Reporting-MTA: dns; mx.example.jp
-                # Received-From-MTA: DNS; x1x2x3x4.dhcp.example.ne.jp
-                # Arrival-Date: Wed, 29 Apr 2009 16:03:18 +0900
-                if cv = e.match(/\A[>]{3}[ ]+([A-Z]{4})[ ]?/)
-                  # >>> DATA
-                  commandtxt = cv[1]
-
-                elsif cv = e.match(/\A[<]{3}[ ]+(.+)\z/)
-                  # <<< Response
-                  esmtpreply = cv[1]
-
-                elsif cv = e.match(/\A[Rr]eporting-MTA:[ ]*(?:DNS|dns);[ ]*(.+)\z/)
-                  # Reporting-MTA: dns; mx.example.jp
-                  next if connheader['rhost'].size > 0
-                  connheader['rhost'] = cv[1].downcase
-                  connvalues += 1
-
-                elsif cv = e.match(/\A[Rr]eceived-[Ff]rom-MTA:[ ]*(?:DNS|dns);[ ]*(.+)\z/)
-                  # Received-From-MTA: DNS; x1x2x3x4.dhcp.example.ne.jp
-                  next if connheader['lhost']
-
-                  # The value of "lhost" is optional
-                  connheader['lhost'] = cv[1].downcase
-                  connvalues += 1
-
-                elsif cv = e.match(/\A[Aa]rrival-[Dd]ate:[ ]*(.+)\z/)
-                  # Arrival-Date: Wed, 29 Apr 2009 16:03:18 +0900
-                  next if connheader['date'].size > 0
-                  connheader['date'] = cv[1]
-                  connvalues += 1
-
-                else
-                  # Detect SMTP session error or connection error
-                  next if sessionerr
-                  if e =~ Re1[:error]
-                    # ----- Transcript of session follows -----
-                    # ... while talking to mta.example.org.:
-                    sessionerr = true
-                    next
-                  end
-
-                  if cv = e.match(/\A[<](.+)[>][.]+ (.+)\z/)
-                    # <kijitora@example.co.jp>... Deferred: Name server: example.co.jp.: host name lookup failure
-                    anotherset['recipient'] = cv[1]
-                    anotherset['diagnosis'] = cv[2]
-
-                  else
-                    # ----- Transcript of session follows -----
-                    # Message could not be delivered for too long
-                    # Message will be deleted from queue
-                    next if e =~ /\A[ \t]*[-]+/
-                    if cv = e.match(/\A[45]\d\d[ \t]([45][.]\d[.]\d)[ \t].+/)
-                      # 550 5.1.2 <kijitora@example.org>... Message
-                      #
-                      # DBI connect('dbname=...')
-                      # 554 5.3.0 unknown mailer error 255
-                      anotherset['status'] = cv[1]
-                      anotherset['diagnosis'] ||= ''
-                      anotherset['diagnosis']  += ' ' + e
-
-                    elsif e =~ /\A(?:Message|Warning:) /
-                      # Message could not be delivered for too long
-                      # Warning: message still undelivered after 4 hours
-                      anotherset['diagnosis'] ||= ''
-                      anotherset['diagnosis'] += ' ' + e
-                    end
-                  end
-                end
-              end
-            end
-          end
-          return nil if recipients.zero?
-          require 'sisimai/string'
-
-          dscontents.map do |e|
-            # Set default values if each value is empty.
-            connheader.each_key { |a| e[a] ||= connheader[a] || '' }
-
-            e['agent']     = Sisimai::MTA::Sendmail.smtpagent
-            e['command'] ||= commandtxt
-            if e['command'].empty?
-              e['command'] = 'EHLO' if esmtpreply.size > 0
-            end
-
-            if anotherset['diagnosis']
-              # Copy alternative error message
-              e['diagnosis'] = anotherset['diagnosis'] if e['diagnosis'] =~ /\A[ \t]+\z/
-              e['diagnosis'] = anotherset['diagnosis'] unless e['diagnosis']
-
-              if e['diagnosis'] =~ /\A\d+\z/
-                # Override the value of diagnostic code message
-                e['diagnosis'] = anotherset['diagnosis']
-              end
-            end
-            e['diagnosis'] = Sisimai::String.sweep(e['diagnosis'])
-
-            if anotherset['status']
-              # Check alternative status code
-              if e['status'].empty? || e['status'] !~ /\A[45][.]\d[.]\d\z/
-                # Override alternative status code
-                e['status'] = anotherset['status']
-              end
-            end
-
-            unless e['recipient'] =~ /\A[^ ]+[@][^ ]+\z/
-              # @example.jp, no local part
-              if cv = e['diagnosis'].match(/[<]([^ ]+[@][^ ]+)[>]/)
-                # Get email address from the value of Diagnostic-Code header
-                e['recipient'] = cv[1]
-              end
-            end
-            e.each_key { |a| e[a] ||= '' }
-          end
-
-          rfc822part = Sisimai::RFC5322.weedout(rfc822list)
-          return { 'ds' => dscontents, 'rfc822' => rfc822part }
-        end
-
-      end
-    end
-  end
-end