SCREEN=${SCREEN:-screen}
FORMAIL=${FORMAIL:-formail}
REFORMAIL=${REFORMAIL:-reformail}
+WHIPTAIL=${WHIPTAIL:-whiptail --noitem}
+DIALOG=${DIALOG:-dialog}
function die () {
echo -e >&2 "$0: $1"
type $1 >/dev/null 2>&1
}
-# Check command-line arguments and STDIN
-if tty -s || [ $# -ne 0 ] ; then
+function usage () {
cat >&2 <<END
-Usage: $0 < msg
+Usage: muttjump msgid
+ cat msg | muttjump [-R]
-This script calls mutt, jumping to the message given in stdin.
-Uses a mail search engine (currently mairix, mu and nmzmail are supported),
+This script calls mutt, jumping to the message given in stdin or to the message
+identified by "msgid". With "-R", it jumps to the message being replied to.
+It uses a mail search engine (currently mairix, mu and nmzmail are supported),
which has to be configured through MUTTJUMP_INDEXER variable.
END
exit 1
+}
+
+
+# Check command-line arguments and STDIN
+search_header="Message-ID"
+if tty -s ; then
+ [ $# -ne 1 ] && usage
+else
+ [ $# -gt 1 ] && usage
+ if [ $# -eq 1 ] ; then
+ [ "$1" != "-R" ] && usage
+ search_header="In-Reply-To"
+ shift
+ fi
fi
# check if mutt is installed
die "$MUTT is not in PATH, set MUTT variable"
fi
+DIALOG_PROG=""
+if is_callable $WHIPTAIL ; then
+ DIALOG_PROG=$WHIPTAIL
+elif is_callable $DIALOG ; then
+ DIALOG_PROG=$DIALOG
+fi
+
case $MUTTJUMP_MODE in
limit|search)
;;
esac
# search for Message-ID in STDIN
-if is_callable $FORMAIL ; then
- msgid=$($FORMAIL -c -z -x Message-ID | head -n1)
+if [ $# -eq 1 ] ; then
+ msgid=$1
+elif is_callable $FORMAIL ; then
+ msgid=$($FORMAIL -c -z -x $search_header | head -n1)
elif is_callable $REFORMAIL ; then
- msgid=$($REFORMAIL -c -x Message-ID: | head -n1)
+ msgid=$($REFORMAIL -c -x $search_header: | head -n1)
else
- msgid=$(sed -n 's/^Message-ID:[ \t]*\(.*\)/\1/Ip' | head -n1)
+ msgid=$(sed -n 's/^'$search_header':[ \t]*\(.*\)/\1/Ip' | head -n1)
fi
if [ -z "$msgid" ] ; then
- die "could not find Message-ID header in standard input"
+ die "could not find $search_header header in standard input"
fi
-msgid_clean=$(echo "$msgid" | sed 's/^<\(.*\)>$/\1/')
+msgid_clean=$(echo "$msgid" | sed -e 's/^<//' -e 's/>$//')
# try to locate path of message using a mail search engine
case $MUTTJUMP_INDEXER in
mairix)
- orig_msgfile=$($MAIRIX -r "m:$msgid_clean" | head -n1)
+ orig_msgfiles=$($MAIRIX -r "m:$msgid_clean")
;;
mu)
- orig_msgfile=$($MU find -f l "i:$msgid_clean" |
- grep -v "^\*\*" | head -n1)
+ orig_msgfiles=$($MU find -f l "i:$msgid_clean" | grep -v "^\*\*")
;;
mu-old)
- orig_msgfile=$($MU find -f p "m:$msgid_clean" | head -n1)
+ orig_msgfiles=$($MU find -f p "m:$msgid_clean")
;;
nmzmail)
nmzmail_results=$(mktemp -d)
- echo "+message-id:$msgid" | $NMZMAIL -n 1 -r "$nmzmail_results"
- msgfile=$(find "$nmzmail_results" -type l | head -n1)
- orig_msgfile=$(readlink "$msgfile")
+ echo "+message-id:$msgid" | $NMZMAIL -r "$nmzmail_results"
+ orig_msgfiles=$(find "$nmzmail_results" -type l -exec readlink {} \;)
rm -rf "$nmzmail_results"
;;
"")
;;
esac
-if [ -z "$orig_msgfile" -o ! -e "$orig_msgfile" ] ; then
+if [ -z "$orig_msgfiles" ] ; then
die "no message with msgid $msgid found!"
fi
-# get containing maildir of $orig_msgfile
-orig_maildir=$(dirname "$(dirname "$orig_msgfile")")
+count=$(echo "$orig_msgfiles" | wc -l)
+if [ $count -gt 1 -a -n "$DIALOG_PROG" ] ; then
+ choices=$(echo "$orig_msgfiles" | while read line ;
+ do echo -e "$(dirname "$(dirname "$line")")\n." ; done)
+ maxwidth=$(echo "$choices" | wc -L)
+ orig_maildir=$($DIALOG_PROG --clear --title "More than one mailbox found" \
+ --menu "Select mailbox:" $((count+8)) $((maxwidth+16)) \
+ $count $choices 3>&2 2>&1 1>&3-)
+else
+ orig_msgfile=$(echo "$orig_msgfiles" | head -n1)
+ # get containing maildir of $orig_msgfile
+ orig_maildir=$(dirname "$(dirname "$orig_msgfile")")
+fi
+
if [ ! -d "$orig_maildir/cur" ] ; then
die "directory $(quote "$orig_maildir") doesn't exist or is no Maildir"
fi