From: Heinz Diehl (hd_at_elfie.rhein-neckar.de)
Date: 04. Mar 1999
On Thu Mar 04 1999, Gerd Geppert wrote:
> was muß ich in der .muttrc eintragen, damit html-Mails unter Zuhilfenahme
> von lynx direkt in Mutt angezeigt werden?
auto_view image/* text/richtext text/enriched text/html text/x-sgml
Dann entsprechenden Eintrag in /etc/printcap machen, et voila.
> In der .muttrc habe ich bereits folgende Zeile stehen, die Mails nach
> einer gewissen Zeit löschen soll:
> folder-hook =/home/user/Mail/folder$ 'push T~r>1m\n\;'
> leider ohne Erfolg.
Kann ich nichts dazu sagen, ich habe das immer so gemacht, dass
wenn ich wirklich mal fette Mailinglisten oder aehnliches
bezogen habe, den Mails einfach per Procmail und Perl
einen Expirestamp aufgedrueckt habe, mal sehen, wo ist er gleich,
ach ja:
#! /usr/bin/perl -w
$expiredays = 7;
$add = $expiredays * 86400;
$expire = $add + time;
while (<>) {
if (/^$/) { print "X-Expirestamp: $expire\n\n"; exit; }
print $_;
}
Dann kannst Du die Mails per Script spaeter nach diesem Eintrag entfernen,
z.B.:
#! /usr/bin/perl -w
$temp = '/home/hd/tempfile';
$mailfolder = '/var/spool/mail/hd';
$today = time;
open (IN, "< $ARGV[0]") || die "Can't open $ARGV[0]: $!\n";
open (TEMP, "> $temp") || die "Can't open $temp: $!\n";
while (<IN>) {
push (@header,$_);
if (/^$/) {
foreach $header(@header) {
if ($header =~ /^Lines:/) {
$lines = $header;
$lines =~ s/[A-Za-z]+?\s*:\s*([0-9]+)/$1/;
} elsif ($header =~ /^X-Expirestamp:/) {
$expire = $header;
$expire =~ s/[\-A-Za-z]+?\s*:\s*([0-9]+)/$1/;
}
}
for ($cnt = 0; $cnt < $lines; $cnt++) {
$line = <IN>;
push (@body,$line);
}
if ($today > $expire) { print TEMP @header; print TEMP @body; }
splice (@header,0); splice (@body,0);
}
}
close IN; close TEMP;
unlink $mailfolder; rename ($temp, $mailfolder);
print "Done.\n";
Gruss, Heinz.
Dieses Archiv wurde generiert von hypermail 2.1.2 : 11. Mar 2002 CET