From 5f735a6a6866b69e109f7f315e7c4a85cebac070 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Sun, 18 Mar 2001 05:17:07 -0800
Subject: [PATCH] [project @ 2001-03-18 05:17:07 by doogie] Use Resent-From: if
 From: doesn't exist.

---
 scripts/service.in | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scripts/service.in b/scripts/service.in
index 5c6e6414..1b611461 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.32 2001/01/27 21:46:27 joy Exp $
+# $Id: service.in,v 1.33 2001/03/18 05:17:07 doogie Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -54,6 +54,9 @@ for ($i=0; $i<=$#msg; $i++)
     } else { print "!>$_<\n" if $debug; }
 }
 
+if (defined $header{'resent-from'} && !defined $header{'from'}) {
+    $header{'from'} = $header{'resent-from'};
+}
 defined($header{'from'}) || &quit("no From header");
 delete $header{'reply-to'} if ( defined($header{'reply-to'}) && $header{'reply-to'} =~ m/^\s*$/ );
 if ( defined($header{'reply-to'}) && $header{'reply-to'} ne "" ) {
-- 
2.39.5