From: Simon Josefsson <jas@extundo.com>
Date: Mon, 27 Mar 2006 09:39:48 +0000 (+0000)
Subject: 2006-03-26  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=fd04e2e478e7d90a55c8ef906c54be1cdf6a94b1;p=gnus

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

	* hashcash.el (hashcash-already-paid-p): Bind case-fold-search
	when searching for already-paid recipients.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 669505ae3..c1226e33c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-26  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+	* hashcash.el (hashcash-already-paid-p): Bind case-fold-search
+	when searching for already-paid recipients.
+
 2006-03-27  Daiki Ueno  <ueno@unixuser.org>
 
 	* pgg-gpg.el: Invoke gpg asynchronous, to avoid querying for
diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index e4745b4bd..ac2e4a46c 100644
--- 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))))))