2006-03-26 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> (tiny change)

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50fa376..7e23fa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-26  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>  (tiny change)
+
+       * message.el (message-resend): Bind message-generate-hashcash to
+       to nil.
+
 2006-03-26  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>  (tiny change)
 
        * hashcash.el (hashcash-already-paid-p): Bind case-fold-search

diff --git a/lisp/message.el b/lisp/message.el
index aa39d03..f5c04c7 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6507,6 +6507,7 @@ Optional DIGEST will use digest to forward."
        (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,6 +6545,7 @@ Optional DIGEST will use digest to forward."
       ;; 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)))