(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git send-email">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('PREREQ', {[DQ [LIT_CHARS PERL]]})])
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "prepare reference tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"1A quick brown fox jumps over the\" >file &&\n"> <LIT_CHARS "\techo \"lazy dog\" >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"A\" git commit -a -m \"Initial.\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Setup helper tool">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\twrite_script fake.sendmail <<-\\EOF &&\n"> <LIT_CHARS "\tshift\n"> <LIT_CHARS "\toutput=1\n"> <LIT_CHARS "\twhile test -f commandline$output\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\toutput=$(($output+1))\n"> <LIT_CHARS "\tdone\n"> <LIT_CHARS "\tfor a\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo \"!$a!\"\n"> <LIT_CHARS "\tdone >commandline$output\n"> <LIT_CHARS "\tcat >\"msgtxt$output\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit add fake.sendmail &&\n"> <LIT_CHARS "\tGIT_AUTHOR_NAME=\"A\" git commit -a -m \"Second.\"\n">]})
  (FunctionDef clean_fake_sendmail []
    (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[LIT_CHARS commandline] [LIT_OTHER "*"]} {[LIT_CHARS msgtxt] [LIT_OTHER "*"]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Extract patches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpatches=$(git format-patch -s --cc=\"One <one@example.com>\" --cc=two@example.com -n HEAD^1)\n">]})
  (FunctionDef test_no_confirm []
    (List
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[LIT_CHARS no_confirm_okay]})
      (AndOr OP_AND_IF
        (Pipeline
          (Com {[LIT_CHARS echo]} {[LIT_CHARS n]})
          (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --from] [LIT_OTHER "="] [DQ [LIT_CHARS "Example <from@example.com>"]]} {[LIT_CHARS --to] [LIT_OTHER "="] [LIT_CHARS nobody] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server] [LIT_OTHER "="] [DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /fake.sendmail]]} {[VarSub @]} {[VarSub patches]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS stdout]} <REDIR_GREAT ">"> 1),
            >

                    more_env=[('GIT_SEND_EMAIL_NOTTY', {[LIT_CHARS 1]})]
          )
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS test_must_fail]} {[LIT_CHARS grep]} {[DQ [LIT_CHARS "Send this email"]]} {[LIT_CHARS stdout]})
          (Com 
            <
            (FilenameRedirectNode filename={[LIT_CHARS no_confirm_okay]} <REDIR_GREAT ">"> 1),
            >
          )
        )
      )
    )
  )
  (FunctionDef check_no_confirm []
    (List
      (If
        (Pipeline!
          (Com {[LIT_CHARS test]} {[LIT_CHARS -f]} {[LIT_CHARS no_confirm_okay]})
        )
        (List
          (Com {[LIT_CHARS say]} {[SQ <LIT_CHARS "confirm test failed; skipping remaining tests to prevent hanging">]})
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('PREREQ', {[DQ [VarSub PREREQ][LIT_CHARS ",CHECK_NO_CONFIRM"]]})])
        )
      )
      (Com {[LIT_CHARS return]} {[LIT_CHARS 0]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "No confirm with --suppress-cc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_no_confirm --suppress-cc=sob &&\n"> <LIT_CHARS "\tcheck_no_confirm\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "No confirm with --confirm=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_no_confirm --confirm=never &&\n"> <LIT_CHARS "\tcheck_no_confirm\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "No confirm with sendemail.confirm=never">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config sendemail.confirm never &&\n"> <LIT_CHARS "\ttest_no_confirm --compose --subject=foo &&\n"> <LIT_CHARS "\tcheck_no_confirm\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Send patches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email --suppress-cc=sob --from=\"Example <nobody@example.com>\" --to=nobody@example.com --smtp-server=\"$(pwd)/fake.sendmail\" $patches 2>errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\t!nobody@example.com!\n"> <LIT_CHARS "\t!author@example.com!\n"> <LIT_CHARS "\t!one@example.com!\n"> <LIT_CHARS "\t!two@example.com!\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Verify commandline">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cmp expected commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Send patches with --envelope-sender">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email --envelope-sender=\"Patch Contributor <patch@example.com>\" --suppress-cc=sob --from=\"Example <nobody@example.com>\" --to=nobody@example.com --smtp-server=\"$(pwd)/fake.sendmail\" $patches 2>errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\t!patch@example.com!\n"> <LIT_CHARS "\t!-i!\n"> <LIT_CHARS "\t!nobody@example.com!\n"> <LIT_CHARS "\t!author@example.com!\n"> <LIT_CHARS "\t!one@example.com!\n"> <LIT_CHARS "\t!two@example.com!\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Verify commandline">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cmp expected commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Send patches with --envelope-sender=auto">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email --envelope-sender=auto --suppress-cc=sob --from=\"Example <nobody@example.com>\" --to=nobody@example.com --smtp-server=\"$(pwd)/fake.sendmail\" $patches 2>errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\t!nobody@example.com!\n"> <LIT_CHARS "\t!-i!\n"> <LIT_CHARS "\t!nobody@example.com!\n"> <LIT_CHARS "\t!author@example.com!\n"> <LIT_CHARS "\t!one@example.com!\n"> <LIT_CHARS "\t!two@example.com!\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Verify commandline">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cmp expected commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect for cc trailer">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-cc <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "!recipient@example.com!\n"][LIT_CHARS "!author@example.com!\n"][LIT_CHARS "!one@example.com!\n"][LIT_CHARS "!two@example.com!\n"][LIT_CHARS "!three@example.com!\n"][LIT_CHARS "!four@example.com!\n"][LIT_CHARS "!five@example.com!\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "cc trailer with various syntax">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit cc-trailer &&\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard HEAD^\" &&\n"> <LIT_CHARS "\tgit commit --amend -F - <<-EOF &&\n"> <LIT_CHARS "\tTest Cc: trailers.\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tCc: one@example.com\n"> <LIT_CHARS "\tCc: <two@example.com> # this is part of the name\n"> <LIT_CHARS "\tCc: <three@example.com>, <four@example.com> # not.five@example.com\n"> <LIT_CHARS "\tCc: \"Some # Body\" <five@example.com> [part.of.name.too]\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email -1 --to=recipient@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" &&\n"> <LIT_CHARS "\ttest_cmp expected-cc commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-show-all-headers <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<cc@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "RCPT TO:<bcc@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: cc@example.com,\n"][LIT_CHARS "\tA <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "In-Reply-To: <unique-message-id@example.com>\n"][LIT_CHARS "References: <unique-message-id@example.com>\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (FunctionDef test_suppress_self []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS test_commit]} {[VarSub 3]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test_when_finished]} {[DQ [LIT_CHARS "git reset --hard HEAD^"]]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS write_script]} {[LIT_CHARS cccmd-sed]}
            <
            (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "sed -n -e s/^cccmd--//p "][RIGHT_D_QUOTE "\""][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS 1][RIGHT_D_QUOTE "\""][LIT_CHARS "\n"]]} <REDIR_DLESSDASH "<<-"> 0),
            >
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS --amend]} {[LIT_CHARS --author] [LIT_OTHER "="] [DQ [VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">"]]} {[LIT_CHARS -F]} {[LIT_CHARS -]})
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS clean_fake_sendmail]})
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS git]} {[LIT_CHARS format-patch]} {[LIT_CHARS --stdout]} {[LIT_CHARS -1]}
                  <
                  (FilenameRedirectNode filename={[DQ [LIT_CHARS suppress-self-][VarSub 3][LIT_CHARS .patch]]} <REDIR_GREAT ">"> 1),
                  >
                )
                (AndOr OP_AND_IF
                  (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --from] [LIT_OTHER "="] [DQ [VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">"]]} {[LIT_CHARS --to] [LIT_OTHER "="] [LIT_CHARS nobody] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --cc-cmd] [LIT_OTHER "="] [LIT_CHARS ./cccmd-sed]} {[LIT_CHARS --suppress-cc] [LIT_OTHER "="] [LIT_CHARS self]} {[LIT_CHARS --smtp-server] [LIT_OTHER "="] [DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /fake.sendmail]]} {[LIT_CHARS suppress-self-] [VarSub 3] [LIT_CHARS .patch]})
                  (AndOr OP_AND_IF
                    (Com {[LIT_CHARS mv]} {[LIT_CHARS msgtxt1]} {[LIT_CHARS msgtxt1-] [VarSub 3]})
                    (AndOr OP_AND_IF
                      (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "/^$/q">]} {[LIT_CHARS msgtxt1-] [VarSub 3]}
                        <
                        (FilenameRedirectNode filename={[DQ [LIT_CHARS msghdr1-][VarSub 3]]} <REDIR_GREAT ">"> 1),
                        >
                      )
                      (AndOr OP_AND_IF
                        (Com 
                          <
                          (FilenameRedirectNode filename={[DQ [LIT_CHARS expected-no-cc-][VarSub 3]]} <REDIR_GREAT ">"> 1),
                          >
                        )
                        (Subshell
                          (List
                            (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "^Cc:">]} {[LIT_CHARS msghdr1-] [VarSub 3]}
                              <
                              (FilenameRedirectNode filename={[DQ [LIT_CHARS actual-no-cc-][VarSub 3]]} <REDIR_GREAT ">"> 1),
                              >
                            )
                            (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expected-no-cc-] [VarSub 3]} {[LIT_CHARS actual-no-cc-] [VarSub 3]})
                          )
                        )
                      )
                    )
                  )
                )
              )
            )
          )
        )
      )
    )
  )
  (FunctionDef test_suppress_self_unquoted []
    (Com {[LIT_CHARS test_suppress_self]} {[DQ [VarSub 1]]} {[DQ [VarSub 2]]} {[DQ [LIT_CHARS unquoted-][VarSub 3]]}
      <
      (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "test suppress-cc.self unquoted-"][VarSub 3][LIT_CHARS " with name "][VarSub 1][LIT_CHARS " email "][VarSub 2][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS unquoted-][VarSub 3][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS cccmd--][VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"][LIT_CHARS "\n"][LIT_CHARS "Cc: "][VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"][LIT_CHARS "Signed-off-by: "][VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"]]} <REDIR_DLESSDASH "<<-"> 0),
      >
    )
  )
  (FunctionDef test_suppress_self_quoted []
    (Com {[LIT_CHARS test_suppress_self]} {[DQ [VarSub 1]]} {[DQ [VarSub 2]]} {[DQ [LIT_CHARS quoted-][VarSub 3]]}
      <
      (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "test suppress-cc.self quoted-"][VarSub 3][LIT_CHARS " with name "][VarSub 1][LIT_CHARS " email "][VarSub 2][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS quoted-][VarSub 3][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS cccmd--][RIGHT_D_QUOTE "\""][VarSub 1][RIGHT_D_QUOTE "\""][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"][LIT_CHARS "\n"][LIT_CHARS "Cc: "][VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"][LIT_CHARS "Cc: "][RIGHT_D_QUOTE "\""][VarSub 1][RIGHT_D_QUOTE "\""][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"][LIT_CHARS "Signed-off-by: "][VarSub 1][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"][LIT_CHARS "Signed-off-by: "][RIGHT_D_QUOTE "\""][VarSub 1][RIGHT_D_QUOTE "\""][LIT_CHARS " <"][VarSub 2][LIT_CHARS ">\n"]]} <REDIR_DLESSDASH "<<-"> 0),
      >
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "self name is suppressed">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\ttest_suppress_self_unquoted 'A U Thor' 'author@example.com' "][LIT_CHARS "\t\t'self_name_suppressed'\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "self name with dot is suppressed">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\ttest_suppress_self_quoted 'A U. Thor' 'author@example.com' "][LIT_CHARS "\t\t'self_name_dot_suppressed'\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "non-ascii self name is suppressed">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\ttest_suppress_self_quoted 'F\u00fc\u00f1n\u00fd N\u00e2m\u00e9' 'odd_?=mail@example.com' "][LIT_CHARS "\t\t'non_ascii_self_suppressed'\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "long non-ascii self name is suppressed">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\ttest_suppress_self_quoted '\u0191\u00fc\u00f1n\u00ed\u0119\u0159 \u20ac. N\u00e2\u1e41\u00e9' 'odd_?=mail@example.com' "][LIT_CHARS "\t\t'long_non_ascii_self_suppressed'\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sanitized self name is suppressed">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\ttest_suppress_self_unquoted '"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "A U. Thor"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "' 'author@example.com' "][LIT_CHARS "\t\t'self_name_sanitized_suppressed'\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Show all headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--suppress-cc=sob \\\n"> <LIT_CHARS "\t\t--from=\"Example <from@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=to@example.com \\\n"> <LIT_CHARS "\t\t--cc=cc@example.com \\\n"> <LIT_CHARS "\t\t--bcc=bcc@example.com \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"<unique-message-id@example.com>\" \\\n"> <LIT_CHARS "\t\t--smtp-server relay.example.com \\\n"> <LIT_CHARS "\t\t$patches |\n"> <LIT_CHARS "\tsed\t-e \"s/^\\(Date:\\).*/\\1 DATE-STRING/\" \\\n"> <LIT_CHARS "\t\t-e \"s/^\\(Message-Id:\\).*/\\1 MESSAGE-ID-STRING/\" \\\n"> <LIT_CHARS "\t\t-e \"s/^\\(X-Mailer:\\).*/\\1 X-MAILER-STRING/\" \\\n"> <LIT_CHARS "\t\t>actual-show-all-headers &&\n"> <LIT_CHARS "\ttest_cmp expected-show-all-headers actual-show-all-headers\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Prompting works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\t(echo \"to@example.com\"\n"> <LIT_CHARS "\t echo \"\"\n"> <LIT_CHARS "\t) | GIT_SEND_EMAIL_NOTTY=1 git send-email \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches \\\n"> <LIT_CHARS "\t\t2>errors &&\n"> <LIT_CHARS "\t\tgrep \"^From: A U Thor <author@example.com>\\$\" msgtxt1 &&\n"> <LIT_CHARS "\t\tgrep \"^To: to@example.com\\$\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ] [LIT_COMMA ","] [LIT_CHARS AUTOIDENT]} {[SQ <LIT_CHARS "implicit ident is allowed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\t(sane_unset GIT_AUTHOR_NAME &&\n"> <LIT_CHARS "\tsane_unset GIT_AUTHOR_EMAIL &&\n"> <LIT_CHARS "\tsane_unset GIT_COMMITTER_NAME &&\n"> <LIT_CHARS "\tsane_unset GIT_COMMITTER_EMAIL &&\n"> <LIT_CHARS "\tGIT_SEND_EMAIL_NOTTY=1 git send-email \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t--to=to@example.com \\\n"> <LIT_CHARS "\t\t$patches </dev/null 2>errors\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ] [LIT_COMMA ","] [LIT_OTHER "!"] [LIT_CHARS AUTOIDENT]} {[SQ <LIT_CHARS "broken implicit ident aborts send-email">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\t(sane_unset GIT_AUTHOR_NAME &&\n"> <LIT_CHARS "\tsane_unset GIT_AUTHOR_EMAIL &&\n"> <LIT_CHARS "\tsane_unset GIT_COMMITTER_NAME &&\n"> <LIT_CHARS "\tsane_unset GIT_COMMITTER_EMAIL &&\n"> <LIT_CHARS "\tGIT_SEND_EMAIL_NOTTY=1 && export GIT_SEND_EMAIL_NOTTY &&\n"> <LIT_CHARS "\ttest_must_fail git send-email \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t--to=to@example.com \\\n"> <LIT_CHARS "\t\t$patches </dev/null 2>errors &&\n"> <LIT_CHARS "\ttest_i18ngrep \"tell me who you are\" errors\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup tocmd and cccmd scripts">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\twrite_script tocmd-sed <<-\\EOF &&\n"> <LIT_CHARS "\tsed -n -e \"s/^tocmd--//p\" \"$1\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\twrite_script cccmd-sed <<-\\EOF\n"> <LIT_CHARS "\tsed -n -e \"s/^cccmd--//p\" \"$1\"\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "tocmd works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tcp $patches tocmd.patch &&\n"> <LIT_CHARS "\techo tocmd--tocmd@example.com >>tocmd.patch &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to-cmd=./tocmd-sed \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\ttocmd.patch \\\n"> <LIT_CHARS "\t\t&&\n"> <LIT_CHARS "\tgrep \"^To: tocmd@example.com\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "cccmd works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tcp $patches cccmd.patch &&\n"> <LIT_CHARS "\techo \"cccmd--  cccmd@example.com\" >>cccmd.patch &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--cc-cmd=./cccmd-sed \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\tcccmd.patch \\\n"> <LIT_CHARS "\t\t&&\n"> <LIT_CHARS "\tgrep \"^\tcccmd@example.com\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "reject long lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tz8=zzzzzzzz &&\n"> <LIT_CHARS "\tz64=$z8$z8$z8$z8$z8$z8$z8$z8 &&\n"> <LIT_CHARS "\tz512=$z64$z64$z64$z64$z64$z64$z64$z64 &&\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tcp $patches longline.patch &&\n"> <LIT_CHARS "\techo $z512$z512 >>longline.patch &&\n"> <LIT_CHARS "\ttest_must_fail git send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches longline.patch \\\n"> <LIT_CHARS "\t\t2>errors &&\n"> <LIT_CHARS "\tgrep longline.patch errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "no patch was sent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t! test -e commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Author From: in message body">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tsed \"1,/^\\$/d\" <msgtxt1 >msgbody1 &&\n"> <LIT_CHARS "\tgrep \"From: A <author@example.com>\" msgbody1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Author From: not in message body">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"A <author@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tsed \"1,/^\\$/d\" <msgtxt1 >msgbody1 &&\n"> <LIT_CHARS "\t! grep \"From: A <author@example.com>\" msgbody1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "allow long lines with --no-validate">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t--no-validate \\\n"> <LIT_CHARS "\t\t$patches longline.patch \\\n"> <LIT_CHARS "\t\t2>errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Invalid In-Reply-To">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--in-reply-to=\" \" \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches \\\n"> <LIT_CHARS "\t\t2>errors &&\n"> <LIT_CHARS "\t! grep \"^In-Reply-To: < *>\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Valid In-Reply-To when prompting">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\t(echo \"From Example <from@example.com>\"\n"> <LIT_CHARS "\t echo \"To Example <to@example.com>\"\n"> <LIT_CHARS "\t echo \"\"\n"> <LIT_CHARS "\t) | GIT_SEND_EMAIL_NOTTY=1 git send-email \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches 2>errors &&\n"> <LIT_CHARS "\t! grep \"^In-Reply-To: < *>\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "In-Reply-To without --chain-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"<unique-message-id@example.com>\" >expect &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--no-chain-reply-to \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"$(cat expect)\" \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches $patches $patches \\\n"> <LIT_CHARS "\t\t2>errors &&\n"> <LIT_CHARS "\t# The first message is a reply to --in-reply-to\n"> <LIT_CHARS "\tsed -n -e \"s/^In-Reply-To: *\\(.*\\)/\\1/p\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\t# Second and subsequent messages are replies to the first one\n"> <LIT_CHARS "\tsed -n -e \"s/^Message-Id: *\\(.*\\)/\\1/p\" msgtxt1 >expect &&\n"> <LIT_CHARS "\tsed -n -e \"s/^In-Reply-To: *\\(.*\\)/\\1/p\" msgtxt2 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\tsed -n -e \"s/^In-Reply-To: *\\(.*\\)/\\1/p\" msgtxt3 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "In-Reply-To with --chain-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"<unique-message-id@example.com>\" >expect &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--chain-reply-to \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"$(cat expect)\" \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches $patches $patches \\\n"> <LIT_CHARS "\t\t2>errors &&\n"> <LIT_CHARS "\tsed -n -e \"s/^In-Reply-To: *\\(.*\\)/\\1/p\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\tsed -n -e \"s/^Message-Id: *\\(.*\\)/\\1/p\" msgtxt1 >expect &&\n"> <LIT_CHARS "\tsed -n -e \"s/^In-Reply-To: *\\(.*\\)/\\1/p\" msgtxt2 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual &&\n"> <LIT_CHARS "\tsed -n -e \"s/^Message-Id: *\\(.*\\)/\\1/p\" msgtxt2 >expect &&\n"> <LIT_CHARS "\tsed -n -e \"s/^In-Reply-To: *\\(.*\\)/\\1/p\" msgtxt3 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup fake editor">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\twrite_script fake-editor <<-\\EOF\n"> <LIT_CHARS "\techo fake edit >>\"$1\"\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_set_editor]} {[DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /fake-editor]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--compose --subject foo \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t$patches \\\n"> <LIT_CHARS "\t2>errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "first message is compose text">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgrep \"^fake edit\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "second message is patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgrep \"Subject:.*Second\" msgtxt2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-sob <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<cc@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: cc@example.com,\n"][LIT_CHARS "\tA <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (FunctionDef replace_variable_fields []
    (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s/^"][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "Date:"][\ LIT_ESCAPED_CHAR "\\)"][LIT_CHARS ".*/"][\ LIT_ESCAPED_CHAR "\\1"][LIT_CHARS " DATE-STRING/"]]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s/^"][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "Message-Id:"][\ LIT_ESCAPED_CHAR "\\)"][LIT_CHARS ".*/"][\ LIT_ESCAPED_CHAR "\\1"][LIT_CHARS " MESSAGE-ID-STRING/"]]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s/^"][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "X-Mailer:"][\ LIT_ESCAPED_CHAR "\\)"][LIT_CHARS ".*/"][\ LIT_ESCAPED_CHAR "\\1"][LIT_CHARS " X-MAILER-STRING/"]]})
  )
  (FunctionDef test_suppression []
    (AndOr OP_AND_IF
      (Pipeline
        (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --dry-run]} {[LIT_CHARS --suppress-cc] [LIT_OTHER "="] [VarSub 1]} {[VarSub 2 test_op=VS_TEST_PLUS {[DQ [LIT_CHARS "--suppress-cc="][VarSub 2]]}]} {[LIT_CHARS --from] [LIT_OTHER "="] [DQ [LIT_CHARS "Example <from@example.com>"]]} {[LIT_CHARS --to] [LIT_OTHER "="] [LIT_CHARS to] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server]} {[LIT_CHARS relay.example.com]} {[VarSub patches]})
        (Com {[LIT_CHARS replace_variable_fields]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS actual-suppress-] [VarSub 1] [VarSub 2 test_op=VS_TEST_PLUS {[DQ [LIT_CHARS -][VarSub 2]]}]} <REDIR_GREAT ">"> 1),
          >
        )
      )
      (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expected-suppress-] [VarSub 1] [VarSub 2 test_op=VS_TEST_PLUS {[DQ [LIT_CHARS -][VarSub 2]]}]} {[LIT_CHARS actual-suppress-] [VarSub 1] [VarSub 2 test_op=VS_TEST_PLUS {[DQ [LIT_CHARS -][VarSub 2]]}]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.cc set">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config sendemail.cc cc@example.com &&\n"> <LIT_CHARS "\ttest_suppression sob\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-sob <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.cc unset">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --unset sendemail.cc &&\n"> <LIT_CHARS "\ttest_suppression sob\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-cccmd <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(body) Adding cc: C O Mitter <committer@example.com> from line 'Signed-off-by: C O Mitter <committer@example.com>'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "RCPT TO:<committer@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com,\n"][LIT_CHARS "\tC O Mitter <committer@example.com>\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS sendemail.cccmd>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\twrite_script cccmd <<-\\EOF &&\n"> <LIT_CHARS "\techo cc-cmd@example.com\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit config sendemail.cccmd ./cccmd &&\n"> <LIT_CHARS "\ttest_suppression cccmd\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected-suppress-all <<\\EOF\n"> <LIT_CHARS "0001-Second.patch\n"> <LIT_CHARS "Dry-OK. Log says:\n"> <LIT_CHARS "Server: relay.example.com\n"> <LIT_CHARS "MAIL FROM:<from@example.com>\n"> <LIT_CHARS "RCPT TO:<to@example.com>\n"> <LIT_CHARS "From: Example <from@example.com>\n"> <LIT_CHARS "To: to@example.com\n"> <LIT_CHARS "Subject: [PATCH 1/1] Second.\n"> <LIT_CHARS "Date: DATE-STRING\n"> <LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"> <LIT_CHARS "X-Mailer: X-MAILER-STRING\n"> <LIT_CHARS "\n"> <LIT_CHARS "Result: OK\n"> <LIT_CHARS "EOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--suppress-cc=all">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_suppression all\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-body <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(cc-cmd) Adding cc: cc-cmd@example.com from: './cccmd'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "RCPT TO:<cc-cmd@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com,\n"][LIT_CHARS "\tcc-cmd@example.com\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--suppress-cc=body">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_suppression body\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-body-cccmd <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--suppress-cc=body --suppress-cc=cccmd">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_suppression body cccmd\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-sob <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--suppress-cc=sob">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail git config --unset sendemail.cccmd &&\n"> <LIT_CHARS "\ttest_suppression sob\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-bodycc <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(mbox) Adding cc: One <one@example.com> from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(mbox) Adding cc: two@example.com from line 'Cc: One <one@example.com>, two@example.com'\n"][LIT_CHARS "(body) Adding cc: C O Mitter <committer@example.com> from line 'Signed-off-by: C O Mitter <committer@example.com>'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<one@example.com>\n"][LIT_CHARS "RCPT TO:<two@example.com>\n"][LIT_CHARS "RCPT TO:<committer@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tOne <one@example.com>,\n"][LIT_CHARS "\ttwo@example.com,\n"][LIT_CHARS "\tC O Mitter <committer@example.com>\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--suppress-cc=bodycc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_suppression bodycc\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "cat >expected-suppress-cc <<"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF\n"][LIT_CHARS "0001-Second.patch\n"][LIT_CHARS "(mbox) Adding cc: A <author@example.com> from line 'From: A <author@example.com>'\n"][LIT_CHARS "(body) Adding cc: C O Mitter <committer@example.com> from line 'Signed-off-by: C O Mitter <committer@example.com>'\n"][LIT_CHARS "Dry-OK. Log says:\n"][LIT_CHARS "Server: relay.example.com\n"][LIT_CHARS "MAIL FROM:<from@example.com>\n"][LIT_CHARS "RCPT TO:<to@example.com>\n"][LIT_CHARS "RCPT TO:<author@example.com>\n"][LIT_CHARS "RCPT TO:<committer@example.com>\n"][LIT_CHARS "From: Example <from@example.com>\n"][LIT_CHARS "To: to@example.com\n"][LIT_CHARS "Cc: A <author@example.com>,\n"][LIT_CHARS "\tC O Mitter <committer@example.com>\n"][LIT_CHARS "Subject: [PATCH 1/1] Second.\n"][LIT_CHARS "Date: DATE-STRING\n"][LIT_CHARS "Message-Id: MESSAGE-ID-STRING\n"][LIT_CHARS "X-Mailer: X-MAILER-STRING\n"][LIT_CHARS "\n"][LIT_CHARS "Result: OK\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--suppress-cc=cc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_suppression cc\n">]})
  (FunctionDef test_confirm []
    (AndOr OP_AND_IF
      (Pipeline
        (Com {[LIT_CHARS echo]} {[LIT_CHARS y]})
        (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --from] [LIT_OTHER "="] [DQ [LIT_CHARS "Example <nobody@example.com>"]]} {[LIT_CHARS --to] [LIT_OTHER "="] [LIT_CHARS nobody] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server] [LIT_OTHER "="] [DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /fake.sendmail]]} {[VarSub @]} {[VarSub patches]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS stdout]} <REDIR_GREAT ">"> 1),
          >

                more_env=[('GIT_SEND_EMAIL_NOTTY', {[LIT_CHARS 1]})]
        )
      )
      (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS "Send this email"]]} {[LIT_CHARS stdout]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--confirm=always">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_confirm --confirm=always --suppress-cc=all\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--confirm=auto">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_confirm --confirm=auto\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--confirm=cc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_confirm --confirm=cc\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--confirm=compose">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_confirm --confirm=compose --compose\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm by default (due to cc)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished git config sendemail.confirm never &&\n"> <LIT_CHARS "\tgit config --unset sendemail.confirm &&\n"> <LIT_CHARS "\ttest_confirm\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm by default (due to --compose)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished git config sendemail.confirm never &&\n"> <LIT_CHARS "\tgit config --unset sendemail.confirm &&\n"> <LIT_CHARS "\ttest_confirm --suppress-cc=all --compose\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm detects EOF (inform assumes y)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished git config sendemail.confirm never &&\n"> <LIT_CHARS "\tgit config --unset sendemail.confirm &&\n"> <LIT_CHARS "\trm -fr outdir &&\n"> <LIT_CHARS "\tgit format-patch -2 -o outdir &&\n"> <LIT_CHARS "\tGIT_SEND_EMAIL_NOTTY=1 \\\n"> <LIT_CHARS "\t\tgit send-email \\\n"> <LIT_CHARS "\t\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\toutdir/*.patch </dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm detects EOF (auto causes failure)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished git config sendemail.confirm never &&\n"> <LIT_CHARS "\tgit config sendemail.confirm auto &&\n"> <LIT_CHARS "\tGIT_SEND_EMAIL_NOTTY=1 &&\n"> <LIT_CHARS "\texport GIT_SEND_EMAIL_NOTTY &&\n"> <LIT_CHARS "\t\ttest_must_fail git send-email \\\n"> <LIT_CHARS "\t\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\t$patches </dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm does not loop forever">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished git config sendemail.confirm never &&\n"> <LIT_CHARS "\tgit config sendemail.confirm auto &&\n"> <LIT_CHARS "\tGIT_SEND_EMAIL_NOTTY=1 &&\n"> <LIT_CHARS "\texport GIT_SEND_EMAIL_NOTTY &&\n"> <LIT_CHARS "\t\tyes \"bogus\" | test_must_fail git send-email \\\n"> <LIT_CHARS "\t\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\t$patches\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "utf8 Cc is rfc2047 encoded">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\trm -fr outdir &&\n"> <LIT_CHARS "\tgit format-patch -1 -o outdir --cc=\"\u00e0\u00e9\u00ec\u00f6\u00fa <utf8@example.com>\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\toutdir/*.patch &&\n"> <LIT_CHARS "\tgrep \"^\t\" msgtxt1 |\n"> <LIT_CHARS "\tgrep \"=?UTF-8?q?=C3=A0=C3=A9=C3=AC=C3=B6=C3=BA?= <utf8@example.com>\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose adds MIME for utf8 body">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\twrite_script fake-editor-utf8 <<-\\EOF &&\n"> <LIT_CHARS "\techo \"utf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa\" >>\"$1\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose --subject foo \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^utf8 body\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Content-Type: text/plain; charset=UTF-8\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose respects user mime type">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\twrite_script fake-editor-utf8-mime <<-\\EOF &&\n"> <LIT_CHARS "\tcat >\"$1\" <<-\\EOM\n"> <LIT_CHARS "\tMIME-Version: 1.0\n"> <LIT_CHARS "\tContent-Type: text/plain; charset=iso-8859-1\n"> <LIT_CHARS "\tContent-Transfer-Encoding: 8bit\n"> <LIT_CHARS "\tSubject: foo\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tutf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa\n"> <LIT_CHARS "\tEOM\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8-mime\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose --subject foo \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^utf8 body\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Content-Type: text/plain; charset=iso-8859-1\" msgtxt1 &&\n"> <LIT_CHARS "\t! grep \"^Content-Type: text/plain; charset=UTF-8\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose adds MIME for utf8 subject">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose --subject utf8-s\u00fcbj\u00ebct \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^fake edit\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Subject: =?UTF-8?q?utf8-s=C3=BCbj=C3=ABct?=\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "utf8 author is correctly passed on">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\ttest_commit weird_author &&\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard HEAD^\" &&\n"> <LIT_CHARS "\tgit commit --amend --author \"F\u00fc\u00f1n\u00fd N\u00e2m\u00e9 <odd_?=mail@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >funny_name.patch &&\n"> <LIT_CHARS "\tgit send-email --from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\tfunny_name.patch &&\n"> <LIT_CHARS "\tgrep \"^From: F\u00fc\u00f1n\u00fd N\u00e2m\u00e9 <odd_?=mail@example.com>\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "utf8 sender is not duplicated">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\ttest_commit weird_sender &&\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard HEAD^\" &&\n"> <LIT_CHARS "\tgit commit --amend --author \"F\u00fc\u00f1n\u00fd N\u00e2m\u00e9 <odd_?=mail@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >funny_name.patch &&\n"> <LIT_CHARS "\tgit send-email --from=\"F\u00fc\u00f1n\u00fd N\u00e2m\u00e9 <odd_?=mail@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\tfunny_name.patch &&\n"> <LIT_CHARS "\tgrep \"^From: \" msgtxt1 >msgfrom &&\n"> <LIT_CHARS "\ttest_line_count = 1 msgfrom\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.composeencoding works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit config sendemail.composeencoding iso-8859-1 &&\n"> <LIT_CHARS "\twrite_script fake-editor-utf8 <<-\\EOF &&\n"> <LIT_CHARS "\techo \"utf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa\" >>\"$1\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose --subject foo \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^utf8 body\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Content-Type: text/plain; charset=iso-8859-1\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose-encoding works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\twrite_script fake-editor-utf8 <<-\\EOF &&\n"> <LIT_CHARS "\techo \"utf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa\" >>\"$1\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose-encoding iso-8859-1 \\\n"> <LIT_CHARS "\t\t--compose --subject foo \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^utf8 body\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Content-Type: text/plain; charset=iso-8859-1\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose-encoding overrides sendemail.composeencoding">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit config sendemail.composeencoding iso-8859-1 &&\n"> <LIT_CHARS "\twrite_script fake-editor-utf8 <<-\\EOF &&\n"> <LIT_CHARS "\techo \"utf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa\" >>\"$1\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose-encoding iso-8859-2 \\\n"> <LIT_CHARS "\t\t--compose --subject foo \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^utf8 body\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Content-Type: text/plain; charset=iso-8859-2\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--compose-encoding adds correct MIME for subject">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tGIT_EDITOR=\"\\\"$(pwd)/fake-editor\\\"\" \\\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--compose-encoding iso-8859-2 \\\n"> <LIT_CHARS "\t\t--compose --subject utf8-s\u00fcbj\u00ebct \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t$patches &&\n"> <LIT_CHARS "\tgrep \"^fake edit\" msgtxt1 &&\n"> <LIT_CHARS "\tgrep \"^Subject: =?iso-8859-2?q?utf8-s=C3=BCbj=C3=ABct?=\" msgtxt1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "detects ambiguous reference/file conflict">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo master >master &&\n"> <LIT_CHARS "\tgit add master &&\n"> <LIT_CHARS "\tgit commit -m\"add master\" &&\n"> <LIT_CHARS "\ttest_must_fail git send-email --dry-run master 2>errors &&\n"> <LIT_CHARS "\tgrep disambiguate errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "feed two files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr outdir &&\n"> <LIT_CHARS "\tgit format-patch -2 -o outdir &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\toutdir/000?-*.patch 2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^Subject: \" out >subjects &&\n"> <LIT_CHARS "\ttest \"z$(sed -n -e 1p subjects)\" = \"zSubject: [PATCH 1/2] Second.\" &&\n"> <LIT_CHARS "\ttest \"z$(sed -n -e 2p subjects)\" = \"zSubject: [PATCH 2/2] add master\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "in-reply-to but no threading">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"<in-reply-id@example.com>\" \\\n"> <LIT_CHARS "\t\t--no-thread \\\n"> <LIT_CHARS "\t\t$patches |\n"> <LIT_CHARS "\tgrep \"In-Reply-To: <in-reply-id@example.com>\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "no in-reply-to and no threading">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--no-thread \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\t! grep \"In-Reply-To: \" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "threading but no chain-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--thread \\\n"> <LIT_CHARS "\t\t--no-chain-reply-to \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"In-Reply-To: \" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.to works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all sendemail.to \"Somebody <somebody@ex.com>\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"To: Somebody <somebody@ex.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--no-to overrides sendemail.to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--no-to \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"To: nobody@example.com\" stdout &&\n"> <LIT_CHARS "\t! grep \"To: Somebody <somebody@ex.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.cc works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all sendemail.cc \"Somebody <somebody@ex.com>\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"Cc: Somebody <somebody@ex.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--no-cc overrides sendemail.cc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--no-cc \\\n"> <LIT_CHARS "\t\t--cc=bodies@example.com \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"Cc: bodies@example.com\" stdout &&\n"> <LIT_CHARS "\t! grep \"Cc: Somebody <somebody@ex.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.bcc works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all sendemail.bcc \"Other <other@ex.com>\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server relay.example.com \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"RCPT TO:<other@ex.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--no-bcc overrides sendemail.bcc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--no-bcc \\\n"> <LIT_CHARS "\t\t--bcc=bodies@example.com \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server relay.example.com \\\n"> <LIT_CHARS "\t\t$patches $patches >stdout &&\n"> <LIT_CHARS "\tgrep \"RCPT TO:<bodies@example.com>\" stdout &&\n"> <LIT_CHARS "\t! grep \"RCPT TO:<other@ex.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "patches To headers are used by default">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpatch=$(git format-patch -1 --to=\"bodies@example.com\") &&\n"> <LIT_CHARS "\ttest_when_finished \"rm $patch\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--smtp-server relay.example.com \\\n"> <LIT_CHARS "\t\t$patch >stdout &&\n"> <LIT_CHARS "\tgrep \"RCPT TO:<bodies@example.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "patches To headers are appended to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpatch=$(git format-patch -1 --to=\"bodies@example.com\") &&\n"> <LIT_CHARS "\ttest_when_finished \"rm $patch\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server relay.example.com \\\n"> <LIT_CHARS "\t\t$patch >stdout &&\n"> <LIT_CHARS "\tgrep \"RCPT TO:<bodies@example.com>\" stdout &&\n"> <LIT_CHARS "\tgrep \"RCPT TO:<nobody@example.com>\" stdout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "To headers from files reset each patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpatch1=$(git format-patch -1 --to=\"bodies@example.com\") &&\n"> <LIT_CHARS "\tpatch2=$(git format-patch -1 --to=\"other@example.com\" HEAD~) &&\n"> <LIT_CHARS "\ttest_when_finished \"rm $patch1 && rm $patch2\" &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--dry-run \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=\"nobody@example.com\" \\\n"> <LIT_CHARS "\t\t--smtp-server relay.example.com \\\n"> <LIT_CHARS "\t\t$patch1 $patch2 >stdout &&\n"> <LIT_CHARS "\ttest $(grep -c \"RCPT TO:<bodies@example.com>\" stdout) = 1 &&\n"> <LIT_CHARS "\ttest $(grep -c \"RCPT TO:<nobody@example.com>\" stdout) = 2 &&\n"> <LIT_CHARS "\ttest $(grep -c \"RCPT TO:<other@example.com>\" stdout) = 1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >email-using-8bit <<\\EOF\n"> <LIT_CHARS "From fe6ecc66ece37198fe5db91fa2fc41d9f4fe5cc4 Mon Sep 17 00:00:00 2001\n"> <LIT_CHARS "Message-Id: <bogus-message-id@example.com>\n"> <LIT_CHARS "From: author@example.com\n"> <LIT_CHARS "Date: Sat, 12 Jun 2010 15:53:58 +0200\n"> <LIT_CHARS "Subject: subject goes here\n"> <LIT_CHARS "\n"> <LIT_CHARS "Dieser deutsche Text enth\u00e4lt einen Umlaut!\n"> <LIT_CHARS "EOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"Subject: subject goes here\" >expected\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "ASCII subject is not RFC2047 quoted">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo bogus |\n"> <LIT_CHARS "\tgit send-email --from=author@example.com --to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\t--8bit-encoding=UTF-8 \\\n"> <LIT_CHARS "\t\t\temail-using-8bit >stdout &&\n"> <LIT_CHARS "\tgrep \"Subject\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >content-type-decl <<-\\EOF\n"> <LIT_CHARS "\tMIME-Version: 1.0\n"> <LIT_CHARS "\tContent-Type: text/plain; charset=UTF-8\n"> <LIT_CHARS "\tContent-Transfer-Encoding: 8bit\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "asks about and fixes 8bit encodings">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo |\n"> <LIT_CHARS "\tgit send-email --from=author@example.com --to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\temail-using-8bit >stdout &&\n"> <LIT_CHARS "\tgrep \"do not declare a Content-Transfer-Encoding\" stdout &&\n"> <LIT_CHARS "\tgrep email-using-8bit stdout &&\n"> <LIT_CHARS "\tgrep \"Which 8bit encoding\" stdout &&\n"> <LIT_CHARS "\tegrep \"Content|MIME\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp actual content-type-decl\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.8bitEncoding works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit config sendemail.assume8bitEncoding UTF-8 &&\n"> <LIT_CHARS "\techo bogus |\n"> <LIT_CHARS "\tgit send-email --from=author@example.com --to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\temail-using-8bit >stdout &&\n"> <LIT_CHARS "\tegrep \"Content|MIME\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp actual content-type-decl\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--8bit-encoding overrides sendemail.8bitEncoding">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit config sendemail.assume8bitEncoding \"bogus too\" &&\n"> <LIT_CHARS "\techo bogus |\n"> <LIT_CHARS "\tgit send-email --from=author@example.com --to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\t--8bit-encoding=UTF-8 \\\n"> <LIT_CHARS "\t\t\temail-using-8bit >stdout &&\n"> <LIT_CHARS "\tegrep \"Content|MIME\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp actual content-type-decl\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >email-using-8bit <<-\\EOF\n"> <LIT_CHARS "\tFrom fe6ecc66ece37198fe5db91fa2fc41d9f4fe5cc4 Mon Sep 17 00:00:00 2001\n"> <LIT_CHARS "\tMessage-Id: <bogus-message-id@example.com>\n"> <LIT_CHARS "\tFrom: author@example.com\n"> <LIT_CHARS "\tDate: Sat, 12 Jun 2010 15:53:58 +0200\n"> <LIT_CHARS "\tSubject: Dieser Betreff enth\u00e4lt auch einen Umlaut!\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tNothing to see here.\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\tSubject: =?UTF-8?q?Dieser=20Betreff=20enth=C3=A4lt=20auch=20einen=20Umlaut!?=\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--8bit-encoding also treats subject">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo bogus |\n"> <LIT_CHARS "\tgit send-email --from=author@example.com --to=nobody@example.com \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\t--8bit-encoding=UTF-8 \\\n"> <LIT_CHARS "\t\t\temail-using-8bit >stdout &&\n"> <LIT_CHARS "\tgrep \"Subject\" msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >email-using-8bit <<-\\EOF\n"> <LIT_CHARS "\tFrom fe6ecc66ece37198fe5db91fa2fc41d9f4fe5cc4 Mon Sep 17 00:00:00 2001\n"> <LIT_CHARS "\tMessage-Id: <bogus-message-id@example.com>\n"> <LIT_CHARS "\tFrom: A U Thor <author@example.com>\n"> <LIT_CHARS "\tDate: Sat, 12 Jun 2010 15:53:58 +0200\n"> <LIT_CHARS "\tContent-Type: text/plain; charset=UTF-8\n"> <LIT_CHARS "\tSubject: Nothing to see here.\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tDieser Betreff enth\u00e4lt auch einen Umlaut!\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.transferencoding=7bit fails on 8bit data">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit config sendemail.transferEncoding 7bit &&\n"> <LIT_CHARS "\ttest_must_fail git send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=7bit \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-8bit \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"cannot send message as 7bit\" errors &&\n"> <LIT_CHARS "\ttest -z \"$(ls msgtxt*)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--transfer-encoding overrides sendemail.transferEncoding">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit config sendemail.transferEncoding 8bit &&\n"> <LIT_CHARS "\ttest_must_fail git send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=7bit \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-8bit \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"cannot send message as 7bit\" errors &&\n"> <LIT_CHARS "\ttest -z \"$(ls msgtxt*)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.transferencoding=8bit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=8bit \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-8bit \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " msgtxt1 >actual &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " email-using-8bit >expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\tDieser Betreff enth=C3=A4lt auch einen Umlaut!\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "8-bit and sendemail.transferencoding=quoted-printable">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=quoted-printable \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-8bit \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\tRGllc2VyIEJldHJlZmYgZW50aMOkbHQgYXVjaCBlaW5lbiBVbWxhdXQhCg==\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "8-bit and sendemail.transferencoding=base64">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=base64 \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-8bit \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >email-using-qp <<-\\EOF\n"> <LIT_CHARS "\tFrom fe6ecc66ece37198fe5db91fa2fc41d9f4fe5cc4 Mon Sep 17 00:00:00 2001\n"> <LIT_CHARS "\tMessage-Id: <bogus-message-id@example.com>\n"> <LIT_CHARS "\tFrom: A U Thor <author@example.com>\n"> <LIT_CHARS "\tDate: Sat, 12 Jun 2010 15:53:58 +0200\n"> <LIT_CHARS "\tMIME-Version: 1.0\n"> <LIT_CHARS "\tContent-Transfer-Encoding: quoted-printable\n"> <LIT_CHARS "\tContent-Type: text/plain; charset=UTF-8\n"> <LIT_CHARS "\tSubject: Nothing to see here.\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tDieser Betreff enth=C3=A4lt auch einen Umlaut!\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "convert from quoted-printable to base64">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=base64 \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-qp \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "tr -d '"][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS "015' | tr '%' '"][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS "015' >email-using-crlf <<EOF\n"][LIT_CHARS "From fe6ecc66ece37198fe5db91fa2fc41d9f4fe5cc4 Mon Sep 17 00:00:00 2001\n"][LIT_CHARS "Message-Id: <bogus-message-id@example.com>\n"][LIT_CHARS "From: A U Thor <author@example.com>\n"][LIT_CHARS "Date: Sat, 12 Jun 2010 15:53:58 +0200\n"][LIT_CHARS "Content-Type: text/plain; charset=UTF-8\n"][LIT_CHARS "Subject: Nothing to see here.\n"][LIT_CHARS "\n"][LIT_CHARS "Look, I have a CRLF and an = sign!%\n"][LIT_CHARS "EOF\n"]]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\tLook, I have a CRLF and an =3D sign!=0D\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "CRLF and sendemail.transferencoding=quoted-printable">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=quoted-printable \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-crlf \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF\n"> <LIT_CHARS "\tTG9vaywgSSBoYXZlIGEgQ1JMRiBhbmQgYW4gPSBzaWduIQ0K\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "CRLF and sendemail.transferencoding=base64">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--transfer-encoding=base64 \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\temail-using-crlf \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tsed ">] [LIT_CHARS 1] [LIT_COMMA ","] [LIT_CHARS /] [LIT_OTHER "^"] [LIT_OTHER "$"] [LIT_CHARS /d] [SQ <LIT_CHARS " msgtxt1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "refusing to send cover letter template">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\trm -fr outdir &&\n"> <LIT_CHARS "\tgit format-patch --cover-letter -2 -o outdir &&\n"> <LIT_CHARS "\ttest_must_fail git send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\toutdir/0002-*.patch \\\n"> <LIT_CHARS "\t\toutdir/0000-*.patch \\\n"> <LIT_CHARS "\t\toutdir/0001-*.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"SUBJECT HERE\" errors &&\n"> <LIT_CHARS "\ttest -z \"$(ls msgtxt*)\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--force sends cover letter template anyway">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\trm -fr outdir &&\n"> <LIT_CHARS "\tgit format-patch --cover-letter -2 -o outdir &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--force \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\toutdir/0002-*.patch \\\n"> <LIT_CHARS "\t\toutdir/0000-*.patch \\\n"> <LIT_CHARS "\t\toutdir/0001-*.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\t! grep \"SUBJECT HERE\" errors &&\n"> <LIT_CHARS "\ttest -n \"$(ls msgtxt*)\"\n">]})
  (FunctionDef test_cover_addresses []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('header', {[DQ [VarSub 1]]})])
      (Com {[LIT_CHARS shift]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS clean_fake_sendmail]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[LIT_CHARS outdir]})
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS git]} {[LIT_CHARS format-patch]} {[LIT_CHARS --cover-letter]} {[LIT_CHARS -2]} {[LIT_CHARS -o]} {[LIT_CHARS outdir]})
            (AndOr OP_AND_IF
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('cover', {[ComSub (Com {[LIT_CHARS echo]} {[LIT_CHARS outdir/0000-] [LIT_OTHER "*"] [LIT_CHARS .patch]})]})])
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS mv]} {[VarSub cover]} {[LIT_CHARS cover-to-edit.patch]})
                (AndOr OP_AND_IF
                  (Com {[LIT_CHARS perl]} {[LIT_CHARS -pe]} {[DQ [LIT_CHARS "s/^From:/"][VarSub header][LIT_CHARS ": extra"][\ LIT_ESCAPED_CHAR "\\@"][LIT_CHARS address.com][\ LIT_ESCAPED_CHAR "\\n"][LIT_CHARS "From:/"]]} {[LIT_CHARS cover-to-edit.patch]}
                    <
                    (FilenameRedirectNode filename={[DQ [VarSub cover]]} <REDIR_GREAT ">"> 1),
                    >
                  )
                  (AndOr OP_AND_IF
                    (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --force]} {[LIT_CHARS --from] [LIT_OTHER "="] [DQ [LIT_CHARS "Example <nobody@example.com>"]]} {[LIT_CHARS --no-to]} {[LIT_CHARS --no-cc]} {[DQ [VarSub @]]} {[LIT_CHARS --smtp-server] [LIT_OTHER "="] [DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /fake.sendmail]]} {[LIT_CHARS outdir/0000-] [LIT_OTHER "*"] [LIT_CHARS .patch]} {[LIT_CHARS outdir/0001-] [LIT_OTHER "*"] [LIT_CHARS .patch]} {[LIT_CHARS outdir/0002-] [LIT_OTHER "*"] [LIT_CHARS .patch]}
                      <
                      (FilenameRedirectNode filename={[LIT_CHARS errors]} <REDIR_GREAT "2>"> 2),
                      (FilenameRedirectNode filename={[LIT_CHARS out]} <REDIR_GREAT ">"> 1),
                      >
                    )
                    (AndOr OP_AND_IF
                      (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS "^"][VarSub header][LIT_CHARS ": extra@address.com"]]} {[LIT_CHARS msgtxt1]}
                        <
                        (FilenameRedirectNode filename={[LIT_CHARS to1]} <REDIR_GREAT ">"> 1),
                        >
                      )
                      (AndOr OP_AND_IF
                        (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS "^"][VarSub header][LIT_CHARS ": extra@address.com"]]} {[LIT_CHARS msgtxt2]}
                          <
                          (FilenameRedirectNode filename={[LIT_CHARS to2]} <REDIR_GREAT ">"> 1),
                          >
                        )
                        (AndOr OP_AND_IF
                          (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS "^"][VarSub header][LIT_CHARS ": extra@address.com"]]} {[LIT_CHARS msgtxt3]}
                            <
                            (FilenameRedirectNode filename={[LIT_CHARS to3]} <REDIR_GREAT ">"> 1),
                            >
                          )
                          (AndOr OP_AND_IF
                            (Com {[LIT_CHARS test_line_count]} {[LIT_OTHER "="]} {[LIT_CHARS 1]} {[LIT_CHARS to1]})
                            (AndOr OP_AND_IF
                              (Com {[LIT_CHARS test_line_count]} {[LIT_OTHER "="]} {[LIT_CHARS 1]} {[LIT_CHARS to2]})
                              (Com {[LIT_CHARS test_line_count]} {[LIT_OTHER "="]} {[LIT_CHARS 1]} {[LIT_CHARS to3]})
                            )
                          )
                        )
                      )
                    )
                  )
                )
              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "to-cover adds To to all mail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cover_addresses \"To\" --to-cover\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "cc-cover adds Cc to all mail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_cover_addresses \"Cc\" --cc-cover\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "tocover adds To to all mail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config sendemail.tocover true &&\n"> <LIT_CHARS "\ttest_cover_addresses \"To\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "cccover adds Cc to all mail">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config sendemail.cccover true &&\n"> <LIT_CHARS "\ttest_cover_addresses \"Cc\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "escaped quotes in sendemail.aliasfiletype=mutt">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd \\\\\\\"Dot U. Sir\\\\\\\" <somebody@example.org>\" >.mutt &&\n"> <LIT_CHARS "\tgit config --replace-all sendemail.aliasesfile \"$(pwd)/.mutt\" &&\n"> <LIT_CHARS "\tgit config sendemail.aliasfiletype mutt &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=sbd \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\toutdir/0001-*.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!somebody@example\\.org!$\" commandline1 &&\n"> <LIT_CHARS "\tgrep -F \"To: \\\"Dot U. Sir\\\" <somebody@example.org>\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.aliasfiletype=mailrc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd  somebody@example.org\" >.mailrc &&\n"> <LIT_CHARS "\tgit config --replace-all sendemail.aliasesfile \"$(pwd)/.mailrc\" &&\n"> <LIT_CHARS "\tgit config sendemail.aliasfiletype mailrc &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=sbd \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\toutdir/0001-*.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!somebody@example\\.org!$\" commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "sendemail.aliasfile=~/.mailrc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd  someone@example.org\" >\"$HOME/.mailrc\" &&\n"> <LIT_CHARS "\tgit config --replace-all sendemail.aliasesfile \"~/.mailrc\" &&\n"> <LIT_CHARS "\tgit config sendemail.aliasfiletype mailrc &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to=sbd \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\toutdir/0001-*.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!someone@example\\.org!$\" commandline1\n">]})
  (FunctionDef test_dump_aliases []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('msg', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS shift]})
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('filetype', {[DQ [VarSub 1]]})])
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS shift]})
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "%s\\n">]} {[DQ [VarSub @]]}
                <
                (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
                >
              )
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS cat]}
                  <
                  (FilenameRedirectNode filename={[LIT_CHARS .tmp-email-aliases]} <REDIR_GREAT ">"> 1),
                  >
                )
                (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[DQ [VarSub msg]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tclean_fake_sendmail && rm -fr outdir &&\n"> <LIT_CHARS "\t\tgit config --replace-all sendemail.aliasesfile \\\n"> <LIT_CHARS "\t\t\t\"$(pwd)/.tmp-email-aliases\" &&\n"> <LIT_CHARS "\t\tgit config sendemail.aliasfiletype \"$filetype\" &&\n"> <LIT_CHARS "\t\tgit send-email --dump-aliases 2>errors >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_dump_aliases]} {[SQ <LIT_CHARS "--dump-aliases sendmail format">]} {[SQ <LIT_CHARS sendmail>]} {[SQ <LIT_CHARS abgroup>]} {[SQ <LIT_CHARS alice>]} {[SQ <LIT_CHARS bcgrp>]} {[SQ <LIT_CHARS bob>]} {[SQ <LIT_CHARS chloe>]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "alice: Alice W Land <awol@example.com>\n"] [LIT_CHARS "bob: Robert Bobbyton <bob@example.com>\n"] [LIT_CHARS "chloe: chloe@example.com\n"] [LIT_CHARS "abgroup: alice, bob\n"] [LIT_CHARS "bcgrp: bob, chloe, Other <o@example.com>\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_dump_aliases]} {[SQ <LIT_CHARS "--dump-aliases mutt format">]} {[SQ <LIT_CHARS mutt>]} {[SQ <LIT_CHARS alice>]} {[SQ <LIT_CHARS bob>]} {[SQ <LIT_CHARS chloe>]} {[SQ <LIT_CHARS donald>]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "alias alice Alice W Land <awol@example.com>\n"] [LIT_CHARS "alias donald Donald C Carlton <donc@example.com>\n"] [LIT_CHARS "alias bob Robert Bobbyton <bob@example.com>\n"] [LIT_CHARS "alias chloe chloe@example.com\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_dump_aliases]} {[SQ <LIT_CHARS "--dump-aliases mailrc format">]} {[SQ <LIT_CHARS mailrc>]} {[SQ <LIT_CHARS alice>]} {[SQ <LIT_CHARS bob>]} {[SQ <LIT_CHARS chloe>]} {[SQ <LIT_CHARS eve>]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "alias alice   Alice W Land <awol@example.com>\n"] [LIT_CHARS "alias eve     Eve <eve@example.com>\n"] [LIT_CHARS "alias bob     Robert Bobbyton <bob@example.com>\n"] [LIT_CHARS "alias chloe   chloe@example.com\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_dump_aliases]} {[SQ <LIT_CHARS "--dump-aliases pine format">]} {[SQ <LIT_CHARS pine>]} {[SQ <LIT_CHARS alice>]} {[SQ <LIT_CHARS bob>]} {[SQ <LIT_CHARS chloe>]} {[SQ <LIT_CHARS eve>]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "alice\tAlice W Land\t<awol@example.com>\n"] [LIT_CHARS "eve\tEve\t<eve@example.com>\n"] [LIT_CHARS "bob\tRobert\tBobbyton <bob@example.com>\n"] [LIT_CHARS "chloe\t\tchloe@example.com\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_dump_aliases]} {[SQ <LIT_CHARS "--dump-aliases gnus format">]} {[SQ <LIT_CHARS gnus>]} {[SQ <LIT_CHARS alice>]} {[SQ <LIT_CHARS bob>]} {[SQ <LIT_CHARS chloe>]} {[SQ <LIT_CHARS eve>]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "(define-mail-alias \"alice\" \"awol@example.com\")\n"] [LIT_CHARS "(define-mail-alias \"eve\" \"eve@example.com\")\n"] [LIT_CHARS "(define-mail-alias \"bob\" \"bob@example.com\")\n"] [LIT_CHARS "(define-mail-alias \"chloe\" \"chloe@example.com\")\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--dump-aliases must be used alone">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git send-email --dump-aliases --to=janice@example.com -1 refs/heads/accounting\n">]})
  (FunctionDef test_sendmail_aliases []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('msg', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS shift]})
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expect', {[DQ [VarSub @]]})])
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS cat]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS .tmp-email-aliases]} <REDIR_GREAT ">"> 1),
              >
            )
            (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[DQ [VarSub msg]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tclean_fake_sendmail && rm -fr outdir &&\n"> <LIT_CHARS "\t\tgit format-patch -1 -o outdir &&\n"> <LIT_CHARS "\t\tgit config --replace-all sendemail.aliasesfile \\\n"> <LIT_CHARS "\t\t\t\"$(pwd)/.tmp-email-aliases\" &&\n"> <LIT_CHARS "\t\tgit config sendemail.aliasfiletype sendmail &&\n"> <LIT_CHARS "\t\tgit send-email \\\n"> <LIT_CHARS "\t\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t\t--to=alice --to=bcgrp \\\n"> <LIT_CHARS "\t\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\t\toutdir/0001-*.patch \\\n"> <LIT_CHARS "\t\t\t2>errors >out &&\n"> <LIT_CHARS "\t\tfor i in $expect\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\tgrep \"^!$i!$\" commandline1 || return 1\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\t">]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_sendmail_aliases]} {[SQ <LIT_CHARS "sendemail.aliasfiletype=sendmail">]} {[SQ <LIT_CHARS "awol@example\\.com">]} {[SQ <LIT_CHARS "bob@example\\.com">]} {[SQ <LIT_CHARS "chloe@example\\.com">]} {[SQ <LIT_CHARS "o@example\\.com">]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "alice: Alice W Land <awol@example.com>\n"] [LIT_CHARS "bob: Robert Bobbyton <bob@example.com>\n"] [LIT_CHARS "# this is a comment\n"] [LIT_CHARS "   # this is also a comment\n"] [LIT_CHARS "chloe: chloe@example.com\n"] [LIT_CHARS "abgroup: alice, bob\n"] [LIT_CHARS "bcgrp: bob, chloe, Other <o@example.com>\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_sendmail_aliases]} {[SQ <LIT_CHARS "sendmail aliases line folding">]} {[LIT_CHARS alice1]} {[LIT_CHARS bob1]} {[LIT_CHARS bob2]} {[LIT_CHARS chuck1]} {[LIT_CHARS chuck2]} {[LIT_CHARS darla1]} {[LIT_CHARS darla2]} {[LIT_CHARS darla3]} {[LIT_CHARS elton1]} {[LIT_CHARS elton2]} {[LIT_CHARS elton3]} {[LIT_CHARS fred1]} {[LIT_CHARS fred2]} {[LIT_CHARS greg1]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "alice: alice1\n"] [LIT_CHARS "bob: bob1,\\\n"] [LIT_CHARS "bob2\n"] [LIT_CHARS "chuck: chuck1,\n"] [LIT_CHARS "    chuck2\n"] [LIT_CHARS "darla: darla1,\\\n"] [LIT_CHARS "darla2,\n"] [LIT_CHARS "    darla3\n"] [LIT_CHARS "elton: elton1,\n"] [LIT_CHARS "    elton2,\\\n"] [LIT_CHARS "elton3\n"] [LIT_CHARS "fred: fred1,\\\n"] [LIT_CHARS "    fred2\n"] [LIT_CHARS "greg: greg1\n"] [LIT_CHARS "bcgrp: bob, chuck, darla, elton, fred, greg\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_sendmail_aliases]} {[SQ <LIT_CHARS "sendmail aliases tolerate bogus line folding">]} {[LIT_CHARS alice1]} {[LIT_CHARS bob1]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "    alice: alice1\n"] [LIT_CHARS "bcgrp: bob1\\\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_sendmail_aliases]} {[SQ <LIT_CHARS "sendmail aliases empty">]} {[LIT_CHARS alice]} {[LIT_CHARS bcgrp]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "alias support in To header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd  someone@example.org\" >.mailrc &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasesfile \".mailrc\" &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasfiletype mailrc &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 --to=sbd >aliased.patch &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\taliased.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!someone@example\\.org!$\" commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "alias support in Cc header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd  someone@example.org\" >.mailrc &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasesfile \".mailrc\" &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasfiletype mailrc &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 --cc=sbd >aliased.patch &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\taliased.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!someone@example\\.org!$\" commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "tocmd works with aliases">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd  someone@example.org\" >.mailrc &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasesfile \".mailrc\" &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasfiletype mailrc &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >tocmd.patch &&\n"> <LIT_CHARS "\techo tocmd--sbd >>tocmd.patch &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--to-cmd=./tocmd-sed \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\ttocmd.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!someone@example\\.org!$\" commandline1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "cccmd works with aliases">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclean_fake_sendmail &&\n"> <LIT_CHARS "\techo \"alias sbd  someone@example.org\" >.mailrc &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasesfile \".mailrc\" &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasfiletype mailrc &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >cccmd.patch &&\n"> <LIT_CHARS "\techo cccmd--sbd >>cccmd.patch &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t\t--cc-cmd=./cccmd-sed \\\n"> <LIT_CHARS "\t\t--smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t\tcccmd.patch \\\n"> <LIT_CHARS "\t\t2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!someone@example\\.org!$\" commandline1\n">]})
  (FunctionDef do_xmailer_test []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expected', {[VarSub 1]}), ('params', {[VarSub 2]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS format-patch]} {[LIT_CHARS -1]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --from] [LIT_OTHER "="] [DQ [LIT_CHARS "Example <nobody@example.com>"]]} {[LIT_CHARS --to] [LIT_OTHER "="] [LIT_CHARS someone] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server] [LIT_OTHER "="] [DQ [ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /fake.sendmail]]} {[VarSub params]} {[LIT_CHARS 0001-] [LIT_OTHER "*"] [LIT_CHARS .patch]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS errors]} <REDIR_GREAT "2>"> 2),
            (FilenameRedirectNode filename={[LIT_CHARS out]} <REDIR_GREAT ">"> 1),
            >
          )
          (AndOr OP_AND_IF
            (AndOr OP_OR_IF
              (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "^X-Mailer:">]} {[LIT_CHARS out]})
              (Com {[LIT_OTHER ":"]})
            )
            (Com {[LIT_CHARS test_line_count]} {[LIT_OTHER "="]} {[VarSub expected]} {[LIT_CHARS mailer]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--[no-]xmailer without any configuration">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdo_xmailer_test 1 \"--xmailer\" &&\n"> <LIT_CHARS "\tdo_xmailer_test 0 \"--no-xmailer\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--[no-]xmailer with sendemail.xmailer=true">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config sendemail.xmailer true &&\n"> <LIT_CHARS "\tdo_xmailer_test 1 \"\" &&\n"> <LIT_CHARS "\tdo_xmailer_test 0 \"--no-xmailer\" &&\n"> <LIT_CHARS "\tdo_xmailer_test 1 \"--xmailer\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "--[no-]xmailer with sendemail.xmailer=false">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config sendemail.xmailer false &&\n"> <LIT_CHARS "\tdo_xmailer_test 0 \"\" &&\n"> <LIT_CHARS "\tdo_xmailer_test 0 \"--no-xmailer\" &&\n"> <LIT_CHARS "\tdo_xmailer_test 1 \"--xmailer\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expected-list">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <from@example.com>\" \\\n"> <LIT_CHARS "\t--to=\"To 1 <to1@example.com>\" \\\n"> <LIT_CHARS "\t--to=\"to2@example.com\" \\\n"> <LIT_CHARS "\t--to=\"to3@example.com\" \\\n"> <LIT_CHARS "\t--cc=\"Cc 1 <cc1@example.com>\" \\\n"> <LIT_CHARS "\t--cc=\"Cc2 <cc2@example.com>\" \\\n"> <LIT_CHARS "\t--bcc=\"bcc1@example.com\" \\\n"> <LIT_CHARS "\t--bcc=\"bcc2@example.com\" \\\n"> <LIT_CHARS "\t0001-add-master.patch | replace_variable_fields \\\n"> <LIT_CHARS "\t>expected-list\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "use email list in --cc --to and --bcc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <from@example.com>\" \\\n"> <LIT_CHARS "\t--to=\"To 1 <to1@example.com>, to2@example.com\" \\\n"> <LIT_CHARS "\t--to=\"to3@example.com\" \\\n"> <LIT_CHARS "\t--cc=\"Cc 1 <cc1@example.com>, Cc2 <cc2@example.com>\" \\\n"> <LIT_CHARS "\t--bcc=\"bcc1@example.com, bcc2@example.com\" \\\n"> <LIT_CHARS "\t0001-add-master.patch | replace_variable_fields \\\n"> <LIT_CHARS "\t>actual-list &&\n"> <LIT_CHARS "\ttest_cmp expected-list actual-list\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "aliases work with email list">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"alias to2 to2@example.com\" >.mutt &&\n"> <LIT_CHARS "\techo \"alias cc1 Cc 1 <cc1@example.com>\" >>.mutt &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasesfile \".mutt\" &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasfiletype mutt &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <from@example.com>\" \\\n"> <LIT_CHARS "\t--to=\"To 1 <to1@example.com>, to2, to3@example.com\" \\\n"> <LIT_CHARS "\t--cc=\"cc1, Cc2 <cc2@example.com>\" \\\n"> <LIT_CHARS "\t--bcc=\"bcc1@example.com, bcc2@example.com\" \\\n"> <LIT_CHARS "\t0001-add-master.patch | replace_variable_fields \\\n"> <LIT_CHARS "\t>actual-list &&\n"> <LIT_CHARS "\ttest_cmp expected-list actual-list\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "leading and trailing whitespaces are removed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"alias to2 to2@example.com\" >.mutt &&\n"> <LIT_CHARS "\techo \"alias cc1 Cc 1 <cc1@example.com>\" >>.mutt &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasesfile \".mutt\" &&\n"> <LIT_CHARS "\ttest_config sendemail.aliasfiletype mutt &&\n"> <LIT_CHARS "\tTO1=$(echo \"QTo 1 <to1@example.com>\" | q_to_tab) &&\n"> <LIT_CHARS "\tTO2=$(echo \"QZto2\" | qz_to_tab_space) &&\n"> <LIT_CHARS "\tCC1=$(echo \"cc1\" | append_cr) &&\n"> <LIT_CHARS "\tBCC1=$(echo \"Q bcc1@example.com Q\" | q_to_nul) &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"\tExample <from@example.com>\" \\\n"> <LIT_CHARS "\t--to=\"$TO1\" \\\n"> <LIT_CHARS "\t--to=\"$TO2\" \\\n"> <LIT_CHARS "\t--to=\"  to3@example.com   \" \\\n"> <LIT_CHARS "\t--cc=\"$CC1\" \\\n"> <LIT_CHARS "\t--cc=\"Cc2 <cc2@example.com>\" \\\n"> <LIT_CHARS "\t--bcc=\"$BCC1\" \\\n"> <LIT_CHARS "\t--bcc=\"bcc2@example.com\" \\\n"> <LIT_CHARS "\t0001-add-master.patch | replace_variable_fields \\\n"> <LIT_CHARS "\t>actual-list &&\n"> <LIT_CHARS "\ttest_cmp expected-list actual-list\n">]})
  (Com {[LIT_CHARS test_done]})
)