bye bye mutt <3
This commit is contained in:
parent
788610cb38
commit
bf3be97acc
GPG Key ID:
E83C743C1FC2F79A
@ -1 +0,0 @@
|
|||||||
text/html; lynx -assume_charset=%{charset} -display_charset=utf-8 -dump %s; nametemplate=%s.html; copiousoutput
|
|
||||||
47
mutt/.muttrc
47
mutt/.muttrc
@ -1,47 +0,0 @@
|
|||||||
set my_name = "Tobias Manske"
|
|
||||||
|
|
||||||
source "gpg -d ~/.config/.mutt.mailboxes.gpg |"
|
|
||||||
|
|
||||||
set folder=imaps://imap.mailbox.org:993/
|
|
||||||
set spoolfile=+INBOX
|
|
||||||
mailboxes =INBOX =INBOX/Freelance =INBOX/KIT =INBOX/Github =INBOX/Finanzen =INBOX/Archiv =Spam =Sent
|
|
||||||
set header_cache = ~/.cache/mutt
|
|
||||||
unset imap_passive
|
|
||||||
set imap_keepalive = 300
|
|
||||||
set mail_check = 20
|
|
||||||
set editor = vim
|
|
||||||
|
|
||||||
set record = +Sent
|
|
||||||
|
|
||||||
# Keybindings
|
|
||||||
bind pager j next-line
|
|
||||||
bind pager k previous-line
|
|
||||||
bind attach,index,pager \CD next-page
|
|
||||||
bind attach,index,pager \CU previous-page
|
|
||||||
bind pager g top
|
|
||||||
bind pager G bottom
|
|
||||||
bind attach,index g first-entry
|
|
||||||
bind attach,index G last-entry
|
|
||||||
|
|
||||||
# GPG
|
|
||||||
source ~/.dotfiles/mutt/gpg.rc
|
|
||||||
|
|
||||||
# HTML
|
|
||||||
set implicit_autoview
|
|
||||||
# rest is handled in .mailcap
|
|
||||||
|
|
||||||
# Sidebar
|
|
||||||
set sidebar_visible = yes
|
|
||||||
bind index u sidebar-prev
|
|
||||||
bind index i sidebar-next
|
|
||||||
bind index o sidebar-open
|
|
||||||
|
|
||||||
# Colors
|
|
||||||
color index yellow default '.*'
|
|
||||||
color index_author red default '.*'
|
|
||||||
color index_number blue default
|
|
||||||
# color index_subject cyan default '.s'
|
|
||||||
color index_size green default
|
|
||||||
color normal default default
|
|
||||||
color body brightred default [\-\.+_a-zA-Z0-9]+
|
|
||||||
color body brightblue default (https?|ftp)://[\-\.,/%~_:?&=\#a-zA-Z0-9]+
|
|
||||||
129
mutt/gpg.rc
129
mutt/gpg.rc
@ -1,129 +0,0 @@
|
|||||||
# -*-muttrc-*-
|
|
||||||
#
|
|
||||||
# Command formats for gpg.
|
|
||||||
#
|
|
||||||
# Version notes:
|
|
||||||
#
|
|
||||||
# GPG 2.1 introduces the option "--pinentry-mode", which requires
|
|
||||||
# the "loopback" argument in instances where "--passphrase-fd" is
|
|
||||||
# used.
|
|
||||||
#
|
|
||||||
# Some of the older commented-out versions of the commands use gpg-2comp from:
|
|
||||||
# http://70t.de/download/gpg-2comp.tar.gz
|
|
||||||
#
|
|
||||||
# %p The empty string when no passphrase is needed,
|
|
||||||
# the string "PGPPASSFD=0" if one is needed.
|
|
||||||
#
|
|
||||||
# This is mostly used in conditional % sequences.
|
|
||||||
#
|
|
||||||
# %f Most PGP commands operate on a single file or a file
|
|
||||||
# containing a message. %f expands to this file's name.
|
|
||||||
#
|
|
||||||
# %s When verifying signatures, there is another temporary file
|
|
||||||
# containing the detached signature. %s expands to this
|
|
||||||
# file's name.
|
|
||||||
#
|
|
||||||
# %a In "signing" contexts, this expands to the value of the
|
|
||||||
# configuration variable $pgp_sign_as, if set, otherwise
|
|
||||||
# $pgp_default_key. You probably need to
|
|
||||||
# use this within a conditional % sequence.
|
|
||||||
#
|
|
||||||
# %r In many contexts, neomutt passes key IDs to pgp. %r expands to
|
|
||||||
# a list of key IDs.
|
|
||||||
|
|
||||||
# Section A: Key Management
|
|
||||||
|
|
||||||
# The default key for encryption (used by $pgp_self_encrypt and
|
|
||||||
# $postpone_encrypt).
|
|
||||||
#
|
|
||||||
# It will also be used for signing unless $pgp_sign_as is set to a
|
|
||||||
# key.
|
|
||||||
#
|
|
||||||
# Unless your key does not have encryption capability, uncomment this
|
|
||||||
# line and replace the keyid with your own.
|
|
||||||
#
|
|
||||||
# set pgp_default_key="0x12345678"
|
|
||||||
|
|
||||||
# If you have a separate signing key, or your key _only_ has signing
|
|
||||||
# capability, uncomment this line and replace the keyid with your
|
|
||||||
# signing keyid.
|
|
||||||
#
|
|
||||||
# set pgp_sign_as="0x87654321"
|
|
||||||
|
|
||||||
|
|
||||||
# Section B: Commands
|
|
||||||
|
|
||||||
# Note that we explicitly set the comment armor header since GnuPG, when used
|
|
||||||
# in some localiaztion environments, generates 8bit data in that header, thereby
|
|
||||||
# breaking PGP/MIME.
|
|
||||||
|
|
||||||
# decode application/pgp
|
|
||||||
#
|
|
||||||
set pgp_decode_command="gpg --status-fd=2 %?p?--pinentry-mode loopback --passphrase-fd 0? --no-verbose --quiet --batch --output - %f"
|
|
||||||
|
|
||||||
# Verify a signature
|
|
||||||
#
|
|
||||||
set pgp_verify_command="gpg --status-fd=2 --no-verbose --quiet --batch --output - --verify %s %f"
|
|
||||||
|
|
||||||
# Decrypt an attachment
|
|
||||||
#
|
|
||||||
set pgp_decrypt_command="gpg --status-fd=2 %?p?--pinentry-mode loopback --passphrase-fd 0? --no-verbose --quiet --batch --output - --decrypt %f"
|
|
||||||
|
|
||||||
# Create a PGP/MIME signed attachment
|
|
||||||
#
|
|
||||||
# set pgp_sign_command="gpg-2comp --comment '' --no-verbose --batch --output - %?p?--passphrase-fd 0? --armor --detach-sign --textmode %?a?-u %a? %f"
|
|
||||||
#
|
|
||||||
set pgp_sign_command="gpg %?p?--pinentry-mode loopback --passphrase-fd 0? --no-verbose --batch --quiet --output - --armor --textmode %?a?--local-user %a? --detach-sign %f"
|
|
||||||
|
|
||||||
# Create a application/pgp inline signed message. This style is obsolete but still needed for Hushmail recipients and some MUAs.
|
|
||||||
#
|
|
||||||
# set pgp_clearsign_command="gpg-2comp --comment '' --no-verbose --batch --output - %?p?--passphrase-fd 0? --armor --textmode --clearsign %?a?-u %a? %f"
|
|
||||||
#
|
|
||||||
set pgp_clearsign_command="gpg %?p?--pinentry-mode loopback --passphrase-fd 0? --no-verbose --batch --quiet --output - --armor --textmode %?a?--local-user %a? --clearsign %f"
|
|
||||||
|
|
||||||
# Create an encrypted attachment (note that some users include the --always-trust option here)
|
|
||||||
#
|
|
||||||
# set pgp_encrypt_only_command="/usr/lib/neomutt/pgpewrap gpg-2comp -v --batch --output - --encrypt --textmode --armor --always-trust -- -r %r -- %f"
|
|
||||||
#
|
|
||||||
set pgp_encrypt_only_command="/usr/lib/neomutt/pgpewrap gpg --batch --quiet --no-verbose --output - --textmode --armor --encrypt -- --recipient %r -- %f"
|
|
||||||
|
|
||||||
# Create an encrypted and signed attachment (note that some users include the --always-trust option here)
|
|
||||||
#
|
|
||||||
# set pgp_encrypt_sign_command="/usr/lib/neomutt/pgpewrap gpg-2comp %?p?--passphrase-fd 0? -v --batch --output - --encrypt --sign %?a?-u %a? --armor --always-trust -- -r %r -- %f"
|
|
||||||
#
|
|
||||||
set pgp_encrypt_sign_command="/usr/lib/neomutt/pgpewrap gpg %?p?--pinentry-mode loopback --passphrase-fd 0? --batch --quiet --no-verbose --textmode --output - %?a?--local-user %a? --armor --sign --encrypt -- --recipient %r -- %f"
|
|
||||||
|
|
||||||
# Import a key into the public key ring
|
|
||||||
#
|
|
||||||
set pgp_import_command="gpg --no-verbose --import %f"
|
|
||||||
|
|
||||||
# Export a key from the public key ring
|
|
||||||
#
|
|
||||||
set pgp_export_command="gpg --no-verbose --armor --export %r"
|
|
||||||
|
|
||||||
# Verify a key
|
|
||||||
#
|
|
||||||
set pgp_verify_key_command="gpg --verbose --batch --fingerprint --check-sigs %r"
|
|
||||||
|
|
||||||
# Read in the public key ring
|
|
||||||
#
|
|
||||||
set pgp_list_pubring_command="gpg --no-verbose --batch --quiet --with-colons --with-fingerprint --with-fingerprint --list-keys %r"
|
|
||||||
|
|
||||||
# Read in the secret key ring
|
|
||||||
#
|
|
||||||
set pgp_list_secring_command="gpg --no-verbose --batch --quiet --with-colons --with-fingerprint --with-fingerprint --list-secret-keys %r"
|
|
||||||
|
|
||||||
# Fetch keys
|
|
||||||
# set pgp_getkeys_command="pkspxycwrap %r"
|
|
||||||
|
|
||||||
# pattern for good signature - may need to be adapted to locale!
|
|
||||||
# OK, here's a version which uses gnupg's message catalog:
|
|
||||||
# set pgp_good_sign="^gpgv?: Good signature from"
|
|
||||||
# set pgp_good_sign="`gettext -d gnupg -s 'Good signature from "' | tr -d '"'`"
|
|
||||||
#
|
|
||||||
# Output pattern to indicate a valid signature using --status-fd messages
|
|
||||||
set pgp_good_sign="^\\[GNUPG:\\] GOODSIG"
|
|
||||||
|
|
||||||
# Output pattern to verify a decryption occurred
|
|
||||||
set pgp_decryption_okay="^\\[GNUPG:\\] DECRYPTION_OKAY"
|
|
||||||
|
|
||||||
@ -1,190 +0,0 @@
|
|||||||
#!/usr/bin/perl -w
|
|
||||||
#
|
|
||||||
# mutt-notmuch - notmuch (of a) helper for Mutt
|
|
||||||
#
|
|
||||||
# Copyright: © 2011 Stefano Zacchiroli <zack@upsilon.cc>
|
|
||||||
# License: GNU General Public License (GPL), version 3 or above
|
|
||||||
#
|
|
||||||
# See the bottom of this file for more documentation.
|
|
||||||
# A manpage can be obtained by running "pod2man mutt-notmuch > mutt-notmuch.1"
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
use File::Path;
|
|
||||||
use Getopt::Long;
|
|
||||||
use Mail::Internet;
|
|
||||||
use Mail::Box::Maildir;
|
|
||||||
use Pod::Usage;
|
|
||||||
|
|
||||||
|
|
||||||
# create an empty maildir (if missing) or empty an existing maildir"
|
|
||||||
sub empty_maildir($) {
|
|
||||||
my ($maildir) = (@_);
|
|
||||||
rmtree($maildir) if (-d $maildir);
|
|
||||||
my $folder = new Mail::Box::Maildir(folder => $maildir,
|
|
||||||
create => 1);
|
|
||||||
$folder->close();
|
|
||||||
}
|
|
||||||
|
|
||||||
# search($maildir, $query)
|
|
||||||
# search mails according to $query with notmuch; store results in $maildir
|
|
||||||
sub search($$) {
|
|
||||||
my ($maildir, $query) = @_;
|
|
||||||
|
|
||||||
empty_maildir($maildir);
|
|
||||||
system("notmuch search --output=files $query"
|
|
||||||
. " | xargs --no-run-if-empty ln -s -t $maildir/cur/");
|
|
||||||
}
|
|
||||||
|
|
||||||
sub search_action($$@) {
|
|
||||||
my ($interactive, $results_dir, @params) = @_;
|
|
||||||
|
|
||||||
if (! $interactive) {
|
|
||||||
search($results_dir, join(' ', @params));
|
|
||||||
} else {
|
|
||||||
my $query = "";
|
|
||||||
my $done = 0;
|
|
||||||
while (! $done) {
|
|
||||||
print "search ('?' for man): ";
|
|
||||||
chomp($query = <STDIN>);
|
|
||||||
if ($query eq "?") {
|
|
||||||
system("man notmuch");
|
|
||||||
} elsif ($query eq "") {
|
|
||||||
$done = 1; # quit doing nothing
|
|
||||||
} else {
|
|
||||||
search($results_dir, $query);
|
|
||||||
$done = 1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sub thread_action(@) {
|
|
||||||
my ($results_dir, @params) = @_;
|
|
||||||
|
|
||||||
my $mail = Mail::Internet->new(\*STDIN);
|
|
||||||
$mail->head->get('message-id') =~ /^<(.*)>$/; # get message-id
|
|
||||||
my $mid = $1;
|
|
||||||
my $tid = `notmuch search --output=threads id:$mid`;# get thread id
|
|
||||||
chomp($tid);
|
|
||||||
|
|
||||||
search($results_dir, $tid);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub die_usage() {
|
|
||||||
my %podflags = ( "verbose" => 1,
|
|
||||||
"exitval" => 2 );
|
|
||||||
pod2usage(%podflags);
|
|
||||||
}
|
|
||||||
|
|
||||||
sub main() {
|
|
||||||
my $results_dir = "$ENV{HOME}/.cache/mutt_results";
|
|
||||||
my $interactive = 0;
|
|
||||||
my $help_needed = 0;
|
|
||||||
|
|
||||||
my $getopt = GetOptions(
|
|
||||||
"h|help" => \$help_needed,
|
|
||||||
"o|output-dir=s" => \$results_dir,
|
|
||||||
"p|prompt" => \$interactive);
|
|
||||||
if (! $getopt || $#ARGV < 0) { die_usage() };
|
|
||||||
my ($action, @params) = ($ARGV[0], @ARGV[1..$#ARGV]);
|
|
||||||
|
|
||||||
if ($help_needed) {
|
|
||||||
die_usage();
|
|
||||||
} elsif ($action eq "search" && $#ARGV == 0 && ! $interactive) {
|
|
||||||
print STDERR "Error: no search term provided\n\n";
|
|
||||||
die_usage();
|
|
||||||
} elsif ($action eq "search") {
|
|
||||||
search_action($interactive, $results_dir, @params);
|
|
||||||
} elsif ($action eq "thread") {
|
|
||||||
thread_action($results_dir, @params);
|
|
||||||
} else {
|
|
||||||
die_usage();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
main();
|
|
||||||
|
|
||||||
__END__
|
|
||||||
|
|
||||||
=head1 NAME
|
|
||||||
|
|
||||||
mutt-notmuch - notmuch (of a) helper for Mutt
|
|
||||||
|
|
||||||
=head1 SYNOPSIS
|
|
||||||
|
|
||||||
=over
|
|
||||||
|
|
||||||
=item B<mutt-notmuch> [I<OPTION>]... search [I<SEARCH-TERM>]...
|
|
||||||
|
|
||||||
=item B<mutt-notmuch> [I<OPTION>]... thread < I<MAIL>
|
|
||||||
|
|
||||||
=back
|
|
||||||
|
|
||||||
=head1 DESCRIPTION
|
|
||||||
|
|
||||||
mutt-notmuch is a frontend to the notmuch mail indexer capable of populating
|
|
||||||
maildir with search results.
|
|
||||||
|
|
||||||
=head1 OPTIONS
|
|
||||||
|
|
||||||
=over 4
|
|
||||||
|
|
||||||
=item -o DIR
|
|
||||||
|
|
||||||
=item --output-dir DIR
|
|
||||||
|
|
||||||
Store search results as (symlink) messages under maildir DIR. Beware: DIR will
|
|
||||||
be overwritten. (Default: F<~/.cache/mutt_results/>)
|
|
||||||
|
|
||||||
=item -p
|
|
||||||
|
|
||||||
=item --prompt
|
|
||||||
|
|
||||||
Instead of using command line search terms, prompt the user for them (only for
|
|
||||||
"search").
|
|
||||||
|
|
||||||
=item -h
|
|
||||||
|
|
||||||
=item --help
|
|
||||||
|
|
||||||
Show usage information and exit.
|
|
||||||
|
|
||||||
=back
|
|
||||||
|
|
||||||
=head1 INTEGRATION WITH MUTT
|
|
||||||
|
|
||||||
mutt-notmuch can be used to integrate notmuch with the Mutt mail user agent
|
|
||||||
(unsurprisingly, given the name). To that end, you should define the following
|
|
||||||
macros in your F<~/.muttrc> (replacing F<~/bin/mutt-notmuch> for the actual
|
|
||||||
location of mutt-notmuch on your system):
|
|
||||||
|
|
||||||
macro index <F8> \
|
|
||||||
"<enter-command>unset wait_key<enter><shell-escape>~/bin/mutt-notmuch --prompt search<enter><change-folder-readonly>~/.cache/mutt_results<enter>" \
|
|
||||||
"search mail (using notmuch)"
|
|
||||||
macro index <F9> \
|
|
||||||
"<enter-command>unset wait_key<enter><pipe-message>~/bin/mutt-notmuch thread<enter><change-folder-readonly>~/.cache/mutt_results<enter><enter-command>set wait_key<enter>" \
|
|
||||||
"search and reconstruct owning thread (using notmuch)"
|
|
||||||
|
|
||||||
The first macro (activated by <F8>) will prompt the user for notmuch search
|
|
||||||
terms and then jump to a temporary maildir showing search results. The second
|
|
||||||
macro (activated by <F9>) will reconstruct the thread corresponding to the
|
|
||||||
current mail and show it as search results.
|
|
||||||
|
|
||||||
To keep notmuch index current you should then periodically run C<notmuch
|
|
||||||
new>. Depending on your local mail setup, you might want to do that via cron,
|
|
||||||
as a hook triggered by mail retrieval, etc.
|
|
||||||
|
|
||||||
=head1 SEE ALSO
|
|
||||||
|
|
||||||
mutt(1), notmuch(1)
|
|
||||||
|
|
||||||
=head1 AUTHOR
|
|
||||||
|
|
||||||
Copyright: (C) 2011 Stefano Zacchiroli <zack@upsilon.cc>
|
|
||||||
|
|
||||||
License: GNU General Public License (GPL), version 3 or higher
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user