blob: 8fafc3d5fa5edeadb3bf61c9f4a1c1195133eeb1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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/mutt-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";
|
