From: yamaoka <yamaoka>
Date: Wed, 26 Jun 2002 07:03:57 +0000 (+0000)
Subject: * contrib/hashcash.el: Require `cl' when compiling.
X-Git-Tag: t-gnus-6_15_8-00-quimby~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb608193b1da5218fd5c5df2bf021ff5dd3ff8e5;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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)