#!/usr/bin/env bash

test_description="emacs forwarding"
. $(dirname "$0")/test-lib.sh || exit 1

test_begin_subtest "Forward setting the correct references header"
message_id='OriginalMessage@notmuchmail.org'
add_message \
    [id]="$message_id" \
    '[from]="user@example.com"' \
    '[subject]="This is the original message"' \
    '[body]="-----Original Message-----
Text here."'

test_emacs "(let ((message-hidden-headers ())
	          (notmuch-fcc-dirs ()))
	     (notmuch-show \"id:$message_id\")
	     (notmuch-show-forward-message)
             (run-hooks 'notmuch-mua-send-hook)
	     (message-narrow-to-headers)
	     (test-visible-output))
            (run-hooks 'notmuch-mua-send-hook)"

cat <<EOF >EXPECTED
From: Notmuch Test Suite <test_suite@notmuchmail.org>
To: 
Subject: [user@example.com] This is the original message
References: <$message_id>
EOF
test_expect_equal_file EXPECTED OUTPUT

test_begin_subtest "Forwarding adding the forwarded tag"
test_expect_equal $(notmuch search --output=messages tag:forwarded) id:$message_id

test_done