From 12f901918176be62fbe8565f0d5690ee315a5c08 Mon Sep 17 00:00:00 2001
From: Raul Benencia <id@rbenencia.name>
Date: Sun, 31 Jul 2022 15:56:57 -0700
Subject: mail: notmuch-search

---
 bin/mutt-open          | 76 --------------------------------------------------
 bin/mutt-remember-mail | 37 ++++++++++++------------
 2 files changed, 18 insertions(+), 95 deletions(-)
 delete mode 100755 bin/mutt-open

(limited to 'bin')

diff --git a/bin/mutt-open b/bin/mutt-open
deleted file mode 100755
index 0b21261..0000000
--- a/bin/mutt-open
+++ /dev/null
@@ -1,76 +0,0 @@
-#!/bin/bash
-#
-# Fire up mutt on a given mail, located in some Maildir
-# Mail can be specified either by path or by Messsage-ID; in the latter case
-# file lookup is performed using some mail indexing tool.
-#
-# Copyright: © 2009-2014 Stefano Zacchiroli <zack@upsilon.cc>
-# License: GNU General Public License (GPL), version 3 or above
-
-# requires: notmuch | maildir-utils >= 0.7
-
-MUTT="neomutt"
-MAIL_INDEXER="notmuch"	# one of "notmuch", "mu"
-export NOTMUCH_CONFIG=$HOME/te/etc/notmuch-config
-
-MUTT_FLAGS="-R  -F ~/te/etc/muttrc"
-HIDE_SIDEBAR_CMD="B"	# set to empty string if sidebar is not used
-
-# Sample output of lookup command, which gets passed to mutt-open
-#  /home/zack/Maildir/INBOX/cur/1256673179_0.8700.usha,U=37420,FMD5=7e33429f656f1e6e9d79b29c3f82c57e:2,S
-
-die_usage () {
-    echo "Usage: mutt-open FILE" 1>&2
-    echo "       mutt-open MESSAGE-ID" 1>&2
-    echo 'E.g.:  mutt-open `notmuch search --output=files id:MESSAGE-ID`' 1>&2
-    echo '       mutt-open `mu find -f l i:MESSAGE-ID`' 1>&2
-    echo '       mutt-open 20091030112543.GA4230@usha.takhisis.invalid' 1>&2
-    exit 3
-}
-
-# Lookup: Message-ID -> mail path. Store results in global $fname
-lookup_msgid () {
-    msgid_query="$1"
-    case "$MAIL_INDEXER" in
-	notmuch)
-	    fname=$(notmuch search --output=files id:"$msgid_query" | head -n 1)
-	    ;;
-	mu)
-	    fname=$(mu find -f l i:"$msgid_query" | head -n 1)
-	    ;;
-    esac
-}
-
-dump_info () {
-    echo "fname: $fname"
-    echo "msgid: $msgid"
-}
-
-if [ -z "$1" -o "$1" = "-h" -o "$1" = "-help" -o "$1" = "--help" ] ; then
-    die_usage
-fi
-if (echo "$1" | grep -q /) && test -f "$1" ; then	# arg is a file
-    fname="$1"
-    msgid=$(egrep -i '^message-id:' "$fname" | cut -f 2 -d':' | sed 's/[ <>]//g')
-elif ! (echo "$1" | grep -q /) ; then	# arg is a Message-ID
-    msgid="$1"
-    lookup_msgid "$msgid"	# side-effect: set $fname
-fi
-# dump_info ; exit 3
-if ! dirname "$fname" | egrep -q '/(cur|new|tmp)$' ; then
-    echo "Path not pointing inside a maildir: $fname" 1>&2
-    exit 2
-fi
-maildir=$(dirname $(dirname "$fname"))
-
-if ! [ -d "$maildir" ] ; then
-    echo "Not a (mail)dir: $maildir" 1>&1
-    exit 2
-fi
-
-# UGLY HACK: without sleep, push keys do not reach mutt, I _guess_ that there
-# might be some terminal-related issue here, since also waiting for an input
-# with "read" similarly "solves" the problem
-sleep 0.5
-mutt_keys="/=i$msgid\n\n$HIDE_SIDEBAR_CMD"
-exec $MUTT $MUTT_FLAGS -f "$maildir/" -e "push $mutt_keys"
diff --git a/bin/mutt-remember-mail b/bin/mutt-remember-mail
index ba5b322..6113e7a 100755
--- a/bin/mutt-remember-mail
+++ b/bin/mutt-remember-mail
@@ -1,22 +1,21 @@
-#!/usr/bin/perl -w
-#
-# Helper for mutt to remember mails in Emacs' Org mode
-#
-# Copyright: © 2009-2010 Stefano Zacchiroli <zack@upsilon.cc> 
-# License: GNU General Public License (GPL), version 3 or above
-#
-# Example of mutt macro to invoke this hitting ESC-R (to be put in ~/.muttrc):
-#  macro index \eR "|~/bin/mutt-remember-mail\n"
+#!/usr/bin/env python3
 
-use strict;
-use Mail::Internet;
-use URI::Escape;
+import sys
+import email
+import subprocess
+import urllib.parse
 
-my $msg = Mail::Internet->new(\*STDIN);
-$msg->head->get('message-id') =~ /^<(.*)>$/;
-my $mid = $1;
-my $subject = $msg->head->get('subject') || "";
-my $from = $msg->head->get('from') || "";
-chomp ($subject, $from);
+# Parse the email from standard input
+message_bytes = sys.stdin.buffer.read()
+message = email.message_from_bytes(message_bytes)
 
-exec "emacsclient", "-c", "org-protocol://capture?template=m&url=mutt://$mid&title=$subject from $from";
+# Grab the relevant message headers
+message_id = urllib.parse.quote(message['message-id'][1:-1])
+subject = message['subject']
+h_from = message['from']
+
+# Ask emacsclient to save a link to the message
+subprocess.Popen([
+    'emacsclient', '-c',
+    f'org-protocol://capture?template=m&url=message://id:{message_id}&title={subject} from {h_from}'
+])
-- 
cgit v1.2.3