Benchmark-Perl-Formance-Cargo
view release on metacpan or search on metacpan
share/P6STD/STD.pm6 view on Meta::CPAN
my $*endargs = -1;
proto token category {*}
token category:category { <sym> }
token category:sigil { <sym> }
proto token sigil {*}
token category:twigil { <sym> }
proto token twigil is endsym<begid> {*}
token category:special_variable { <sym> }
proto token special_variable {*}
token category:comment { <sym> }
proto token comment {*}
token category:version { <sym> }
proto token version {*}
share/P6STD/STD.pm6 view on Meta::CPAN
token category:prefix_postfix_meta_operator { <sym> }
proto token prefix_postfix_meta_operator is unary {*}
token category:prefix_circumfix_meta_operator { <sym> }
proto token prefix_circumfix_meta_operator is unary {*}
token category:terminator { <sym> }
proto token terminator {*}
token unspacey { <.unsp>? }
token begid { <?before \w> }
token endid { <?before <-[ \- \' \w ]> > }
token spacey { <?before <[ \s \# ]> > }
token keyspace { <!before '('> [ <?before <[ \s \# ]> > || <.panic: "Whitespace required after keyword"> ] }
token nofun { <!before '(' | '.(' | '\\' | '\'' | '-' | "'" | \w > }
# Note, don't reduce on a bare sigil unless you don't want a twigil or
# you otherwise don't care what the longest token is.
token sigil:sym<$> { <sym> }
token sigil:sym<@> { <sym> }
share/P6STD/boot/STD.pmc view on Meta::CPAN
use 5.010;
use utf8;
{ package STD;
use Moose ':all' => { -prefix => "moose_" };
use Encode;
moose_extends('Cursor');
our $ALLROLES = { 'STD', 1 };
our $REGEXES = {
ALL => [ qw/alnumint apostrophe babble backslash begid binint binints category charname charnames charspec circumfix comment dec_number decint decints dotty embeddedblock endid escale escape hexint hexints ident identifier infix infix_circumfix_meta_...
category => [ qw/category__S_000category__PEEK category__S_001sigil__PEEK category__S_002twigil__PEEK category__S_003special_variable__PEEK category__S_004comment__PEEK category__S_005version__PEEK category__S_006module_name__PEEK category__S_007valu...
circumfix => [ qw/circumfix__S_052Fre_Nch__PEEK circumfix__S_053LtLt_GtGt__PEEK circumfix__S_054Lt_Gt__PEEK/ ],
comment => [ qw/comment__S_055SharpGraveParenDotDotDotThesis__PEEK comment__S_056SharpParenDotDotDotThesis__PEEK comment__S_057SharpEqualParenDotDotDotThesis__PEEK comment__S_058SharpEqual__PEEK comment__S_059Sharp__PEEK/ ],
escape => [ qw/escape__S_049none__PEEK/ ],
quote => [ qw/quote__S_050Single_Single__PEEK quote__S_051Double_Double__PEEK/ ],
sigil => [ qw/sigil__S_037Dollar__PEEK sigil__S_038At__PEEK sigil__S_039Percent__PEEK sigil__S_040Amp__PEEK/ ],
term => [ qw/term__S_063miscbad__PEEK/ ],
terminator => [ qw/terminator__S_060Thesis__PEEK terminator__S_061Ket__PEEK terminator__S_062Ly__PEEK/ ],
twigil => [ qw/twigil__S_041Dot__PEEK twigil__S_042Bang__PEEK twigil__S_043Caret__PEEK twigil__S_044Colon__PEEK twigil__S_045Star__PEEK twigil__S_046Question__PEEK twigil__S_047Equal__PEEK twigil__S_048Tilde__PEEK/ ],
};
share/P6STD/boot/STD.pmc view on Meta::CPAN
- !!perl/hash:RE_method
name: ws
rest: ''
- !!perl/hash:RE_block {}
quant:
- '*'
- !!perl/hash:RE_bindnamed
atom: !!perl/hash:RE_block {}
backslash:*:
dic: STD
begid: !!perl/hash:RE_ast
dba: begid
dic: STD
re: !!perl/hash:RE_assertion
assert: '?'
re: !!perl/hash:RE_method_re
name: before
nobind: 1
re: !!perl/hash:RE_meta
min: 1
text: \w
binint: !!perl/hash:RE_ast
share/P6STD/boot/STD.pmc view on Meta::CPAN
trait_mod:*:
dic: STD
twigil:*:
dic: STD
twigil__S_041Dot: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: .
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_042Bang: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: '!'
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_043Caret: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: ^
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_044Colon: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: ':'
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_045Star: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: '*'
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_046Question: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: '?'
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_047Equal: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: =
- !!perl/hash:RE_method
name: begid
rest: ''
twigil__S_048Tilde: !!perl/hash:RE_ast
dba: twigil
dic: STD
re: !!perl/hash:RE_sequence
zyg:
- !!perl/hash:RE_method
endsym: begid
i: 0
name: sym
rest: ''
sym: '~'
- !!perl/hash:RE_method
name: begid
rest: ''
type_declarator:*:
dic: STD
unitstopper: !!perl/hash:RE_ast
dba: unitstopper
dic: STD
re: !!perl/hash:RE_meta
text: $
unsp: !!perl/hash:RE_ast
dba: unspace
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE category__S_002twigil");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "twigil";
$self->_MATCHIFYr($S, "category__S_002twigil", $C->_EXACT("twigil"));
}
;
## token twigil is endsym<begid> {*}
sub twigil__PEEK { $_[0]->_AUTOLEXpeek('twigil:*',$retree); }
sub twigil {
my $self = shift;
my $subs;
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact('RULE twigil');
my $S = $C->{'_pos'};
share/P6STD/boot/STD.pmc view on Meta::CPAN
my $C = $self->cursor_xact("RULE unspacey");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$self->_MATCHIFYr($S, "unspacey", $C->_OPTr(sub {
my $C=shift;
if (my ($C) = ($C->unsp)) { ($C) } else { () }
}));
}
;
## token begid { <?before \w> }
sub begid__PEEK { $_[0]->_AUTOLEXpeek('begid', $retree) }
sub begid {
no warnings 'recursion';
my $self = shift;
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE begid");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$self->_MATCHIFYr($S, "begid", $C->before(sub {
my $C=shift;
if (my ($C) = ($C->before(sub {
my $C=shift;
$C->_PATTERN(qr/\G\w/)
}))) { ($C) } else { () }
}));
}
;
## token endid { <?before <-[ \- \' \w ]> > }
sub endid__PEEK { $_[0]->_AUTOLEXpeek('endid', $retree) }
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_041Dot");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\.";
$self->_MATCHIFYr($S, "twigil__S_041Dot", do {
my $C = $C;
if (($C) = ($C->_EXACT("\."))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<!> { <sym> }
sub twigil__S_042Bang__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_042Bang', $retree) }
sub twigil__S_042Bang {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_042Bang");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\!";
$self->_MATCHIFYr($S, "twigil__S_042Bang", do {
my $C = $C;
if (($C) = ($C->_EXACT("\!"))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<^> { <sym> }
sub twigil__S_043Caret__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_043Caret', $retree) }
sub twigil__S_043Caret {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_043Caret");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\^";
$self->_MATCHIFYr($S, "twigil__S_043Caret", do {
my $C = $C;
if (($C) = ($C->_EXACT("\^"))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<:> { <sym> }
sub twigil__S_044Colon__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_044Colon', $retree) }
sub twigil__S_044Colon {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_044Colon");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\:";
$self->_MATCHIFYr($S, "twigil__S_044Colon", do {
my $C = $C;
if (($C) = ($C->_EXACT("\:"))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<*> { <sym> }
sub twigil__S_045Star__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_045Star', $retree) }
sub twigil__S_045Star {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_045Star");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\*";
$self->_MATCHIFYr($S, "twigil__S_045Star", do {
my $C = $C;
if (($C) = ($C->_EXACT("\*"))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<?> { <sym> }
sub twigil__S_046Question__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_046Question', $retree) }
sub twigil__S_046Question {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_046Question");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\?";
$self->_MATCHIFYr($S, "twigil__S_046Question", do {
my $C = $C;
if (($C) = ($C->_EXACT("\?"))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<=> { <sym> }
sub twigil__S_047Equal__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_047Equal', $retree) }
sub twigil__S_047Equal {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_047Equal");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\=";
$self->_MATCHIFYr($S, "twigil__S_047Equal", do {
my $C = $C;
if (($C) = ($C->_EXACT("\="))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token twigil:sym<~> { <sym> }
sub twigil__S_048Tilde__PEEK { $_[0]->_AUTOLEXpeek('twigil__S_048Tilde', $retree) }
sub twigil__S_048Tilde {
no warnings 'recursion';
share/P6STD/boot/STD.pmc view on Meta::CPAN
local $::CTX = $self->callm() if $::DEBUG & DEBUG::trace_call;
my $C = $self->cursor_xact("RULE twigil__S_048Tilde");
my $xact = $C->xact;
my $S = $C->{'_pos'};
$C->{sym} = "\~";
$self->_MATCHIFYr($S, "twigil__S_048Tilde", do {
my $C = $C;
if (($C) = ($C->_EXACT("\~"))
and ($C) = ($C->begid)) {
$C
} else { () }
});
}
;
## token stopper { <!> }
sub stopper__PEEK { $_[0]->_AUTOLEXpeek('stopper', $retree) }
sub stopper {
no warnings 'recursion';
share/PerlCritic/Critic/Utils.pm view on Meta::CPAN
Readonly::Hash my %BUILTINS_WHICH_TAKE_ONE_ARGUMENT =>
hashify(
qw{
closedir
dbmclose
delete
each
exists
fileno
getgrgid
getgrnam
gethostbyname
getnetbyname
getpeername
getpgrp
getprotobyname
getprotobynumber
getpwnam
getpwuid
getsockname
share/SpamAssassin/easy_ham/00096.3517ca839b03cdf37c14ff9b3667dd98 view on Meta::CPAN
Received: from lugh (root@localhost [127.0.0.1]) by lugh.tuatha.org
(8.9.3/8.9.3) with ESMTP id MAA00495; Mon, 2 Sep 2002 12:05:10 +0100
X-Authentication-Warning: lugh.tuatha.org: Host root@localhost [127.0.0.1]
claimed to be lugh
Received: from saffron.via-net-works.ie (saffron.via-net-works.ie
[212.17.32.24]) by lugh.tuatha.org (8.9.3/8.9.3) with ESMTP id MAA00434
for <ilug@linux.ie>; Mon, 2 Sep 2002 12:05:00 +0100
Received: from box.dialups.via-net-works.ie ([212.17.32.233]
helo=PELICANCLUB.vianetworks.ie) by saffron.via-net-works.ie with esmtp
(Exim 3.20 #1) id 17lp0s-0000gr-00; Mon, 02 Sep 2002 12:04:58 +0100
X-NCC-Regid: ie.medianet
Message-Id: <5.1.0.14.0.20020902120100.02a78308@212.17.32.225>
X-Sender: tbridge@212.17.32.225
X-Mailer: QUALCOMM Windows Eudora Version 5.1
Date: Mon, 02 Sep 2002 12:04:04 +0100
To: Ray.Dermody@ITCARLOW.IE, ilug@linux.ie
From: Thomas Bridge <tbridge@vianetworks.ie>
Subject: Re: [ILUG] Serial number in hosts file
In-Reply-To: <3D735065.23921.771154@localhost>
MIME-Version: 1.0
Content-Type: text/plain
share/SpamAssassin/easy_ham/00777.5abc0824f35b966cf589b15c4f10f2d2 view on Meta::CPAN
> pre-announced. It is a Music Choice policy not to release a playlist of
> upcoming or previously played songs.
Recently, MusicChoice upgraded their website with a very important
service, as far as I'm concerned: real-time song info from their
website. My DirecTV receiver is up on a shelf (and its display scrolls
intermittently); and I'm surely not going to fire up my projector while
listening to the "radio", so I'm quite happy that I can retrieve r/t
song info with URLs like:
http://backstage.musicchoice.com/songid/channels/soundsoftheseasons.asp
http://backstage.musicchoice.com/songid/channels/rap.asp
http://backstage.musicchoice.com/songid/channels/opera.asp
etc...
Now, if I were a more eager hacker, I'd write up little WSDL stubs for
these event streams (they're clearly not worried about load, since their
own web pages specify 15 sec meta-refresh) and then feed 'em through a
content router to alert me to cool songs. Heck, cross-reference the
service to CDDB and... :-)
RK
share/SpamAssassin/easy_ham/00876.f075a944de6d2290fd7a1965ac72d94f view on Meta::CPAN
To: rah@shipwright.com
From: hacker@vudu.net
Date: Thu, 03 Oct 2002 06:01:38 -0700 (PDT)
Subject: Re: The 3rd Annual Consult Hyperion Digital Identity Forum
The guy messed up his own URL. It should be
http://www.digitalidforum.com which redirects to
http://www.consult.hyperion.co.uk/digid3.html
"R. A. Hettinga" wrote:
>
> Dear All,
>
> See www.digitalidentityforum.com for more details. Speakers
include
> Microsoft and Liberty Alliance, UK central and local government,
> law
share/SpamAssassin/easy_ham/00887.07d5efdf4a700dc6d1a7926e0008e57f view on Meta::CPAN
List-Id: New home of the TBTF Irregulars mailing list <irregulars.tb.tf>
List-Unsubscribe: <http://tb.tf/mailman/listinfo/irregulars>,
<mailto:irregulars-request@tb.tf?subject=unsubscribe>
List-Archive: <http://tb.tf/mailman/private/irregulars/>
Date: Fri, 04 Oct 2002 20:22:59 +0100
On 4/10/02 1:13 am, someone e-said:
> The guy messed up his own URL. It should be
> http://www.digitalidforum.com which redirects to
> http://www.consult.hyperion.co.uk/digid3.html
I didn't mess it up: I f*cked it up by not paying attention to a
copy-and-paste from something else.
Next time, I really will leave it to the PR guys.
Best regards,
Dave Birch.
_______________________________________________
share/SpamAssassin/easy_ham/00956.f566e64727b8f438aa73ee8d26e8f31d view on Meta::CPAN
Date: Tue, 27 Aug 2002 22:11:41 -0600
I may be wrong but I think a single select entry field is used
for selecting messages and switching folders. Restricting the entries
to be numeric would break the folder switching functionality, wouldn't
it?
My version of MsgChange, not yet updated, has a check
if {$msgid != {}} {
# Allow null msgid from Msg_ShowWhat, which supplies line instead
if {$msgid < 0} return
} else {
...
at the start of the procedure which takes care of the single '-' case.
Perhaps the thing to do is for MsgChange to validate a msgid as a
number before continuing.
Kevin
In message <200208280108.VAA30178@blackcomb.panasas.com>, Brent Welch writes:
> You can also duplicate thiswith
>
> MsgChange - noshow
>
> at the Tcl prompt in the Log window. I suspect that the sequence
share/SpamAssassin/easy_ham/00964.4c5e48c8c2668559fbc379616893f3a7 view on Meta::CPAN
> 2.5-release: 350-450 msec
> latest cvs: 1000-12000 msec
>
> Frankly I think this is getting close to non-acceptable since the
> user settings hasn't changed.
>
> Anybody have any ideas where performance disappeared?
Here's a fix that I think will make a real difference.
Ftoc_ShowSequences needs to be able to be called with an optional list of msgids
to update and if it's called that way it only removes or adds tags for those
messages. Then in places like MsgChange, we only update the messages which have
changed.
Also, a separate Ftoc_ShowSequence function which only updates the display of
one sequence should be written which also takes an optional list of msgids.
In a place like MsgChange, it would only need to update the cur sequence.
If nobody else gets to it, I'll do this when I get back.
Chris
--
Chris Garrigues http://www.DeepEddy.Com/~cwg/
virCIO http://www.virCIO.Com
716 Congress, Suite 200
share/SpamAssassin/easy_ham/01030.c51edb65048a8f86717b049b00ed7356 view on Meta::CPAN
List-Unsubscribe: <https://listman.spamassassin.taint.org/mailman/listinfo/exmh-workers>,
<mailto:exmh-workers-request@redhat.com?subject=unsubscribe>
List-Archive: <https://listman.spamassassin.taint.org/mailman/private/exmh-workers/>
Date: Sun, 22 Sep 2002 22:58:16 -0400
I just updated to the latest CVS - I had been running a build from June.
Hitting the Flist button gives the following traceback:
syntax error in expression "int(17+1+(222-)*(19-17-2)/(224-))"
while executing
"expr int($minLine+1+($msgid-$minMsg)*($maxLine-$minLine-2)/($maxMsg-$minMsg))"
(procedure "Ftoc_FindMsg" line 57)
invoked from within
"Ftoc_FindMsg $i"
(procedure "Ftoc_ShowSequences" line 16)
invoked from within
"Ftoc_ShowSequences $F"
(procedure "ScanFolder" line 81)
invoked from within
"ScanFolder inbox 0"
invoked from within
share/SpamAssassin/easy_ham/01127.979ce598c5cb0d3d68705e15040f5799 view on Meta::CPAN
Content-Type: text/plain; charset=us-ascii
> From: Scott Lipcon <slipcon@mercea.net>
> Date: Sun, 22 Sep 2002 22:58:16 -0400
>
> I just updated to the latest CVS - I had been running a build from June.
> Hitting the Flist button gives the following traceback:
>
> syntax error in expression "int(17+1+(222-)*(19-17-2)/(224-))"
> while executing
> "expr int($minLine+1+($msgid-$minMsg)*($maxLine-$minLine-2)/($maxMsg-$minMs
> g))"
> (procedure "Ftoc_FindMsg" line 57)
> invoked from within
> "Ftoc_FindMsg $i"
> (procedure "Ftoc_ShowSequences" line 16)
> invoked from within
> "Ftoc_ShowSequences $F"
> (procedure "ScanFolder" line 81)
> invoked from within
> "ScanFolder inbox 0"
share/SpamAssassin/easy_ham/01127.979ce598c5cb0d3d68705e15040f5799 view on Meta::CPAN
> "tkButtonUp .fops.flist
> "
> (command bound to event)
>
>
> It seems to only happen in a folder with no unseen messages.
>
> Chris, is this related to your recent changes?
Curious. I changed the arguments to Ftoc_ShowSequences to drop the folder
argument and instead have an optional msgids argument. Somehow your version
of ScanFolder is still trying to pass $F. You seem to have the latest
ftoc.tcl (1.36), but not the latest scan.tcl (1.27).
I don't know how that happened, but try getting your source tree completely
up to date.
Chris
--
Chris Garrigues http://www.DeepEddy.Com/~cwg/
share/SpamAssassin/easy_ham/01128.48db2981ac933d672bcc5203a7063305 view on Meta::CPAN
variable was pointing at my old installation. I'm surprised it worked
as well as it did.
In any case, I removed the old library directory, and edited exmh,
exmh-bg, exmh-strip, etc to point at the right one. Now I'm getting
another traceback on startup:
can't read "mhPriv(pubseq,family,cur)": no such variable
while executing
"MhSeq $folder $seq add $mhPriv(pubseq,$folder,$seq) [MhSeqExpand
$folder $msgids"
(procedure "MhReadSeqs" line 73)
invoked from within
"MhReadSeqs $folder seqs"
(procedure "Mh_Sequences" line 2)
invoked from within
"Mh_Sequences $folder"
(procedure "Flist_UnseenUpdate" line 4)
invoked from within
"Flist_UnseenUpdate $folder"
(procedure "FolderChange" line 51)
share/SpamAssassin/easy_ham/01128.48db2981ac933d672bcc5203a7063305 view on Meta::CPAN
Scott
> > From: Scott Lipcon <slipcon@mercea.net>
> > Date: Sun, 22 Sep 2002 22:58:16 -0400
> >
> > I just updated to the latest CVS - I had been running a build from June.
> > Hitting the Flist button gives the following traceback:
> >
> > syntax error in expression "int(17+1+(222-)*(19-17-2)/(224-))"
> > while executing
> > "expr int($minLine+1+($msgid-$minMsg)*($maxLine-$minLine-2)/($maxMsg-$minMs
> > g))"
> > (procedure "Ftoc_FindMsg" line 57)
> > invoked from within
> > "Ftoc_FindMsg $i"
> > (procedure "Ftoc_ShowSequences" line 16)
> > invoked from within
> > "Ftoc_ShowSequences $F"
> > (procedure "ScanFolder" line 81)
> > invoked from within
> > "ScanFolder inbox 0"
share/SpamAssassin/easy_ham/01128.48db2981ac933d672bcc5203a7063305 view on Meta::CPAN
> > "tkButtonUp .fops.flist
> > "
> > (command bound to event)
> >
> >
> > It seems to only happen in a folder with no unseen messages.
> >
> > Chris, is this related to your recent changes?
>
> Curious. I changed the arguments to Ftoc_ShowSequences to drop the folder
> argument and instead have an optional msgids argument. Somehow your version
> of ScanFolder is still trying to pass $F. You seem to have the latest
> ftoc.tcl (1.36), but not the latest scan.tcl (1.27).
>
> I don't know how that happened, but try getting your source tree completely
> up to date.
>
> Chris
>
> --
> Chris Garrigues http://www.DeepEddy.Com/~cwg/
share/SpamAssassin/easy_ham/01129.f7613b6d091c77280226d622f866dd9c view on Meta::CPAN
>
> > From: Scott Lipcon <slipcon@mercea.net>
> > Date: Sun, 22 Sep 2002 22:58:16 -0400
> >
> > I just updated to the latest CVS - I had been running a build from June.
>
> > Hitting the Flist button gives the following traceback:
> >
> > syntax error in expression "int(17+1+(222-)*(19-17-2)/(224-))"
> > while executing
> > "expr int($minLine+1+($msgid-$minMsg)*($maxLine-$minLine-2)/($maxMsg-$minMs
> > g))"
> > (procedure "Ftoc_FindMsg" line 57)
> > invoked from within
> > "Ftoc_FindMsg $i"
> > (procedure "Ftoc_ShowSequences" line 16)
> > invoked from within
> > "Ftoc_ShowSequences $F"
> > (procedure "ScanFolder" line 81)
> > invoked from within
> > "ScanFolder inbox 0"
share/SpamAssassin/easy_ham/01129.f7613b6d091c77280226d622f866dd9c view on Meta::CPAN
> > "tkButtonUp .fops.flist
> > "
> > (command bound to event)
> >
> >
> > It seems to only happen in a folder with no unseen messages.
> >
> > Chris, is this related to your recent changes?
>
> Curious. I changed the arguments to Ftoc_ShowSequences to drop the folder
> argument and instead have an optional msgids argument. Somehow your version
> of ScanFolder is still trying to pass $F. You seem to have the latest
> ftoc.tcl (1.36), but not the latest scan.tcl (1.27).
>
> I don't know how that happened, but try getting your source tree completely
> up to date.
Actually, I take that back. You're not running the latest ftoc.tcl either.
It probably is my bug, but it's in code that's been changed since you last
updated from CVS (Saturday), so please update and let's see if the problem is
share/SpamAssassin/easy_ham/01130.616ad0cc28de13b6deabe9dd13d0dfe0 view on Meta::CPAN
> variable was pointing at my old installation. I'm surprised it worked
> as well as it did.
>
> In any case, I removed the old library directory, and edited exmh,
> exmh-bg, exmh-strip, etc to point at the right one. Now I'm getting
> another traceback on startup:
>
> can't read "mhPriv(pubseq,family,cur)": no such variable
> while executing
> "MhSeq $folder $seq add $mhPriv(pubseq,$folder,$seq) [MhSeqExpand
> $folder $msgids"
> (procedure "MhReadSeqs" line 73)
> invoked from within
> "MhReadSeqs $folder seqs"
> (procedure "Mh_Sequences" line 2)
> invoked from within
> "Mh_Sequences $folder"
> (procedure "Flist_UnseenUpdate" line 4)
> invoked from within
> "Flist_UnseenUpdate $folder"
> (procedure "FolderChange" line 51)
share/SpamAssassin/easy_ham/01131.f0a4fc8a86ce5529ae7e96e86de6ad2f view on Meta::CPAN
I changed the default display of unseen messages from a foreground of blue to
a background of white to make it possible to see what other sequences unseen
messages may be in. I *did* ask Brent before I did it. If you like the old
behavior, the old lines are still in app-defaults-color, but commented out.
> If I click on a message, I get the following traceback:
>
> invalid command name "Mh_MarkSeen"
> while executing
> "Mh_MarkSeen $exmh(folder) $msgid"
> (procedure "Hook_MsgShow_update_unseen" line 5)
> invoked from within
> "$cmd $mhProfile(path)/$exmh(folder)/$msgid mimeHdr"
> (procedure "MsgShow" line 23)
> invoked from within
> "MsgShow $msgid"
> (procedure "MsgChange" line 18)
> invoked from within
> "MsgChange 66 show"
> invoked from within
> "time [list MsgChange $msgid $show"
> (procedure "Msg_Change" line 3)
> invoked from within
> "Msg_Change $msgNum $show"
> (procedure "Msg_Pick" line 8)
> invoked from within
> "Msg_Pick $lineno show"
> (procedure "FtocRangeEnd" line 12)
> invoked from within
> "FtocRangeEnd [lindex [split [.ftoc.t index current] .] 0] 0"
> (command bound to event)
This is because of your Hook_MsgShow_update_unseen which is calling a function
which no longer exists.
I suspect you need
Seq_Del $exmh(folder) unseen $msgid
now instead of
Mh_MarkSeen $exmh(folder) $msgid
> It appears that the message does get marked as seen though, as it
> loses the white background, and nmh reports the same.
>
> If I click the flist button, it zero's the unseen count, and then
> there is again a visible delay as it counts up all the unseen
> messages - maybe 3-4 seconds.
>
> I really think my installation is OK now, but if this behavior is just
> really strange I'll blow everything away and reinstall. I'm happy to
share/SpamAssassin/easy_ham/01132.2755d7d8107be0b804bb1f3f5ce29e83 view on Meta::CPAN
Finding it is probably more work than the actual fix.
> >
> > This is because of your Hook_MsgShow_update_unseen which is calling a fun
> ctio
> > n
> > which no longer exists.
> >
> > I suspect you need
> > Seq_Del $exmh(folder) unseen $msgid
> > now instead of
> > Mh_MarkSeen $exmh(folder) $msgid
> >
>
> Thanks. I'm not sure I'll need it with the new sequence code, but I
> might. Does your new code commit sequences immediately? The old code
> didn't, so I put that in to help keep my mh and exmh windows in sync.
Yes it does.
Chris
share/SpamAssassin/easy_ham/01134.ababef706c62d3b9efd341c1ee763c85 view on Meta::CPAN
List-Archive: <https://listman.spamassassin.taint.org/mailman/private/exmh-workers/>
Date: Wed, 25 Sep 2002 23:09:39 +0200
cwg-dated-1033065967.2dc492@DeepEddy.Com said:
> From: Chris Garrigues <cwg-exmh@DeepEddy.Com>
> Date: Wed, 28 Aug 2002 11:07:01 -0500 >
> Here's a fix that I think will make a real difference.
>
> Ftoc_ShowSequences needs to be able to be called with an optional
> list of msgids
> to update and if it's called that way it only removes or adds tags
> for those
> messages. Then in places like MsgChange, we only update the
> messages which have
> changed.
>
> Also, a separate Ftoc_ShowSequence function which only updates the
> display of
> one sequence should be written which also takes an optional list of
> msgids.
>
> In a place like MsgChange, it would only need to update the cur
> sequence.
>
> If nobody else gets to it, I'll do this when I get back.
> I just checked this in. Let me know if it helps.
> Chris
share/SpamAssassin/easy_ham/01163.8acc09ecc06772e532281df46843427e view on Meta::CPAN
Doesn't work at all. Got this on startup and on any attempt to change folder (which fail)
/Anders
can't read "flist(seqcount,lists/exmh,unseen)": no such element in array
(reading value of variable to increment)
invoked from within
"incr flist(seqcount,$folder,$seq) $delta"
(procedure "Seq_Del" line 16)
invoked from within
"Seq_Del $exmh(folder) $mhProfile(unseen-sequence) $msgid"
(procedure "MsgSeen" line 7)
invoked from within
"MsgSeen $msgid"
(procedure "MsgShow" line 12)
invoked from within
"MsgShow $msgid"
(procedure "MsgChange" line 17)
invoked from within
"MsgChange 73 show"
invoked from within
"time [list MsgChange $msgid $show"
(procedure "Msg_Change" line 3)
invoked from within
"Msg_Change $msg(id) $show"
(procedure "Msg_Show" line 7)
invoked from within
"Msg_Show cur"
("eval" body line 1)
invoked from within
"eval $msgShowProc"
(procedure "FolderChange" line 55)
share/SpamAssassin/easy_ham/01166.8ab8acc80452beed11a4b841a05d4456 view on Meta::CPAN
This is from today's cvs (the fixes for the problems I mentioned
yesterday are included) - I eventually managed to contact the cvs
server.
expected integer but got ""
while executing
"incr m"
(procedure "MhSeqExpand" line 12)
invoked from within
"MhSeqExpand $folder $msgids"
(procedure "MhSeq" line 2)
invoked from within
"MhSeq $folder $seq $how $oldmsgids $msgids"
(procedure "Mh_SequenceUpdate" line 54)
invoked from within
"Mh_SequenceUpdate $folder replace $seq $msgids"
(procedure "Seq_Set" line 4)
invoked from within
"Seq_Set $folder cur $msgid"
(procedure "Mh_SetCur" line 7)
invoked from within
"Mh_SetCur $exmh(folder) $msgid"
(procedure "MsgChange" line 5)
invoked from within
"MsgChange - noshow"
invoked from within
"time [list MsgChange $msgid $show"
(procedure "Msg_Change" line 3)
invoked from within
"Msg_Change $select(sel) noshow"
(procedure "SelectTypein" line 14)
invoked from within
"SelectTypein .mid.right.top.msg -"
(command bound to event)
kre
share/SpamAssassin/easy_ham/01336.82adb611b4bea7ae97c57911d3152cee view on Meta::CPAN
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
On Wed, Aug 28, 2002 at 12:14:24AM +0100, Justin Mason wrote:
> actually, I think procmail supports this directly. use DROPPRIVS=3Dyes
> at the top of the /etc/procmailrc.
Hey, look at that!
DROPPRIVS If set to `yes' procmail will drop all privileges
it might have had (suid or sgid). This is only
useful if you want to guarantee that the bottom half
of the /etc/procmailrc file is executed on behalf
of the recipient.
Of course, removing setuid/gid bits on programs that don't need it is
always a good idea. A general rule of system administration: don't give
out permissions unless you absolutely need to. ;)
--=20
Randomly Generated Tagline:
"The cardinal rule at our school is simple. No shooting at teachers. If
you have to shoot a gun, shoot it at a student or an administrator."
- "Word Smart II", from Princeton Review Pub.
--wLAMOaPNJ0fu1fTG
share/SpamAssassin/easy_ham/01503.5e13994a5676296ed31b14e83367031c view on Meta::CPAN
per-user-config files, run spamc as the user whose config
files spamd should load. If you're running spamc as some
other user though (eg. root, mail, nobody, cyrus, etc.)
then you can still use this flag.
The solution is to set DROPPRIVS=yes in /etc/procmailrc, just before running
spamc. From the procmailrc man page:
DROPPRIVS If set to `yes' procmail will drop all privileges
it might have had (suid or sgid). This is only
useful if you want to guarantee that the bottom
half of the /etc/procmailrc file is executed on
behalf of the recipient.
I hope that helps, and I also hope it's right!
St-
share/SpamAssassin/easy_ham/01554.0aed12846b3981a2a13adf793083e4f0 view on Meta::CPAN
style="border-collapse: collapse" bordercolor="#111111" width="620"
id="AutoNumber3">
<tr>
<td width="100%">
<p align="center">
<span style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">
<map name="FPMap0">
<area
href="http://www.buy.com/retail/searchresults.asp?orderby=4&querytype=&qutyp
e=0&qu=diskeeper&pagereq=1&alpha=&alpha2=&deptid=0&mfgpartno=&mfgid=0&search
id=0&loc=105&search_store=2" shape="rect" coords="491, 25, 576, 49">
<area
href="http://www2.warehouse.com/search/pppsmainsearch.asp?home=micro&qu=disk
eeper&imenu=&so=X&Search.x=6&Search.y=12" shape="rect" coords="191, 69, 328,
101">
<area
href="http://www.pcconnection.com/scripts/searchresults.asp?BasicSrchText=di
skeeper&SR=1&ER=10&TR=0&ST=BS&PP=0&sortval=Price&plattype=A&Search.x=40&Sear
ch.y=12" shape="rect" coords="3, 8, 165, 52">
<area
share/SpamAssassin/easy_ham/01561.4d9ed1a0103b1a90cfd91921b9014124 view on Meta::CPAN
ZGVidWcoInJlbmFtZSBcIiRhXCIgdG8gXCIkYlwiIik7CgkJJG9wdF9uIHx8IHJlbmFtZSgk
YSwgJGIpIHx8IGRpZSgicmVuYW1lKCRhLCAkYik6ICQhIik7Cgl9Cn0KCjsjCnN1YiBzYWZl
X2NvbXByZXNzIHsKCWxvY2FsKCRhKSA9IEBfOwoKCWlmICgteiAkYSkgeyAjIGNvbXByZXNz
IHdpbGwgZmFpbCBpbiB0aGlzIGNhc2UKCQkmZGVidWcoIndlIHdvbid0IGNvbXByZXNzIHpl
cm8tc2l6ZWQgZmlsZTogXCIkYVwiIik7Cgl9IGVsc2UgewoJCSZkZWJ1ZygiY29tcHJlc3Mg
XCIkYVwiIik7CgkJJG9wdF9uCXx8IHN5c3RlbSgnY29tcHJlc3MnLCAkYSkgPT0gMAoJCQl8
fCBkaWUoInN5c3RlbShjb21wcmVzcywgJGEpOiBmYWlsdXJlLlxuIik7Cgl9Cn0KCjsjCnN1
YiBzYWZlX2d6aXAgewoJbG9jYWwoJGEpID0gQF87CgoJJmRlYnVnKCJnemlwIFwiJGFcIiIp
OwoJJG9wdF9uCXx8IHN5c3RlbSgnZ3ppcCcsICRhKSA9PSAwCgkJfHwgZGllKCJzeXN0ZW0o
Z3ppcCwgJGEpOiBmYWlsdXJlLlxuIik7Cn0KCjsjIENyZWF0ZSBhIG5ldyBvbmUKc3ViIHNh
ZmVfY3JlYXRlIHsKCWxvY2FsKCRhKSA9IHNoaWZ0OwoKCSZkZWJ1ZygidG91Y2ggXCIkYVwi
Iik7Cgkkb3B0X24gfHwgJnRvdWNoKCRhKSB8fCBkaWUoInRvdWNoKCRhKTogJCEiKTsKCgkj
IHNldCBvd25lciBhbmQgZ3JvdXAKCWlmIChkZWZpbmVkKCRvcHRfbykgfHwgZGVmaW5lZCgk
b3B0X2cpKSB7CgkJbG9jYWwoJHVpZCwgJGdpZCkgPSAoc3RhdCgkYSkpWzQsIDVdOwoJCSFk
ZWZpbmVkKCRvcHRfbykKCQkJfHwgKCgkdWlkID0gJG9wdF9vKSA9fiAvXlxkKyQvKQoJCQl8
fCBkZWZpbmVkKCR1aWQgPSBnZXRwd25hbSgkb3B0X28pKQoJCQl8fCBkaWUoImdldHB3bmFt
KCRvcHRfbyk6ICQhIik7CgkJIWRlZmluZWQoJG9wdF9nKQoJCQl8fCAoKCRnaWQgPSAkb3B0
X2cpID1+IC9eXGQrJC8pCgkJCXx8IGRlZmluZWQoJGdpZCA9IGdldGdybmFtKCRvcHRfZykp
CgkJCXx8IGRpZSgiZ2V0Z3JuYW0oJG9wdF9nKTogJCEiKTsKCQkmZGVidWcoImNob3duKCR1
aWQsICRnaWQsIFwiJGFcIikiKTsKCQkkb3B0X24JfHwgY2hvd24oJHVpZCwgJGdpZCwgJGEp
CgkJCXx8IGRpZSgiY2hvd24oJGEpOiAkISIpOwoJfQoKCSMgc2V0IGZpbGUgbW9kZQoJaWYg
share/SpamAssassin/easy_ham/01568.ef4cc7ced238f479403332ec27f3e562 view on Meta::CPAN
> ing setuid at /usr/local/lib/perl5/site_perl/5.6.1/Razor2/Client/Config.pm
line
> 410, <GEN23> line 1.
> >From info@znion.com Thu Sep 5 11:55:15 2002
> Subject: *****SPAM***** Computer Maintenance
> Folder: /home/eugene/caughtspam
8343
It looks like you're running via procmail -- what are the permissions
on procmail? "Insecure dependency" screams "I'm in taint mode!", which
is a typical problem when procmail is setuid/setgid (the permissions
should be 755).
If this is in fact the problem, an easy solution is to put "DROPPRIVS=yes"
in the procmailrc. :)
--
Randomly Generated Tagline:
"The bus had no heat, blew over in the wind and used the driver's legs
as its first line of defense in an accident." - Unknown about the VW Bus
share/SpamAssassin/easy_ham/01571.a12d989267cd61ed856ebc41cc9075bc view on Meta::CPAN
> ing setuid at /usr/local/lib/perl5/site_perl/5.6.1/Razor2/Client/Config.p=
m line
> 410, <GEN23> line 1.
> >From info@znion.com Thu Sep 5 11:55:15 2002
> Subject: *****SPAM***** Computer Maintenance
> Folder: /home/eugene/caughtspam =
8343
It looks like you're running via procmail -- what are the permissions
on procmail? "Insecure dependency" screams "I'm in taint mode!", which
is a typical problem when procmail is setuid/setgid (the permissions
should be 755).
If this is in fact the problem, an easy solution is to put "DROPPRIVS=3Dyes"
in the procmailrc. :)
--=20
Randomly Generated Tagline:
"The bus had no heat, blew over in the wind and used the driver's legs
as its first line of defense in an accident." - Unknown about the VW Bus
share/SpamAssassin/easy_ham/01576.6b733eba3bd6a287e0ef2a99b9afbd68 view on Meta::CPAN
> > ing setuid at /usr/local/lib/perl5/site_perl/5.6.1/Razor2/Client/Config.pm
> line
> > 410, <GEN23> line 1.
> > >From info@znion.com Thu Sep 5 11:55:15 2002
> > Subject: *****SPAM***** Computer Maintenance
> > Folder: /home/eugene/caughtspam
> 8343
>
> It looks like you're running via procmail -- what are the permissions
> on procmail? "Insecure dependency" screams "I'm in taint mode!", which
> is a typical problem when procmail is setuid/setgid (the permissions
> should be 755).
>
> If this is in fact the problem, an easy solution is to put "DROPPRIVS=yes"
> in the procmailrc. :)
>
> --
> Randomly Generated Tagline:
> "The bus had no heat, blew over in the wind and used the driver's legs
> as its first line of defense in an accident." - Unknown about the VW Bus
>
share/SpamAssassin/easy_ham/01881.5fd0ccb8cf61b46dac75efd3aa4893f4 view on Meta::CPAN
From: diveintomark <rssfeeds@spamassassin.taint.org>
Subject: Parallels
Date: Wed, 25 Sep 2002 08:00:14 -0000
Content-Type: text/plain; encoding=utf-8
URL: http://diveintomark.org/archives/2002/09/24.html#parallels
Date: 2002-09-24T20:38:57-05:00
_Jeffrey Zeldman_: OS X Blues update[1].
A couple of intellectuals have pointed out parallels between the rigidity
of OS X, which derives its power from Unix and XML, and the rules of
standards-based web development, which also compels you to do things the
right way instead of using five different non-standard hacks. The parallel
is not without merit. Building web pages the right way is hard at first,
but once you get it, you never want to go back. Regardless, we miss OS 9's
flexibility and ease of use, and a metric ton of logic doesn't offset that
feeling of loss.
share/SpamAssassin/easy_ham_2/00001.1a31cc283af0060967a233d26548a6ce view on Meta::CPAN
"if {$flist(totalcount,$mhProfile(unseen-sequence)) > 0} {
FlagInner spool iconspool labelup
} else {
FlagInner down icondown labeldown
}"
(procedure "Flag_MsgSeen" line 3)
invoked from within
"Flag_MsgSeen"
(procedure "MsgSeen" line 8)
invoked from within
"MsgSeen $msgid"
(procedure "MsgShow" line 12)
invoked from within
"MsgShow $msgid"
(procedure "MsgChange" line 17)
invoked from within
"MsgChange 4862 show"
invoked from within
"time [list MsgChange $msgid $show"
(procedure "Msg_Change" line 3)
invoked from within
"Msg_Change $msg(id) $show"
(procedure "Msg_Show" line 7)
invoked from within
"Msg_Show cur"
("eval" body line 1)
invoked from within
"eval $msgShowProc"
(procedure "FolderChange" line 55)
share/SpamAssassin/easy_ham_2/00001.1a31cc283af0060967a233d26548a6ce view on Meta::CPAN
(to mark the message with a sequence name that didn't previously exist,
which can be done now using "Search" and the pick interface, but is
clumsy that way)
Actually, you once could, now when I try this, entering a sequence name
in the pick box, and a single message number, or a range N-N in the
list of messages, and no pick attributes at all, I now get ...
syntax error in expression "int(1+1+(1 hit-1)*(3868-1-2)/(4878-1))"
while executing
"expr int($minlineno+1+($msgid-$minmsgid)*($maxlineno-$minlineno-2)/($maxmsgid-$minmsgid))"
(procedure "Ftoc_FindMsg" line 46)
invoked from within
"Ftoc_FindMsg $msg"
(procedure "Ftoc_FindMsgs" line 5)
invoked from within
"Ftoc_FindMsgs $msgids"
(procedure "Ftoc_PickMsgs" line 5)
invoked from within
"Ftoc_PickMsgs $pick(ids) $pick(addtosel)"
(procedure "PickInner" line 13)
invoked from within
"PickInner {exec pick +inbox -list} {4852 -sequence mercury}"
("uplevel" body line 1)
invoked from within
"uplevel #0 $cmd"
(procedure "busyCursorInner" line 8)
share/SpamAssassin/easy_ham_2/00004.b2ed6c3c62bbdfab7683d60e214d1445 view on Meta::CPAN
> "if {$flist(totalcount,$mhProfile(unseen-sequence)) > 0} {
> FlagInner spool iconspool labelup
> } else {
> FlagInner down icondown labeldown
> }"
> (procedure "Flag_MsgSeen" line 3)
> invoked from within
> "Flag_MsgSeen"
> (procedure "MsgSeen" line 8)
> invoked from within
> "MsgSeen $msgid"
> (procedure "MsgShow" line 12)
> invoked from within
> "MsgShow $msgid"
> (procedure "MsgChange" line 17)
> invoked from within
> "MsgChange 4862 show"
> invoked from within
> "time [list MsgChange $msgid $show"
> (procedure "Msg_Change" line 3)
> invoked from within
> "Msg_Change $msg(id) $show"
> (procedure "Msg_Show" line 7)
> invoked from within
> "Msg_Show cur"
> ("eval" body line 1)
> invoked from within
> "eval $msgShowProc"
> (procedure "FolderChange" line 55)
share/SpamAssassin/easy_ham_2/00004.b2ed6c3c62bbdfab7683d60e214d1445 view on Meta::CPAN
> (to mark the message with a sequence name that didn't previously exist,
> which can be done now using "Search" and the pick interface, but is
> clumsy that way)
>
> Actually, you once could, now when I try this, entering a sequence name
> in the pick box, and a single message number, or a range N-N in the
> list of messages, and no pick attributes at all, I now get ...
>
> syntax error in expression "int(1+1+(1 hit-1)*(3868-1-2)/(4878-1))"
> while executing
> "expr int($minlineno+1+($msgid-$minmsgid)*($maxlineno-$minlineno-2)/($maxms
> gid-$minmsgid))"
> (procedure "Ftoc_FindMsg" line 46)
> invoked from within
> "Ftoc_FindMsg $msg"
> (procedure "Ftoc_FindMsgs" line 5)
> invoked from within
> "Ftoc_FindMsgs $msgids"
> (procedure "Ftoc_PickMsgs" line 5)
> invoked from within
> "Ftoc_PickMsgs $pick(ids) $pick(addtosel)"
> (procedure "PickInner" line 13)
> invoked from within
> "PickInner {exec pick +inbox -list} {4852 -sequence mercury}"
> ("uplevel" body line 1)
> invoked from within
> "uplevel #0 $cmd"
> (procedure "busyCursorInner" line 8)
share/SpamAssassin/easy_ham_2/00006.654c4ec7c059531accf388a807064363 view on Meta::CPAN
app-defaults-color or ~/exmh/exmh-defaults-color. I've been thinking about
how to dynamically generate highlighting for other sequences, but haven't got
that figured out yet.
> > Actually, you once could, now when I try this, entering a sequence name
> > in the pick box, and a single message number, or a range N-N in the
> > list of messages, and no pick attributes at all, I now get ...
> >
> > syntax error in expression "int(1+1+(1 hit-1)*(3868-1-2)/(4878-1))"
> > while executing
> > "expr int($minlineno+1+($msgid-$minmsgid)*($maxlineno-$minlineno-2)/($max
> ms
> > gid-$minmsgid))"
> > (procedure "Ftoc_FindMsg" line 46)
> > invoked from within
> > "Ftoc_FindMsg $msg"
> > (procedure "Ftoc_FindMsgs" line 5)
> > invoked from within
> > "Ftoc_FindMsgs $msgids"
> > (procedure "Ftoc_PickMsgs" line 5)
> > invoked from within
> > "Ftoc_PickMsgs $pick(ids) $pick(addtosel)"
> > (procedure "PickInner" line 13)
> > invoked from within
> > "PickInner {exec pick +inbox -list} {4852 -sequence mercury}"
> > ("uplevel" body line 1)
> > invoked from within
> > "uplevel #0 $cmd"
> > (procedure "busyCursorInner" line 8)
( run in 5.195 seconds using v1.01-cache-2.11-cpan-5735350b133 )