From 2f332799c52ae678ea8a9408aa97425fab4087a2 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 4 Oct 2001 10:48:31 +0000
Subject: [PATCH] ignore deleted messages when queueing

---
 Changes       | 1 +
 perl/DXMsg.pm | 1 +
 2 files changed, 2 insertions(+)

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?
-- 
2.34.1