* contrib/hashcash.el: Require `cl' when compiling.

(hashcash-strip-quoted-names): Replace `subseq' with `substring'.

diff --git a/ChangeLog b/ChangeLog
index e4f466c..d9b5b74 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * contrib/hashcash.el: Require `cl' when compiling.
+       (hashcash-strip-quoted-names): Replace `subseq' with `substring'.
+
 2002-06-25  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): When

diff --git a/contrib/hashcash.el b/contrib/hashcash.el
index 893211a..264044b 100644 (file)
--- a/contrib/hashcash.el
+++ b/contrib/hashcash.el
@@ -1,6 +1,6 @@
 ;;; hashcash.el --- Add hashcash payments to email
 
-;; $Revision: 1.1.2.1 $
+;; $Revision: 1.1.2.2 $
 ;; Copyright (C) 1997,2001 Paul E. Foley
 
 ;; Maintainer: Paul Foley <mycroft@actrix.gen.nz>
@@ -20,6 +20,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (defcustom hashcash-default-payment 0
   "*The default number of bits to pay to unknown users.
 If this is zero, no payment header will be generated.
@@ -41,7 +43,8 @@ present, is the string to be hashed; if not present ADDR will be used.")
 (defun hashcash-strip-quoted-names (addr)
   (setq addr (mail-strip-quoted-names addr))
   (if (and addr (string-match "^[^+@]+\\(\\+[^@]*\\)@" addr))
-      (concat (subseq addr 0 (match-beginning 1)) (subseq addr (match-end 1)))
+      (concat (substring addr 0 (match-beginning 1))
+             (substring addr (match-end 1)))
     addr))
 
 (defun hashcash-payment-required (addr)