mark_old behaviour in mutt 1.1.9

2000-03-18 Thread Shao Zhang

Hi,
I just noticed that mark_old works a little bit different in
mutt 1.1.9. Maybe there is now a new feature that I am missing.

I have unset mark_old in mutt 1.1.9. Now when new message
arrives, when I open up mutt, and then close it without reading,
next time when I come back, the message has still got a N as its
flag. But if I press change folder, to display a list of mail
folders, it will not show a N in front of the folder.

I remembered this is different in the older versions. So how do
I make mutt to show a N flag in front of the folders if it
contains old unread messages.

Thanks.

Regards,


Shao.

-- 

Shao Zhang - Running Debian 2.1  ___ _   _
Department of Communications/ __| |_  __ _ ___  |_  / |_  __ _ _ _  __ _ 
University of New South Wales   \__ \ ' \/ _` / _ \  / /| ' \/ _` | ' \/ _` |
Sydney, Australia   |___/_||_\__,_\___/ /___|_||_\__,_|_||_\__, |
Email: [EMAIL PROTECTED]  |___/ 
_



Count mails

2000-03-18 Thread Dirk Huebner

Hi all, 

this is no mutt-specific question, but I'm sure so can give me a
hint here. 

I would like to examine my existing mail and create a statistic
about "mails from user per day"

For example: Search for "dirk.g.huebner" in ~/Mail/lists/xxx 

and create the following output. 

Day Total
01.03.2000:   5
02.03.2000:   3
05.03.2000:   6
...

Can s.o. point me to an existing script/recipe for that? Haven't found 
anything...

Greetings,
Dirk



Re: Random Signature

2000-03-18 Thread Daniel Gerber

On Wed, Mar 15, 2000 at 11:04:09AM -0500, Rob Reid wrote:

> Can you tell the list exactly where in the manual you found the bit about
> #define ENABLE_RANDOM_SIG?  That feature, if it was ever really there, was
> removed years ago and the the manual should have been fixed years ago too.
> 
> Thanks.

I found it on an online manual at 
http://www.math.fu-berlin.de/~guckes/mutt/manual.html under the section `Random 
Signatures under Mutt'. I must admitt that I ignored the fact about the manual 
belonging to a rather old version ;)

-- 
__
DANIEL GERBER
___http://www.cx.unibe.ch/~dgerber



mutt and xterm title bars

2000-03-18 Thread Daniel Burrows

  Hello.  I'd like mutt to output the appropriate escape sequences to display
various things in my xterm title bar.  (eg, "mutt: ")  Unfortunately,
when I tried the obvious thing -- embedding escapes into the status format
string -- I got the string representations of the escapes; eg, "^]]2;Mutt: ..."
Is there any way to get mutt to output the raw escape sequence for setting
an xterm title?

  The configuration line I used was:
set  status_format="\e]2;Mutt: %f\a-%r-Mutt: %f [Msgs:%?M?%M/?%m%?n? New:%n?%?o? 
Old:%o?%?d? Del:%d?%?F? Flag:%F?%?t? Tag:%t?%?p? Post:%p?%?b? Inc:%b?%?l? 
%l?]---(%s/%S)-%>-(%P)---"

  Daniel



Re: Count mails

2000-03-18 Thread Stefan `Sec` Zehl

On Sat, Mar 18, 2000 at 11:33:34AM +0100, Dirk Huebner wrote:
> Hi all, 
> 
> this is no mutt-specific question, but I'm sure so can give me a
> hint here. 
> 
> I would like to examine my existing mail and create a statistic
> about "mails from user per day"
> 
> For example: Search for "dirk.g.huebner" in ~/Mail/lists/xxx 
> 
> and create the following output. 
> 
> Day Total
> 01.03.2000:   5
> 02.03.2000:   3
> 05.03.2000:   6
> ...
> 
> Can s.o. point me to an existing script/recipe for that? Haven't found 
> anything...

I'd use something like this:

#!/usr/local/bin/perl -n

