2 # written by Johannes Weißl
6 # This script makes mail indexers (like mairix, mu, nmzmail, or
7 # notmuch) together with mutt more useful.
9 # These search engines usually create a virtual maildir containing symbolic
10 # links to the original mails, which can be browsed using mutt.
11 # It would be optimal if mutt somehow knew that the two maildir entries
12 # identify the same mail, but this is not that easy (mail folder
13 # abstraction from different formats, no tight integration of mail indexers).
15 # So if one wants to rename (for setting/clearing flags), delete or edit the
16 # mails, it is only possible using the original mail. This (very simple)
17 # script helps to jump to this message, using e.g. this macro in .muttrc:
19 # macro generic ,j "<enter-command>push <pipe-message>muttjump<enter><enter>" "jump to original message"
21 # one of: mairix, mairix-git, mu, mu-old (mu < 0.7), nmzmail or notmuch (>0.5)
22 MUTTJUMP_INDEXER=${MUTTJUMP_INDEXER:-}
24 # "limit" or "search" (default)
25 MUTTJUMP_MODE=${MUTTJUMP_MODE:-search}
27 # "yes", "no" or "auto"
28 # If set to "auto", the $STY environment variable is used for auto detection.
29 MUTTJUMP_USE_SCREEN=${MUTTJUMP_USE_SCREEN:-auto}
32 # Set this to "yes" if you want exactly one screen window (with mutt running
33 # inside) per mailbox. With new versions of screen (> 4.00) it is possible
34 # to do that automatically, with old versions you have to start them
35 # manually! Setting this to yes implies MUTTJUMP_USE_SCREEN=yes.
36 MUTTJUMP_MULTI_SCREEN_MODE=${MUTTJUMP_MULTI_SCREEN_MODE:-no}
38 # function to create the screen window name from the full path of the mailbox
39 if ! type MUTTJUMP_SCREEN_WINDOW_NAME_MANGLE >/dev/null 2>&1 ; then
40 function MUTTJUMP_SCREEN_WINDOW_NAME_MANGLE () {
45 # Version of GNU screen
46 # Since 4.01.00devel (commit 98b6b41) backslash handling for -X was altered.
47 MUTTJUMP_SCREEN_VERSION=${MUTTJUMP_SCREEN_VERSION:-auto}
51 MAIRIX=${MAIRIX:-mairix}
53 NMZMAIL=${NMZMAIL:-nmzmail}
54 NOTMUCH=${NOTMUCH:-notmuch}
55 SCREEN=${SCREEN:-screen}
56 FORMAIL=${FORMAIL:-formail}
57 REFORMAIL=${REFORMAIL:-reformail}
58 WHIPTAIL=${WHIPTAIL:-whiptail --noitem}
59 DIALOG=${DIALOG:-dialog}
67 echo \'${1//\'/\'\\\'\'}\'
70 function quote_regexp () {
71 echo "$1" | sed 's/[][\^.$|)(*+?}{]/\\&/g'
74 function is_callable () {
75 type $1 >/dev/null 2>&1
79 awk '{ y = length(); if (y > x) x = y } END { print x }'
82 # Check if screen is new enough to parse -X (commit 98b6b41) and support
83 # -Q (commit 8147d08). It (falsely) assumes that screen version > 4.00
84 # does this. Distributions that use git versions are likely to also keep
86 function is_new_screen () {
87 sv=$MUTTJUMP_SCREEN_VERSION
88 if [ "$sv" = auto ] ; then
89 sv=$($SCREEN --version | awk '{print $3}')
91 echo "$sv" | grep -vq "^\(4\.00\|[0-3]\.\)"
97 cat msg | muttjump [-R]
99 This script calls mutt, jumping to the message given in stdin or to the message
100 identified by "msgid". With "-R", it jumps to the message being replied to.
101 It uses a mail search engine (currently mairix, mu and nmzmail are supported),
102 which has to be configured through MUTTJUMP_INDEXER variable.
107 function reopen_tty () {
108 # Close message-stdin and open terminal-stdin instead.
109 # mutt behaves different if STDIN is no terminal
110 # TODO: Find cleaner solution (e.g. mutt command-line argument?)
112 term="/dev/$(ps -p$$ -otty=)"
117 # Check command-line arguments and STDIN
118 search_header="Message-ID"
120 [ $# -ne 1 ] && usage
122 [ $# -gt 1 ] && usage
123 if [ $# -eq 1 ] ; then
124 [ "$1" != "-R" ] && usage
125 search_header="In-Reply-To"
130 # check if mutt is installed
131 if ! is_callable $MUTT ; then
132 die "$MUTT is not in PATH, set MUTT variable"
136 if is_callable $WHIPTAIL ; then
137 DIALOG_PROG=$WHIPTAIL
138 elif is_callable $DIALOG ; then
142 case $MUTTJUMP_MODE in
146 die "variable MUTTJUMP_MODE must be set to \"limit\" or \"search\""
150 # search for Message-ID in STDIN
151 if [ $# -eq 1 ] ; then
153 elif is_callable $FORMAIL ; then
154 msgid=$($FORMAIL -c -z -x $search_header | head -n1)
155 elif is_callable $REFORMAIL ; then
156 msgid=$($REFORMAIL -c -x $search_header: | head -n1)
158 msgid=$(sed -n 's/^'$search_header':[ \t]*\(.*\)/\1/Ip' | head -n1)
160 if [ -z "$msgid" ] ; then
161 die "could not find $search_header header in standard input"
163 msgid_quoted=$(quote_regexp "$msgid")
164 msgid_clean=$(echo "$msgid" | sed -e 's/^<//' -e 's/>$//')
166 # try to locate path of message using a mail search engine
167 case $MUTTJUMP_INDEXER in
169 orig_msgfiles=$($MAIRIX -r "m:$msgid_clean")
172 msgid_mairix=$msgid_clean
173 # mairix can't quote special characters (~,/=^) in search words. As a
174 # workaround, split Message-ID in 31-character long AND-linked
176 if echo "$msgid_clean" | grep -q '[~,/=^]' ; then
177 msgid_mairix=$(echo "$msgid_clean" | sed -e 's/[~,/=^]\+/ /g' \
178 -e 's/[^ ]\{31\}/& /g' -e 's/^ \+//g' -e 's/ *$/=/g' \
181 orig_msgfiles=$($MAIRIX -r "m:$msgid_mairix")
184 orig_msgfiles=$($MU find -f l "i:$msgid_clean" | grep -v "^\*\*")
187 orig_msgfiles=$($MU find -f p "m:$msgid_clean")
190 nmzmail_results=$(mktemp -d)
191 echo "+message-id:/^$msgid_quoted$/" | $NMZMAIL -r "$nmzmail_results"
192 orig_msgfiles=$(find "$nmzmail_results" -type l -exec readlink {} \;)
193 rm -rf "$nmzmail_results"
196 orig_msgfiles=$($NOTMUCH search --output=files "id:$msgid_clean")
199 die "variable MUTTJUMP_INDEXER not set or empty"
202 die "unknown mail index program \"$MUTTJUMP_INDEXER\""
206 if [ -z "$orig_msgfiles" ] ; then
207 die "no message with msgid $msgid found!"
210 count=$(echo "$orig_msgfiles" | wc -l)
211 if [ $count -gt 1 -a -n "$DIALOG_PROG" ] ; then
212 choices=$(echo "$orig_msgfiles" | while read line ;
213 do dirname "$(dirname "$line")" ; echo . ; done)
214 maxwidth=$(echo "$choices" | wc_L)
215 orig_maildir=$($DIALOG_PROG --clear --title "More than one mailbox found" \
216 --menu "Select mailbox:" $((count+8)) $((maxwidth+16)) \
217 $count $choices 3>&2 2>&1 1>&3-)
218 elif [ $count -gt 1 ] ; then
221 choices=("${choices[@]}" "$(dirname "$(dirname "$line")")")
222 done <<<"$orig_msgfiles"
223 echo "More than one mailbox found"
224 echo "Select mailbox:"
225 select md in "${choices[@]}" ; do
230 orig_msgfile=$orig_msgfiles
231 # get containing maildir of $orig_msgfile
232 orig_maildir=$(dirname "$(dirname "$orig_msgfile")")
235 if [ ! -d "$orig_maildir/cur" ] ; then
236 die "directory $(quote "$orig_maildir") doesn't exist or is no Maildir"
239 msgid_mutt=$(quote_regexp "$msgid_quoted")
240 jump_expr="~i'$msgid_mutt'"
241 jump_cmd="<limit>$jump_expr<enter>"
242 if [ "$MUTTJUMP_MODE" = search ] ; then
243 jump_cmd="$jump_cmd<limit>all<enter>"
246 if [ "$MUTTJUMP_MULTI_SCREEN_MODE" = yes ] ||
247 [ "$MUTTJUMP_USE_SCREEN" = auto -a -n "$STY" ] ; then
248 MUTTJUMP_USE_SCREEN=yes
253 if [ "$MUTTJUMP_USE_SCREEN" = yes ] ; then
254 if [ -n "$STY" ] ; then
255 screen_opts=("-X" "screen")
256 if is_new_screen ; then
257 jump_cmd=${jump_cmd/\\/\\\\\\}
258 screen_query_arg="-Q"
263 screen_window_name=$(MUTTJUMP_SCREEN_WINDOW_NAME_MANGLE "$orig_maildir")
264 screen_opts=("${screen_opts[@]}" "-t" "$screen_window_name")
270 if [ "$MUTTJUMP_MULTI_SCREEN_MODE" = yes -a -n "$STY" ] ; then
271 $SCREEN -X -p "$screen_window_name" $screen_query_arg \
272 select "$screen_window_name" >/dev/null
274 $SCREEN -X -p "$screen_window_name" stuff ":push \"$jump_cmd\"
\r"
279 # start mutt, open original folder and jump to the original message
280 $SCREEN "${screen_opts[@]}" $MUTT -f "$orig_maildir" -e "push \"$jump_cmd\""