(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 "echo \"1A quick brown fox jumps over the\" >file &&\n"> <LIT_CHARS "     echo \"lazy dog\" >>file &&\n"> <LIT_CHARS "     git add file &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"A\" git commit -a -m \"Initial.\"">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Setup helper tool">]} {[SQ <LIT_CHARS "(echo \"#!$SHELL_PATH\"\n"> <LIT_CHARS "      echo shift\n"> <LIT_CHARS "      echo output=1\n"> <LIT_CHARS "      echo \"while test -f commandline\\$output; do output=\\$((\\$output+1)); done\"\n"> <LIT_CHARS "      echo for a\n"> <LIT_CHARS "      echo do\n"> <LIT_CHARS "      echo \"  echo \\\"!\\$a!\\\"\"\n"> <LIT_CHARS "      echo \"done >commandline\\$output\"\n"> <LIT_CHARS "      test_have_prereq MINGW && echo \"dos2unix commandline\\$output\"\n"> <LIT_CHARS "      echo \"cat > msgtxt\\$output\"\n"> <LIT_CHARS "      ) >fake.sendmail &&\n"> <LIT_CHARS "     chmod +x ./fake.sendmail &&\n"> <LIT_CHARS "     git add fake.sendmail &&\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"A\" git commit -a -m \"Second.\"">]}  )
  (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 "    patches=`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_DBRACKET_LIKE "="] [DQ [LIT_CHARS "Example <from@example.com>"]]} {[LIT_CHARS --to] [LIT_DBRACKET_LIKE "="] [LIT_CHARS nobody] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server] [LIT_DBRACKET_LIKE "="] [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 "     git 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 "cat >expected <<\\EOF\n"> <LIT_CHARS "!nobody@example.com!\n"> <LIT_CHARS "!author@example.com!\n"> <LIT_CHARS "!one@example.com!\n"> <LIT_CHARS "!two@example.com!\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Verify commandline">]} {[SQ <LIT_CHARS "test_cmp expected commandline1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Send patches with --envelope-sender">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    clean_fake_sendmail &&\n"> <LIT_CHARS "     git send-email --envelope-sender=\"Patch Contributer <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 "cat >expected <<\\EOF\n"> <LIT_CHARS "!patch@example.com!\n"> <LIT_CHARS "!-i!\n"> <LIT_CHARS "!nobody@example.com!\n"> <LIT_CHARS "!author@example.com!\n"> <LIT_CHARS "!one@example.com!\n"> <LIT_CHARS "!two@example.com!\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Verify commandline">]} {[SQ <LIT_CHARS "test_cmp expected commandline1">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Send patches with --envelope-sender=auto">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    clean_fake_sendmail &&\n"> <LIT_CHARS "     git 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 "cat >expected <<\\EOF\n"> <LIT_CHARS "!nobody@example.com!\n"> <LIT_CHARS "!-i!\n"> <LIT_CHARS "!nobody@example.com!\n"> <LIT_CHARS "!author@example.com!\n"> <LIT_CHARS "!one@example.com!\n"> <LIT_CHARS "!two@example.com!\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "Verify commandline">]} {[SQ <LIT_CHARS "test_cmp expected commandline1">]}  )
  (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"]]}  )
  (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 \"Example <from@example.com>\"\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: Example <from@example.com>\\$\" msgtxt1 &&\n"> <LIT_CHARS "\t\tgrep \"^To: to@example.com\\$\" msgtxt1\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 "\t{\n"> <LIT_CHARS "\t  echo \"#!$SHELL_PATH\"\n"> <LIT_CHARS "\t  echo sed -n -e s/^tocmd--//p \\\"\\$1\\\"\n"> <LIT_CHARS "\t} > tocmd-sed &&\n"> <LIT_CHARS "\tchmod +x tocmd-sed &&\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 "\t{\n"> <LIT_CHARS "\t  echo \"#!$SHELL_PATH\"\n"> <LIT_CHARS "\t  echo sed -n -e s/^cccmd--//p \\\"\\$1\\\"\n"> <LIT_CHARS "\t} > cccmd-sed &&\n"> <LIT_CHARS "\tchmod +x cccmd-sed &&\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--novalidate \\\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) | env 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--nochain-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 "\t(echo \"#!$SHELL_PATH\" &&\n"> <LIT_CHARS "\t echo \"echo fake edit >>\\\"\\$1\\\"\"\n"> <LIT_CHARS "\t) >fake-editor &&\n"> <LIT_CHARS "\tchmod +x fake-editor\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 test_suppression []
    (AndOr OP_AND_IF
      (Pipeline
        (Com {[LIT_CHARS git]} {[LIT_CHARS send-email]} {[LIT_CHARS --dry-run]} {[LIT_CHARS --suppress-cc] [LIT_DBRACKET_LIKE "="] [VarSub 1]} {[VarSub 2 test_op=VS_TEST_PLUS {[DQ [LIT_CHARS "--suppress-cc="][VarSub 2]]}]} {[LIT_CHARS --from] [LIT_DBRACKET_LIKE "="] [DQ [LIT_CHARS "Example <from@example.com>"]]} {[LIT_CHARS --to] [LIT_DBRACKET_LIKE "="] [LIT_CHARS to] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server]} {[LIT_CHARS relay.example.com]} {[VarSub patches]}        )
        (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/"]]}
          <
          (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 "\techo echo cc-cmd@example.com > cccmd &&\n"> <LIT_CHARS "\tchmod +x cccmd &&\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_DBRACKET_LIKE "="] [DQ [LIT_CHARS "Example <nobody@example.com>"]]} {[LIT_CHARS --to] [LIT_DBRACKET_LIKE "="] [LIT_CHARS nobody] [LIT_OTHER "@"] [LIT_CHARS example.com]} {[LIT_CHARS --smtp-server] [LIT_DBRACKET_LIKE "="] [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 "\tCONFIRM=$(git config --get sendemail.confirm) &&\n"> <LIT_CHARS "\tgit config --unset sendemail.confirm &&\n"> <LIT_CHARS "\ttest_confirm\n"> <LIT_CHARS "\tret=\"$?\"\n"> <LIT_CHARS "\tgit config sendemail.confirm ${CONFIRM:-never}\n"> <LIT_CHARS "\ttest $ret = \"0\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm by default (due to --compose)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tCONFIRM=$(git config --get sendemail.confirm) &&\n"> <LIT_CHARS "\tgit config --unset sendemail.confirm &&\n"> <LIT_CHARS "\ttest_confirm --suppress-cc=all --compose\n"> <LIT_CHARS "\tret=\"$?\"\n"> <LIT_CHARS "\tgit config sendemail.confirm ${CONFIRM:-never}\n"> <LIT_CHARS "\ttest $ret = \"0\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm detects EOF (inform assumes y)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tCONFIRM=$(git config --get sendemail.confirm) &&\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"> <LIT_CHARS "\tret=\"$?\"\n"> <LIT_CHARS "\tgit config sendemail.confirm ${CONFIRM:-never}\n"> <LIT_CHARS "\ttest $ret = \"0\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm detects EOF (auto causes failure)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tCONFIRM=$(git config --get sendemail.confirm) &&\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"> <LIT_CHARS "\tret=\"$?\"\n"> <LIT_CHARS "\tgit config sendemail.confirm ${CONFIRM:-never}\n"> <LIT_CHARS "\ttest $ret = \"0\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "confirm doesnt loop forever">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tCONFIRM=$(git config --get sendemail.confirm) &&\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"> <LIT_CHARS "\tret=\"$?\"\n"> <LIT_CHARS "\tgit config sendemail.confirm ${CONFIRM:-never}\n"> <LIT_CHARS "\ttest $ret = \"0\"\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 "\t(echo \"#!$SHELL_PATH\" &&\n"> <LIT_CHARS "\t echo \"echo utf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa >>\\\"\\$1\\\"\"\n"> <LIT_CHARS "\t) >fake-editor-utf8 &&\n"> <LIT_CHARS "\tchmod +x fake-editor-utf8 &&\n"> <LIT_CHARS "\t  GIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8\\\"\" \\\n"> <LIT_CHARS "\t  git 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 "\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 "\t(echo \"#!$SHELL_PATH\" &&\n"> <LIT_CHARS "\t echo \"(echo MIME-Version: 1.0\"\n"> <LIT_CHARS "\t echo \" echo Content-Type: text/plain\\\\; charset=iso-8859-1\"\n"> <LIT_CHARS "\t echo \" echo Content-Transfer-Encoding: 8bit\"\n"> <LIT_CHARS "\t echo \" echo Subject: foo\"\n"> <LIT_CHARS "\t echo \" echo \"\n"> <LIT_CHARS "\t echo \" echo utf8 body: \u00e0\u00e9\u00ec\u00f6\u00fa) >\\\"\\$1\\\"\"\n"> <LIT_CHARS "\t) >fake-editor-utf8-mime &&\n"> <LIT_CHARS "\tchmod +x fake-editor-utf8-mime &&\n"> <LIT_CHARS "\t  GIT_EDITOR=\"\\\"$(pwd)/fake-editor-utf8-mime\\\"\" \\\n"> <LIT_CHARS "\t  git 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 "\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 "\t  GIT_EDITOR=\"\\\"$(pwd)/fake-editor\\\"\" \\\n"> <LIT_CHARS "\t  git send-email \\\n"> <LIT_CHARS "\t  --compose --subject utf8-s\u00fcbj\u00ebct \\\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 "\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  --to=nobody@example.com \\\n"> <LIT_CHARS "\t  --smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t  funny_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 "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--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\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--nothread \\\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--nothread \\\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--nochain-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 "warning with an implicit --chain-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\toutdir/000?-*.patch 2>errors >out &&\n"> <LIT_CHARS "\tgrep \"no-chain-reply-to\" errors\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "no warning with an explicit --chain-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t--chain-reply-to \\\n"> <LIT_CHARS "\toutdir/000?-*.patch 2>errors >out &&\n"> <LIT_CHARS "\t! grep \"no-chain-reply-to\" errors\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "no warning with an explicit --no-chain-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\t--nochain-reply-to \\\n"> <LIT_CHARS "\toutdir/000?-*.patch 2>errors >out &&\n"> <LIT_CHARS "\t! grep \"no-chain-reply-to\" errors\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "no warning with sendemail.chainreplyto = false">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config sendemail.chainreplyto false &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\toutdir/000?-*.patch 2>errors >out &&\n"> <LIT_CHARS "\t! grep \"no-chain-reply-to\" errors\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "no warning with sendemail.chainreplyto = true">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config sendemail.chainreplyto true &&\n"> <LIT_CHARS "\tgit send-email \\\n"> <LIT_CHARS "\t--dry-run \\\n"> <LIT_CHARS "\t--from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t--to=nobody@example.com \\\n"> <LIT_CHARS "\toutdir/000?-*.patch 2>errors >out &&\n"> <LIT_CHARS "\t! grep \"no-chain-reply-to\" errors\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 "cat >content-type-decl <<EOF\n"> <LIT_CHARS "MIME-Version: 1.0\n"> <LIT_CHARS "Content-Type: text/plain; charset=UTF-8\n"> <LIT_CHARS "Content-Transfer-Encoding: 8bit\n"> <LIT_CHARS "EOF\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 "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: Dieser Betreff enth\u00e4lt auch einen Umlaut!\n"> <LIT_CHARS "\n"> <LIT_CHARS "Nothing to see here.\n"> <LIT_CHARS "EOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[VarSub PREREQ]} {[SQ <LIT_CHARS "setup expect">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "cat >expected <<EOF\n"> <LIT_CHARS "Subject: =?UTF-8?q?Dieser=20Betreff=20enth=C3=A4lt=20auch=20einen=20Umlaut!?=\n"> <LIT_CHARS "EOF\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 "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  --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  outdir/0002-*.patch \\\n"> <LIT_CHARS "\t  outdir/0000-*.patch \\\n"> <LIT_CHARS "\t  outdir/0001-*.patch \\\n"> <LIT_CHARS "\t  2>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  --force \\\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  outdir/0002-*.patch \\\n"> <LIT_CHARS "\t  outdir/0000-*.patch \\\n"> <LIT_CHARS "\t  outdir/0001-*.patch \\\n"> <LIT_CHARS "\t  2>errors >out &&\n"> <LIT_CHARS "\t! grep \"SUBJECT HERE\" errors &&\n"> <LIT_CHARS "\ttest -n \"$(ls msgtxt*)\"\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  --from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t  --to=sbd \\\n"> <LIT_CHARS "\t  --smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t  outdir/0001-*.patch \\\n"> <LIT_CHARS "\t  2>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\" >~/.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  --from=\"Example <nobody@example.com>\" \\\n"> <LIT_CHARS "\t  --to=sbd \\\n"> <LIT_CHARS "\t  --smtp-server=\"$(pwd)/fake.sendmail\" \\\n"> <LIT_CHARS "\t  outdir/0001-*.patch \\\n"> <LIT_CHARS "\t  2>errors >out &&\n"> <LIT_CHARS "\tgrep \"^!someone@example\\.org!$\" commandline1\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)