BEGIN{
use Date::Parse;
use POSIX;
};

chomp;

if ($hdr){
/^Date:\s+(.*)/ && do {$date=$1;};
/^From:\s+(.*)/ && do {$from=$1;};
/^$/ && do{$hdr=0;$HoH{int(str2time($date)/3600/24)}{$from}++;};
}else{
/^From / && do {$hdr=1; undef $from,$date;};
}

END{
foreach $family ( sort {$a <=> $b} keys %HoH ) {
print strftime("%d.%m.%Y: {\n",gmtime($family*60*60*24));
for $role ( sort {$HoH{$family}{$a} <=> $HoH{$family}{$b} }
keys %{ $HoH{$family} } ) {
printf "%3d %s\n",$HoH{$family}{$role},$role;
}
print "}\n";
}
}

which reads a Mailinglist-Folder on stdin, and outputs like this:

17.03.2000: {
  1 Terje Elde <[EMAIL PROTECTED]>
  1 "Danny O'Brien" <[EMAIL PROTECTED]>
  1 David DeSimone <[EMAIL PROTECTED]>
  1 Thomas Roessler <[EMAIL PROTECTED]>
  2 David T-G <[EMAIL PROTECTED]>
  2 Charles Curley <[EMAIL PROTECTED]>
  2 Adahma <[EMAIL PROTECTED]>
  3 Jason Helfman <[EMAIL PROTECTED]>
}
18.03.2000: {
  1 David T-G <[EMAIL PROTECTED]>
  1 Daniel Gerber <[EMAIL PROTECTED]>
  1 Dirk Huebner <[EMAIL PROTECTED]>
  1 Shao Zhang <[EMAIL PROTECTED]>
  1 Daniel Burrows <[EMAIL PROTECTED]>
  1 Lars Hecking <[EMAIL PROTECTED]>
}

CU,
Sec
-- 
The attached bug will fix that. 
-- Byrial Jensen <[EMAIL PROTECTED]> on mutt-dev/21.7.98



Re: Count mails

2000-03-18 Thread Jens Tautenhahn

On Sam, 18 Mär 2000, Stefan `Sec` Zehl wrote:

> #!/usr/local/bin/perl -n
> 
> BEGIN{
> use Date::Parse;
> use POSIX;

  use MIME::QuotedPrint;

> };
> 
> chomp;
> 
> if ($hdr){
> /^Date:\s+(.*)/ && do {$date=$1;};
> /^From:\s+(.*)/ && do {$from=$1;};
> /^$/ && do{$hdr=0;$HoH{int(str2time($date)/3600/24)}{$from}++;};
> }else{
> /^From / && do {$hdr=1; undef $from,$date;};
> }
> 
> END{
> foreach $family ( sort {$a <=> $b} keys %HoH ) {
>   print strftime("%d.%m.%Y: {\n",gmtime($family*60*60*24));
>   for $role ( sort {$HoH{$family}{$a} <=> $HoH{$family}{$b} }
>   keys %{ $HoH{$family} } ) {

$mail = decode_qp($role);
$mail =~ s/=\?(?:ISO|iso).+?Q\?(.+)\?=/$1/;

>   printf "%3d %s\n",$HoH{$family}{$role},$role;

   $mail;

>   }
>   print "}\n";
> }
> }

to decode email-adresses like 
"Harry =?iso-8859-1?Q?R=FCter?= <[EMAIL PROTECTED]>"

CU
Jens

-- 
registered linux user #130250



Re: Count mails

2000-03-18 Thread Stefan `Sec` Zehl

On Sat, Mar 18, 2000 at 05:39:26PM +0100, Jens Tautenhahn wrote:
[...]
> to decode email-adresses like 
> "Harry =?iso-8859-1?Q?R=FCter?= <[EMAIL PROTECTED]>"

I've added a 'total' output at the end, lowercasing of the Adresses, and
an optional command line parameter to output only matching adresses.

