#!/bin/sh
######################################################
#
# Test RFC2047 decoding the header in replgroupcomps
#
######################################################

export LC_CTYPE=en_US.utf8

# create message with RFC 2047-encoded header
msg=11
cat > $MH_TEST_DIR/Mail/inbox/$msg <<EOF
From: =?utf-8?B?VMO2bSDDmHJsZXk=?= <address@hidden>
Return-Path: test <failed>
To: Some User <address@hidden>
Date: Fri, 29 Sep 2006 00:00:00
Subject: decode test

This is decode test message.
EOF

# create test replgroupcomps that decodes headers
form=$MH_TEST_DIR/$$.replgroupcomps
cat > $form <<EOF
%(lit)%(formataddr(decode{mail-followup-to}))\
%<(nonnull)%(void(width))%(putaddr To: )\n\
%|\
%(lit)%(formataddr %<(decode{mail-reply-to})%?(decode{reply-to})%?(decode{from})%?(decode{sender})%?(decode{return-path})%>)\
%<(nonnull)%(void(width))%(putaddr To: )\n%>\
%(lit)%(formataddr(decode{to}))%(formataddr(decode{cc}))%(formataddr(me))\
%<(nonnull)%(void(width))%(putaddr cc: )\n%>%>\
%;
--------
EOF

expected=$MH_TEST_DIR/$$.expected
actual=$MH_TEST_DIR/Mail/draft

cat > $expected <<EOF
To: Töm Ørley <address@hidden>
cc: Some User <address@hidden>
--------
Töm Ørley writes:
> This is decode test message.
EOF

repl -editor true -format -form $form -group -nocc me -nowhatnowproc $msg

diff -u $expected $actual