Moin!
Da ich gerade dabei bin, meine muttrc aufzuräumen, dacht ich mir, ich stoße mal eine Diskussion über interessante mutt-Konfigurationen an:
Jeder grafische MUA hat einen Papierkorb. Mein mutt auch:
macro index d "<save-message>=trash/trash-`date +%Y-%m`<enter>" macro pager d "<save-message>=trash/trash-`date +%Y-%m`<enter>" macro index \CD "\et;<save-message>=trash/trash-`date +%Y-%m`<enter>" macro pager \CD "\et;<save-message>=trash/trash-`date +%Y-%m`<enter>"
Dazu legt man in seinem Mailverzeichnis (=) das Verzeichnis "trash" an und voila, man hat einen Papierkorb. Meiner ist schon über 2 Jahre alt und ca. 40 MB groß... Wenn man will, kann man auf eine unbenutzte Taste "richtiges" löschen legen, aber dann benutzt man die garantiert zu oft.
Das "Rumgemehre" mit den aliasen war mir zu doof, da hab ich im Netz
macro index "a" "\eC~/msg.txt\n\n!~/mutt_add.pl\n" macro pager "a" "\eC~/msg.txt\n\n!~/mutt_add.pl\n" set query_command = "~/mutt_query.pl '%s'"
mutt_add.pl: ------------------- #!/usr/bin/perl # # Written 1999 by Christian Ordig chr.ordig@gmx.net # $TMP_IN="$ENV{HOME}/msg.txt"; $ADDRESS_FILE="$ENV{HOME}/addresses";
select (STDIN); $|=1; select (STDOUT); $|=1;
open (IN,$TMP_IN); while (<IN>) { chop; ($Field, $Content) = split (/: /); if ($Field eq "From") { if (/From: (.*) <(\S*)>/) {$Real=$1; $eMail=$2;} else {$Real=" ";$eMail=$Content;} # if (/(\S*)<(\S*)>/) {$Real=$1;} } if ($_ eq "\n") {goto END_HEAD;} } END_HEAD: # Header fertig geparsed
print ("Comment eingeben fuer $eMail: "); $Comment=<STDIN>; chop($Comment);
print ("Adding...\neMail: $eMail\nReal: $Real\nComment: $Comment\n");
open (ADD,">> $ADDRESS_FILE") || die ("Problems opening file $ADRESS_FILE"); print ADD "$Real;$eMail;$Comment\n";
unlink ($TMP_IN); ---------------
mutt_query.pl: --------------- #!/usr/bin/perl # # Written 1999 by Christian Ordig chr.ordig@gmx.net # $count=0;
open (DATA,"$ENV{HOME}/addresses") || die ("File not found"); while (<DATA>) { chop; if (/@ARGV/i) { ($name, $email, $comment) = split(/;/); # print ("$email\t$name\t$comment\n"); push (@out,"$email\t$name\t$comment\n"); $count=$count+1; }
} close (DATA);
sub by_name { $_=$a; ($t,$name1,$t)=split(/\t/); $_=$b; ($t,$name2,$t)=split(/\t/); uc($name1) cmp uc($name2); }
@out=sort {by_name} @out; print ("$count matches found...\n"); print (@out); ----------------
Mittels 'a' fügt man einen Eintrag ins Adressbuch ein (Mail auswählen, 'a' drücken, Kommentar zu der Adresse eingeben und fertig. Mit 'Q' (mutt Standardquerykommando) kann man dann nach einem Eintrag suchen. z.B. finden "lug" bei mir die LUG-ML-Adresse. Mit einem Leerzeichen "findet" man alle Einträge und kann sich den richtigen aussuchen. Sehr praktisch, das.
Hat jemand ähnlich praktische Dinge, die nicht Standard sind?
HTH, Eric