From 2e4f9782e13b613b1a2a7e525ba57e6f7062317d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 15 Mar 2011 02:22:40 +0100
Subject: Fix Hashcash support.

---
 mulkcms.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'mulkcms.lisp')

diff --git a/mulkcms.lisp b/mulkcms.lisp
index 40bfc92..8f1e2ce 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -30,7 +30,8 @@
 
 
 (defun hashcash-hash-validp (text)
-  (let ((digest (ironclad:digest-sequence 'ironclad:sha256 (flexi-streams:string-to-octets text))))
+  (let* ((stripped-text (ppcre:regex-replace-all "\\s+" text ""))
+         (digest (ironclad:digest-sequence 'ironclad:sha256 (flexi-streams:string-to-octets stripped-text :external-format :utf8))))
     (every #'zerop (subseq digest 0 2))))
 
 
-- 
cgit v1.2.3