diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/mutt-open | 76 | ||||
| -rwxr-xr-x | bin/mutt-remember-mail | 37 |
2 files changed, 18 insertions, 95 deletions
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}' +]) |