projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix problem with invalid callsigns starting with 0
[spider.git]
/
cmd
/
read.pl
diff --git
a/cmd/read.pl
b/cmd/read.pl
index fbd243cf3513a326653f8dfe9d0588c5941fb558..9d57307fa80b2edf78a285ec49275ee168dfd6ae 100644
(file)
--- a/
cmd/read.pl
+++ b/
cmd/read.pl
@@
-17,7
+17,7
@@
my $ref;
# that I haven't read yet
if (@f == 0) {
foreach $ref (DXMsg::get_all()) {
# that I haven't read yet
if (@f == 0) {
foreach $ref (DXMsg::get_all()) {
- if ($ref->to eq $self->call && $ref->private && !$ref->read) {
+ if ($ref->to eq $self->call && $ref->private && !$ref->read
&& !$ref->delete
) {
push @f, $ref->msgno;
last;
}
push @f, $ref->msgno;
last;
}
@@
-41,13
+41,13
@@
for $msgno (@f) {
@body = $ref->read_msg_body;
push @out, @body;
@body = $ref->read_msg_body;
push @out, @body;
- # mark
my privates
as read
-
if ($ref->private && $self->call eq $ref->to && $ref->read == 0
) {
- $ref->read(1);
+ # mark
it
as read
+
unless ($ref->private && $ref->to ne $self->call
) {
+ $ref->read(
$ref->read() +
1);
$ref->store(\@body); # note call by reference!
# if it had a read receipt on it generate a new message to send back to
$ref->store(\@body); # note call by reference!
# if it had a read receipt on it generate a new message to send back to
- # the sender.
+
# the sender.
if ($ref->rrreq) {
my $sub = $ref->subject;
$sub = "Re: $sub" unless $sub =~ /^\s*re:/i;
if ($ref->rrreq) {
my $sub = $ref->subject;
$sub = "Re: $sub" unless $sub =~ /^\s*re:/i;
@@
-62,12
+62,12
@@
for $msgno (@f) {
DXMsg::add_dir($rref);
DXMsg::queue_msg(0);
}
DXMsg::add_dir($rref);
DXMsg::queue_msg(0);
}
- }
- # remember this one as the last one read
- $self->lastread($msgno);
-
-
+ # remember this one as the last one read
+ $self->lastread($msgno);
+ }
}
return (1, @out);
}
return (1, @out);
+
+