From: minima Date: Thu, 4 Oct 2001 10:48:31 +0000 (+0000) Subject: ignore deleted messages when queueing X-Git-Tag: R_1_49~72 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f332799c52ae678ea8a9408aa97425fab4087a2;p=spider.git ignore deleted messages when queueing --- diff --git a/Changes b/Changes index 44760971..1c0df002 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ 1. allow a residence time of (default) 2 days before actually deleting a msg. 2. reduce the number R: lines on a bull from a bbs to 2 (the origin and the last port of call). +3. ignore deleted messages for queuing purposes 03Oct01======================================================================= 1. don't allow @WWW to become a 'TO' field... 2. handle @gb7tlh.#35.eu type addresses as well diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 75a0c452..118d9910 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -648,6 +648,7 @@ sub queue_msg $ref->del_msg; next; } + next if $ref->{delete}; # firstly, is it private and unread? if so can I find the recipient # in my cluster node list offsite?