Re: hashcash: duplicate payments

[Simon Josefsson <jas@extundo.com>]

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

> 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?

It seems slightly out of place, but I can't think of a better
solution, so I installed it.  Thanks!

> regards,
> andreas
>
> 2006-03-26  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
>
> 	* message.el (message-resend): Bind message-generate-hashcash to
> 	to nil.
>
> 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)))