diff options
| -rwxr-xr-x | mailto-mutt | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/mailto-mutt b/mailto-mutt new file mode 100755 index 0000000..ed512ee --- /dev/null +++ b/mailto-mutt @@ -0,0 +1,101 @@ +#!/bin/sh +exec $TERMINAL -e mutt "$@" +#!/usr/bin/env perl + +# mutt-mailto - use Mutt on mailto URIs, e.g. with browsers like Firefox +# Copyright 2005-2020 Vincent Lefevre <vincent@vinc17.net>. + +# To use this script with Firefox, at least under GNU/Linux, open the +# Preferences -> Applications dialog, and for "mailto" content type, +# choose "Use other..." and select this script. +# Note: after that, the mimeTypes.rdf file in the Firefox profile +# should contain something like: +# <RDF:Description RDF:about="urn:handler:local:/path/to/mutt-mailto" +# NC:prettyName="mutt-mailto" NC:path="/path/to/mutt-mailto"/> +# <RDF:Description RDF:about="urn:scheme:externalApplication:mailto" +# NC:prettyName="mutt-mailto" NC:path="/path/to/mutt-mailto"/> + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License along +# with this program; if not, write to the Free Software Foundation, Inc., +# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. + +# History: +# 2005-01-14 Initial version. +# 2006-02-17 If not in a terminal, use emacs instead of uxterm. +# 2009-02-18 If not in a terminal, force UTF-8. +# 2009-05-22 If provided body, use /dev/fd or File::Temp instead of /proc. +# 2020-05-06 When forcing UTF-8: replaced "en_US.UTF-8" by "C.UTF-8". + +use strict; +use Fcntl qw/F_SETFD/; +use IO::Handle; +use URI; + +my ($proc) = '$Id: mutt-mailto 127329 2020-05-06 13:55:16Z vinc17/zira $' + =~ /^.Id: (\S+) / or die; + +$ARGV[0] =~ /^mailto:/ or die "Usage: $proc <mailtoURI>\n"; + +my $u = URI->new($ARGV[0]); +my %headers = $u->headers; +my $to = $u->to; +my @cmd = -t STDIN ? qw/mutt/ : + qw/%ENV{'TERMINAL'} -e mutt -e autoedit=yes/; +# qw/env LC_CTYPE=C.UTF-8 LC_CHARMAP=UTF-8 emacs -l emacs-mutt.el/; +# (qw/uxterm +sb -sl 0 -n mutt-mailto -T/, "Mutt $to", qw/-e mutt/); +my $body; +while (my ($k,$v) = each %headers) + { + lc($k) eq 'bcc' and push @cmd, '-b', $v; + lc($k) eq 'cc' and push @cmd, '-c', $v; + lc($k) eq 'subject' and push @cmd, '-s', $v; + lc($k) eq 'body' and $body = $v; + } + +if ($body ne '') + { + chomp $body; + open TMP, '>', undef + or die "$proc: can't create temporary file\n$!\n"; + autoflush TMP 1; + print TMP "$body\n" + or die "$proc: can't print to temporary file\n$!\n"; + fcntl(TMP, F_SETFD, 0) + or die "$proc: can't clear close-on-exec flag on temporary file\n$!\n"; + my $fname = "/dev/fd/".fileno(TMP); + open FILE, $fname + or die "$proc: can't reopen temporary file\n$!\n"; + my $empty = <FILE> eq ''; + close FILE; + my $tmp; + if ($empty) # occurs under Mac OS X Tiger + { + # Fallback to File::Temp (the temporary file is visible and + # will not be destroyed if mutt-mailto is killed). + require File::Temp; + $tmp = File::Temp->new(); + $fname = $tmp->filename; + open TMP, '>', $fname + or die "$proc: can't create temporary file\n$!\n"; + print TMP "$body\n" + or die "$proc: can't print to temporary file\n$!\n"; + } + system @cmd, '-i', $fname, $to; + close TMP or die "$proc: can't close temporary file\n$!\n"; + } +else + { exec @cmd, $to } + +# Test on: +# mailto:a1@x?To=a2@x&Cc=a3@x&Bcc=a4@x&Subject=mailto%20test +# mailto:a1@x?To=a2@x&Cc=a3@x&Bcc=a4@x&Subject=mailto%20test&body=The%20body. |