From 2f332799c52ae678ea8a9408aa97425fab4087a2 Mon Sep 17 00:00:00 2001 From: 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.43.0