Re: hashcash: duplicate payments

[Simon Josefsson <jas@extundo.com>]

Andreas Seltenreich <andreas+ding@gate450.dyndns.org> writes:

> Hi,
>
> I just noticed that mail-add-payment (called from message-send-message)
> doesn't recognise asynchronously generated payments for addresses that
> contain uppercase characters. Attached is a patch that makes the test
> case-insensitive.
>
> An alternative solution would be to supply the "-C" option to the
> external hashcash program, but IMHO this would unnecessarily restrict
> the user in his customisation needs (hashcash-extra-generate-parameters).
>
> Thanks,
> andreas
>
> 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.

Applied, thanks!

> Index: hashcash.el
> ===================================================================
> RCS file: /usr/local/cvsroot/gnus/lisp/hashcash.el,v
> retrieving revision 7.14
> diff -c -r7.14 hashcash.el
> *** hashcash.el	6 Jul 2005 06:42:01 -0000	7.14
> --- hashcash.el	26 Mar 2006 16:49:17 -0000
> ***************
> *** 210,216 ****
>     (save-excursion
>       (save-restriction
>         (message-narrow-to-headers-or-head)
> !       (let ((token (message-fetch-field "x-hashcash")))
>   	(and (stringp token)
>   	     (string-match (regexp-quote recipient) token))))))
>   
> --- 210,217 ----
>     (save-excursion
>       (save-restriction
>         (message-narrow-to-headers-or-head)
> !       (let ((token (message-fetch-field "x-hashcash"))
> ! 	    (case-fold-search t))
>   	(and (stringp token)
>   	     (string-match (regexp-quote recipient) token))))))
>