From a5ecd41e7293c171a90a8c1c66da7ceba256c7b1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hinrik=20=C3=96rn=20Sigur=C3=B0sson?= <hinrik.sig@gmail.com>
Date: Tue, 15 Sep 2009 17:21:02 +0000
Subject: [PATCH] Allow hyphens in the 1st argument to queue/maildir

This is to allow some perfectly reasonable path names like
/var/spool/qpsmtpd-maildir, etc.
---
 Changes               | 1 +
 plugins/queue/maildir | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index b3c5fe8..c5f6a35 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,4 @@
+  plugins/queue/maildir: Allow hyphens in the maildir path
 
   Temporary deny if clamd is not running
 
diff --git a/plugins/queue/maildir b/plugins/queue/maildir
index dd804f5..f005f44 100644
--- a/plugins/queue/maildir
+++ b/plugins/queue/maildir
@@ -85,7 +85,7 @@ sub register {
   my ($self, $qp, @args) = @_;
 
   if (@args > 0) {
-    ($self->{_maildir}) = ($args[0] =~ m!([/\w\.]+)!);
+    ($self->{_maildir}) = ($args[0] =~ m!([-/\w\.]+)!);
   }
 
   if (@args > 1) {