From 546a3a211a0d59f14edbd97c1990476e84a46247 Mon Sep 17 00:00:00 2001
From: Raul Benencia <rul@kalgan.cc>
Date: Sun, 24 May 2020 13:44:14 -0700
Subject: Add bin/ repo from home-bin/ repo

---
 bin/mutt-remember-mail | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 bin/mutt-remember-mail

(limited to 'bin/mutt-remember-mail')

diff --git a/bin/mutt-remember-mail b/bin/mutt-remember-mail
new file mode 100755
index 0000000..e9898f5
--- /dev/null
+++ b/bin/mutt-remember-mail
@@ -0,0 +1,23 @@
+#!/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/remember-mail\n"
+
+use strict;
+use Mail::Internet;
+use URI::Escape;
+
+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);
+my $note_body = uri_escape("  Subject: $subject\n  From: $from");
+
+exec "emacsclient", "-c", "org-protocol:/capture:/m/mutt:$mid/mail/$note_body";
-- 
cgit v1.2.3