Re: hashcash: duplicate payments

[Andreas Seltenreich <andreas+ding@gate450.dyndns.org>]

[-- Attachment #1: Type: text/plain, Size: 478 bytes --]

Andreas Seltenreich schrob:

> X-Hashcash: 1:24:060326:ding@gnus.org::S1H1LHoTY/UosfJN:0000ymPT
> X-Hashcash: 1:24:060326:ding@gnus.org::bZhXJcbr0RqrGqAV:00008EL9

Apparently, the hashcash code is also run on temporary buffers during
resending. Is binding message-generate-hashcash at those places an
acceptable solution?

regards,
andreas

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

	* message.el (message-resend): Bind message-generate-hashcash to
	to nil.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.el.patch --]
[-- Type: text/x-patch, Size: 878 bytes --]

Index: message.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/message.el,v
retrieving revision 7.135
diff -c -r7.135 message.el
*** message.el	15 Mar 2006 18:03:48 -0000	7.135
--- message.el	26 Mar 2006 19:57:40 -0000
***************
*** 6507,6512 ****
--- 6507,6513 ----
  	(set-buffer (get-buffer-create " *message resend*"))
  	(erase-buffer))
        (let ((message-this-is-mail t)
+ 	    message-generate-hashcash
  	    message-setup-hook)
  	(message-setup `((To . ,address))))
        ;; Insert our usual headers.
***************
*** 6544,6549 ****
--- 6545,6551 ----
        ;; Send it.
        (let ((message-inhibit-body-encoding t)
  	    message-required-mail-headers
+ 	    message-generate-hashcash
  	    rfc2047-encode-encoded-words)
  	(message-send-mail))
        (kill-buffer (current-buffer)))