summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0291ce2)
Also add a comment describing why invalid UIDs aren't skipped. Thanks to
Simon Schuster for inspiring me to think about this issue.
# Helper script for mutt to create a list of send-hooks which enable
# crypt_autoencrypt for known GnuPG keys.
# Helper script for mutt to create a list of send-hooks which enable
# crypt_autoencrypt for known GnuPG keys.
-# Copyright (C) 2009-2012 Simon Ruderich
+# Copyright (C) 2009-2013 Simon Ruderich
#
# 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
#
# 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
open my $gpg, '-|', 'gpg --list-keys --with-colons --fixed-list-mode' or die $!;
while (<$gpg>) {
open my $gpg, '-|', 'gpg --list-keys --with-colons --fixed-list-mode' or die $!;
while (<$gpg>) {
- next unless /<(.+?@.+?)>/;
+ next if not /^uid:/;
+
+ # We don't skip invalid, deleted, revoked, expired and not-trusted UIDs to
+ # prevent sending an unencrypted mail when e.g. a key is revoked or
+ # expired. If you want to skip those UIDs, uncomment the next line.
+ #next if /^uid:[idren]:/;
+
+ next if not /<(.+?@.+?)>:/;
print "send-hook '~t .*$1.*' 'set crypt_autoencrypt=yes'\n";
}
close $gpg or die $!;
print "send-hook '~t .*$1.*' 'set crypt_autoencrypt=yes'\n";
}
close $gpg or die $!;