(message-generate-hashcash): Honor custom type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f87f00f..6c6f4da 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,12 +1,16 @@
+2006-04-18  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-generate-hashcash): Honor custom type.
+
 2006-04-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-generate-hashcash): Default to non-nil when
        hashcash is found.
 
-       * gnus-sum.el (gnus-summary-expire-articles-now): Clarify prompt. 
+       * gnus-sum.el (gnus-summary-expire-articles-now): Clarify prompt.
        (gnus-refer-thread-limit): Increase default to 500.
 
-       * mm-view.el (mm-inline-text): Supply delsp to flow-fill. 
+       * mm-view.el (mm-inline-text): Supply delsp to flow-fill.
 
        * flow-fill.el (fill-flowed): Allow delete-space.
 

diff --git a/lisp/message.el b/lisp/message.el
index 55ba5c6..fd859cd 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1514,7 +1514,7 @@ functionality to work."
                 (const :tag "Never" nil)
                 (const :tag "Always" t)))
 
-(defcustom message-generate-hashcash (executable-find "hashcash")
+(defcustom message-generate-hashcash (if (executable-find "hashcash") t)
   "*Whether to generate X-Hashcash: headers.
 You must have the \"hashcash\" binary installed, see `hashcash-path'."
   :group 'message-headers