(hashcash-check-payment): Revert.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17f6a1d..9c97c2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,6 @@
 2004-09-28  Simon Josefsson  <jas@extundo.com>
 
-       * hashcash.el (hashcash-generate-payment)
-       (hashcash-check-payment): Use error.
+       * hashcash.el (hashcash-generate-payment): Revert.
 
 2004-09-28  Teodor Zlatanov  <tzz@lifelogs.com>
 

diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index fd9190a..1305c3c 100644 (file)
--- a/lisp/hashcash.el
+++ b/lisp/hashcash.el
@@ -1,7 +1,7 @@
 ;;; hashcash.el --- Add hashcash payments to email
 
-;; Copyright (C) 1997--2002 Paul E. Foley
 ;; Copyright (C) 2003, 2004 Free Software Foundation
+;; Copyright (C) 1997--2002 Paul E. Foley
 
 ;; Maintainer: Paul Foley <mycroft@actrix.gen.nz>
 ;; Keywords: mail, hashcash
@@ -130,7 +130,10 @@ is used instead.")
                           "-b" (number-to-string val)
                           "-r" str
                           token))
-    (error "No `hashcash' binary found")))
+    (progn
+      (message "No hashcash binary found")
+      (sleep-for 1)
+      nil)))
 
 (defun hashcash-version (token)
   "Find the format version of a hashcash token."