From 199c2164a4ab6d14f293d5d2ec004da70f494c4a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Tue, 8 Jul 2003 03:12:04 +0000
Subject: [PATCH] default the  header to "unknown"

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@164 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/sender_permitted_from | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/plugins/sender_permitted_from b/plugins/sender_permitted_from
index 7926c81..fe0baa7 100644
--- a/plugins/sender_permitted_from
+++ b/plugins/sender_permitted_from
@@ -75,8 +75,10 @@ sub _uri_escape {
 
 sub data_handler {
     my ($self, $transaction) = @_;
-    
-    $transaction->header->add('Received-SPF' => $self->qp->connection->notes('spf_header'), 0);
+
+    my $header = $self->qp->connection->notes('spf_header') || 'unknown';
+
+    $transaction->header->add('Received-SPF' => $header, 0);
 
     return DECLINED;
 }