I've also put this script as "mail_from_stats" at
http://sec.42.org/mutt/contrib/

CU,
Sec
-- 
My biggest problem was when I screwed up the device driver for my eyelids
I couldn't open my eyes to debug them.


#!/usr/local/bin/perl

use Date::Parse;
use POSIX;
use MIME::QuotedPrint;

while (){
chomp;
if ($hdr){
/^Date:\s+(.*)/ && do {$date=$1;};
/^From:\s+(.*)/ && do {$from=$1;};
/^$/ && do {
$hdr=0;
next if( ($#ARGV+1) && !($from =~ /$ARGV[0]/i));

$mail = decode_qp($from);
$mail =~ s/=\?(?:ISO|iso).+?Q\?(.+)\?=/$1/;
$mail = lc($mail);

$HoH{int(str2time($date)/3600/24)}{$mail}++;
$frm{$mail}++;
};
}else{
/^From / && do {$hdr=1; undef $from,$date;};
}
};

foreach $family ( sort {$a <=> $b} keys %HoH ) {
print strftime("%d.%m.%Y: {\n",gmtime($family*60*60*24));
for $role ( sort {$HoH{$family}{$a} <=> $HoH{$family}{$b} } keys %{ 
$HoH{$family} } ) {
printf "%3d %s\n",$HoH{$family}{$role},$role;
}
print "}\n";
}

print "Totals: {\n";
for $key (sort {$frm{$a} <=> $frm{$b}} keys %frm){
printf "%3d %s\n",$frm{$key},$key;
};
print "}\n";

 PGP signature


Re: Pleasr try: pgp6.rc.

2000-03-18 Thread Alex Lane

* On Tue, Mar 14, 2000 at 08:17:24AM +0100, Thomas Roessler wrote:
> Could someone please verify whether or not the attached
> pgp6.rc works?  (Replace pgp6 by pgp!)
> 

It appears to allow (at least) decryption of signed messages, but what
is:

> # fetch keys
> set pgp_getkeys_command="pkspxycwrap %r"

Cheers...
-- 
Alex Lane * Seabrook, Texas, USA  -*-  [EMAIL PROTECTED] * www.galexi.com/alex/
DH/DSS PGP keyID: 0xD94803CD  -*-  RSA PGP keyID: 0xCABD6FF9
Amid a wash of paper, a small number of documents become the critical pivots
around which every project's management revolves. These are the manager's
chief personal tools.   (Brooks' Documentary Hypothesis)



Re: hooks and $folder

2000-03-18 Thread David Ellement

On 000317, at 20:08:03, David T-G wrote:
> I have
> 
>   send-hook . 'set folder="~/Mail"'
> 
> and then
> 
>   send-hook 'long|but|definite|regexp' 'set folder="~/Mail/subdir"'
> 
> and it works like a charm; ...
> 
> Well, sort of.  If I want to save some other email that doesn't belong in
> ~/Mail/subdir *before* I've sent something else, $folder doesn't get
> reset.

Try:

set folder="~/Mail"

in addition to the send-hooks.


I ran into something similar a long time ago: when I only set
$folder in a hook, the shortcuts '<' and '>' didn't work from the
command line; setting folder in explicitly in addition to the hooks
resolved the problem.

-- 
David Ellement



Gnupg Signing

2000-03-18 Thread Jason Helfman

As I understand it, in order for me to communicate with someone with
pgp, send them encrypted data, I would need to sign with their public
key and then they would decrypt it with their private key.

When I try to sign as someone else, all I get is a beep Do I need to
specify a working directory? or is $HOME/.gnupg assumed?

i have gnupg rpms for...

gnupg-1.0.0-1
gnupg-rsaref-1.0-2

-- 
/helfman

"At any given moment, you may find the ticket to the circus that has always beenin 
your possession."
Fingerprint: 2F76 2856 776A 3E07 9F3E  452A 17D9 9B28 D75E 0A36
GnuPG http://www.gnupg.org  Get Private!

 PGP signature