From: minima <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?p=spider.git;a=commitdiff_plain;h=2f332799c52ae678ea8a9408aa97425fab4087a2

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?