threadm - localbin - leot's localbin (~/bin)
 (HTM) hg clone https://bitbucket.org/iamleot/localbin
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
       hreadm
       ---
            1 #!/bin/sh
            2 
            3 if [ -z "$1" ]; then
            4         arg="cur"
            5 else
            6         arg="$1"
            7 fi
            8 
            9 awk -f- <<EOF
           10 BEGIN {
           11         "scan -width 2048 -format '%(msg) %{message-id} %{references}' $arg" | getline
           12         msg = \$1
           13         messageid = \$2
           14         cmd = sprintf("pick")
           15         cmd = cmd sprintf(" --message-id '%s' -or --references '%s'", messageid, messageid)
           16         for (i = 3; i <= NF; i++) {
           17                 references = \$i
           18                 cmd = cmd sprintf(" -or --message-id '%s' -or --references '%s'", references, references)
           19         }
           20         cmd = cmd sprintf(" '%s':-200 '%s':200", msg, msg)
           21         system("scan \`" cmd "\`")
           22         exit(0)
           23 }
           24 EOF