escape '\' in git versions of GNU screen

[muttjump] / muttjump

diff --git a/muttjump b/muttjump
index 53a44bbe63e9bab6054c6976f2a10228eb134db1..6f5a1d394d271e24731d7e7f4579d05686aaa508 100755 (executable)
--- a/muttjump
+++ b/muttjump
@@ -43,6 +43,10 @@ if ! type MUTTJUMP_SCREEN_WINDOW_NAME_MANGLE >/dev/null 2>&1 ; then
     }
 fi
 
+# Version of GNU screen
+# Since 4.01.00 (commit d87a0d8) backslash handling was altered.
+MUTTJUMP_SCREEN_VERSION=${MUTTJUMP_SCREEN_VERSION:-auto}
+
 # program paths
 MUTT=${MUTT:-mutt}
 MAIRIX=${MAIRIX:-mairix}
@@ -63,10 +67,18 @@ function quote () {
     echo \'${1//\'/\'\\\'\'}\'
 }
 
+function quote_regexp () {
+    echo "$1" | sed 's/[][\^.$|)(*+?}{]/\\&/g'
+}
+
 function is_callable () {
     type $1 >/dev/null 2>&1
 }
 
+function wc_L () {
+    awk '{ y = length(); if (y > x) x = y } END { print x }'
+}
+
 function usage () {
     cat >&2 <<END
 Usage: muttjump msgid
@@ -142,12 +154,15 @@ 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)
+        msgid_mairix=$msgid_clean
         # mairix can't quote special characters (~,/=^) in search words. As a
         # workaround, split Message-ID in 31-character long AND-linked
         # substrings.
-        msgid_mairix=$(echo "$msgid_clean" | sed -e 's/[~,/=^]/=,/g' \
-            -e 's/.\{31\}/&=,/g' -e 's/^\(=,\)\+//g' -e 's/$/=/' \
-            -e 's/\(=,\|=\)\+$/=/g')
+        if echo "$msgid_clean" | grep -q '[~,/=^]' ; then
+            msgid_mairix=$(echo "$msgid_clean" | sed -e 's/[~,/=^]\+/ /g' \
+                -e 's/[^ ]\{31\}/& /g' -e 's/^ \+//g' -e 's/ *$/=/g' \
+                -e 's/ /=,/g')
+        fi
         orig_msgfiles=$($MAIRIX -r "m:$msgid_mairix")
         ;;
     mu)
@@ -158,7 +173,7 @@ case $MUTTJUMP_INDEXER in
         ;;
     nmzmail)
         nmzmail_results=$(mktemp -d)
-        echo "+message-id:$msgid" | $NMZMAIL -r "$nmzmail_results"
+        echo "+message-id:/^$msgid_quoted$/" | $NMZMAIL -r "$nmzmail_results"
         orig_msgfiles=$(find "$nmzmail_results" -type l -exec readlink {} \;)
         rm -rf "$nmzmail_results"
         ;;
@@ -178,7 +193,7 @@ count=$(echo "$orig_msgfiles" | wc -l)
 if [ $count -gt 1 -a -n "$DIALOG_PROG" ] ; then
     choices=$(echo "$orig_msgfiles" | while read line ;
         do dirname "$(dirname "$line")" ; echo . ; done)
-    maxwidth=$(echo "$choices" | wc -L)
+    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-)
@@ -203,7 +218,8 @@ if [ ! -d "$orig_maildir/cur" ] ; then
     die "directory $(quote "$orig_maildir") doesn't exist or is no Maildir"
 fi
 
-jump_expr="~i'$msgid'"
+msgid_mutt=$(quote_regexp "$msgid_quoted")
+jump_expr="~i'$msgid_mutt'"
 
 if [ "$MUTTJUMP_MULTI_SCREEN_MODE" = no ] ; then
 
@@ -220,6 +236,13 @@ if [ "$MUTTJUMP_MULTI_SCREEN_MODE" = no ] ; then
     if [ "$MUTTJUMP_USE_SCREEN" = yes ] ; then
         if [ -n "$STY" ] ; then
             screen_opts=("-X" "screen")
+            sv=$MUTTJUMP_SCREEN_VERSION
+            if [ "$sv" = auto ] ; then
+                sv=$($SCREEN --version | awk '{print $3}')
+            fi
+            if ! echo "$sv" | grep -q "^\(4\.00\|[0-3]\.\)" ; then
+                jump_cmd=${jump_cmd/\\/\\\\\\}
+            fi
         else
             reopen_tty
         fi