projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix spurious 'new message' message for unread deleted personals
[spider.git]
/
perl
/
DXMsg.pm
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 598dc7ea4cefd04771d0a19dc226e491c5d22fe9..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