From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62409 Path: news.gmane.org!not-for-mail From: Andreas Seltenreich Newsgroups: gmane.emacs.gnus.general Subject: hashcash: duplicate payments Date: Sun, 26 Mar 2006 19:53:45 +0200 Message-ID: <87veu1hz2u.fsf@gate450.dyndns.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1143395845 10597 80.91.229.2 (26 Mar 2006 17:57:25 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 26 Mar 2006 17:57:25 +0000 (UTC) Original-X-From: ding-owner+m10935@lists.math.uh.edu Sun Mar 26 19:57:24 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FNZUQ-0007Wm-W0 for ding-account@gmane.org; Sun, 26 Mar 2006 19:57:23 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FNZUL-0000Tb-00; Sun, 26 Mar 2006 11:57:17 -0600 Original-Received: from nas01.math.uh.edu ([129.7.128.39]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FNZTV-0000TW-00 for ding@lists.math.uh.edu; Sun, 26 Mar 2006 11:56:25 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas01.math.uh.edu with esmtp (Exim 4.52) id 1FNZTT-0002Fx-2W for ding@lists.math.uh.edu; Sun, 26 Mar 2006 11:56:24 -0600 Original-Received: from smtp2.rz.uni-karlsruhe.de ([129.13.185.218]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FNZTO-0007ab-00 for ; Sun, 26 Mar 2006 19:56:18 +0200 Original-Received: from rzstud1.stud.uni-karlsruhe.de (rzstud1.stud.uni-karlsruhe.de [193.196.41.33]) by smtp2.rz.uni-karlsruhe.de with esmtp (Exim 4.50 #1) id 1FNZTN-0003iU-EX; Sun, 26 Mar 2006 19:56:17 +0200 Original-Received: from uwi7 by rzstud1.stud.uni-karlsruhe.de with local (Exim 3.36 #1) id 1FNZTV-0003cv-00 for ding@gnus.org; Sun, 26 Mar 2006 19:56:25 +0200 Resent-To: ding@gnus.org Resent-From: Andreas Seltenreich Resent-Date: Sun, 26 Mar 2006 19:56:14 +0200 Resent-Message-ID: <87r74phyyp.fsf@gate450.dyndns.org> Original-To: ding@gnus.org X-PGP-Key: 0x2C006B340F8C8C1B X-Now-Playing: Katatonia / The Great Cold Distance X-Face: $:F<87a[gD1?#R6S3j21cr1&C&7bd63GHC.tSdskUb}hhwG(ci*=D5kJ<_N+p9q(7-,PnG. Et.Yh --=-=-= 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 * hashcash.el (hashcash-already-paid-p): Bind case-fold-search when searching for already-paid recipients. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=hashcash.el.patch 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)))))) --=-=-=--