First, I setup the send-hook:

send-hook "~C jenn@email.address" source ~/.mutt/for-jenn

Then, in ~/.mutt/for-jenn:

unmy_hdr From:
my_hdr From: \
    `/usr/bin/perl /home/rayners/.mutt/from-names.pl` \
    <my-home@email.address>

And, finally, the from-names.pl script:

#!/usr/bin/perl

@names = (
    'Name 1',
    'Name 2',
    'Name 3',
    );

print $names[rand @names];

So now whenever I start writing an email to her, the From: line of the email pops up with a different name.

Now, to make sure that normal emails from me are not affected, I placed the following send-hook before the earlier one:

send-hook . source ~/.mutt/from-rayners

And the ~/.mutt/from-rayners file:

unmy_hdr From:
my_hdr From: David Raynes <rayners@rayners.org>

So, I have come up with the following additions to my mutt config file to handle this situation:

message-hook ~A "set pgp_autosign"
message-hook "~h 'X-Mailer: Microsoft Outlook Express'" "set nopgp_autosign"

Unfortunately, to make sure this is used, I need to be reading the message when I reply to it, instead of just hitting the reply key in the header list.

True, I could tell mutt to use the old-style cryptographic signatures (with pgp_create_traditional), but I feel like I am trying to make a point here. :)

Unfortunately, the little trick I used to let mutt know about all the mailboxes my procmail recipies create no longer works, as the folders are not physically located on my machine. I could do it manually, but IMAP already allows for something like this with its folder subscibing feature. Mutt supports this somewhat, but not to the extent that I would like (i.e. it can list subscribed folders, but it will not look for new mail in them, which is what I really want). So, I took a few minutes and threw together a quick perl script to list all my subsctibed folders in a mutt-compatible format.

Here's the code:

#!/usr/bin/perl

use Mail::IMAPClient;

my $server = shift;
my $user = shift;
my $pass = shift;

my $imap = Mail::IMAPClient->new (
    Server => $server, 
    User => $user, 
    Password => $pass,
    ) or die "Cannot connect to $server as $user: $@";

my @subscribedFolders = $imap->subscribed
                or warn "Could not find subscribed folders: $@\n";

map { print " =$_"; } @subscribedFolders;

It is certainly not robust, but it gets the job done for the time being. And besides, it gave me a good excuse to play around with Mail::IMAPClient.

Here is the line in my ~/.muttrc file that uses the script:

mailboxes `/usr/bin/perl ~/imapFolders.pl server rayners mypassword`

Here is the relevant portion of my ~/.procmailrc file:

# Catch bug reports from bugs.mt-plugins.org
:0:
* ^From: plugins@mt-plugins\.org
{
        :0 B
        * ^Proje[ck]t: \/.+
        bugs/`echo "$MATCH" | sed -e 's/ /_/g'`
}

And from my ~/.muttrc file to see all those mailboxes:

mailboxes `for file in ~/Mail/bugs/*; do echo -n "=bugs/$(basename $file) "; done`

Update: (2003-06-08 18:14)

Thanks go to Mike for the suggestion. So, here's the updated recipe:

# Catch bug reports from bugs.mt-plugins.org
:0:
* ^From: plugins@mt-plugins\.org
* B ?? ^Proje[ck]t: \/.+
bugs/`echo "$MATCH" | sed -e 's/[^-_A-Za-z0-9]/_/g'`