#!/usr/bin/env bash

test_description="emacs Original Message hiding"
. test-lib.sh

test_begin_subtest "Hiding an Original Message region at point-min"
add_message \
    '[id]="OriginalMessageHiding.1@notmuchmail.org"' \
    '[from]="Sender <sender@example.com>"' \
    '[to]=mailinglist@notmuchmail.org' \
    '[subject]="hiding an Original Message"' \
    '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
    '[body]="-----Original Message-----
Text here.
"'

cat > EXPECTED <<EOF
Sender <sender@example.com> (2010-01-05) (inbox)
Subject: hiding an Original Message
To: mailinglist@notmuchmail.org
Date: Tue, 05 Jan 2010 15:43:56 -0000

[ 2-line hidden original message. Click/Enter to show. ]

EOF

test_emacs '
(notmuch-test-run
 (let ((notmuch-show-insert-text/plain-hook (quote notmuch-wash-excerpt-citations)))
   (notmuch-show "id:\"OriginalMessageHiding.1@notmuchmail.org\"")
   (visible-buffer-string)))
'

test_expect_equal_file EXPECTED OUTPUT

test_done