2006-03-26 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>

[gnus] / lisp / hashcash.el

diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index e4745b4..ac2e4a4 100644 (file)
--- a/lisp/hashcash.el
+++ b/lisp/hashcash.el
@@ -210,7 +210,8 @@ Return immediately.  Call CALLBACK with process and result when ready."
   (save-excursion
     (save-restriction
       (message-narrow-to-headers-or-head)
-      (let ((token (message-fetch-field "x-hashcash")))
+      (let ((token (message-fetch-field "x-hashcash"))
+           (case-fold-search t))
        (and (stringp token)
             (string-match (regexp-quote recipient) token))))))