projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changed the checking of PC19/21 that it doesn't alter the wrong node
[spider.git]
/
perl
/
DXMsg.pm
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index cd3bf74b0f757922abcb78545cd274899d31aa41..d5a168e7ced7e20120d5e44af2493fdfcf07b1ce 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-788,14
+788,15
@@
sub for_me
{
my $call = uc shift;
my $ref;
{
my $call = uc shift;
my $ref;
+ my $count;
foreach $ref (@msg) {
# is it for me, private and unread?
if ($ref->{to} eq $call && $ref->{private}) {
foreach $ref (@msg) {
# is it for me, private and unread?
if ($ref->{to} eq $call && $ref->{private}) {
-
return 1 if !$ref->{'read'
};
+
$count++ unless $ref->{'read'} || $ref->{delete
};
}
}
}
}
- return
0
;
+ return
$count
;
}
# start the message off on its travels with a PC28
}
# start the message off on its travels with a PC28
@@
-1092,7
+1093,7
@@
sub do_send_stuff
$loc->{reject}++;
}
$loc->{reject}++;
}
- if (@{$loc->{lines}}) {
+ if (
$loc->{lines} &&
@{$loc->{lines}}) {
push @{$loc->{lines}}, length($line) > 0 ? $line : " ";
} else {
# temporarily store any R: lines so that we end up with
push @{$loc->{lines}}, length($line) > 0 ? $line : " ";
} else {
# temporarily store any R: lines so that we end up with