From c844222db7daa9cae13bb5413a77c33cd0302637 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Thu, 7 Aug 2003 12:57:06 -0800
Subject: [PATCH] [project @ 2003-08-07 13:57:06 by cjwatson] Allow "-" in
 pseudo-header names; reported by "solo turn".

---
 scripts/process.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/process.in b/scripts/process.in
index 5ae31922..f2410f65 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.77 2003/08/06 10:57:23 cjwatson Exp $
+# $Id: process.in,v 1.78 2003/08/07 13:57:06 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -133,7 +133,7 @@ if (@bodylines and $bodylines[0] =~ /^-----BEGIN PGP SIGNED/) {
 # extract pseudo-headers
 for my $phline (@bodylines)
 {
-    last if $phline !~ m/^([\w]+):\s*(\S.*)/;
+    last if $phline !~ m/^([\w-]+):\s*(\S.*)/;
     my ($fn, $fv) = ($1, $2);
     $fv =~ s/\s*$//;
     print DEBUG ">$fn|$fv|\n";
-- 
2.39.5