From cb608193b1da5218fd5c5df2bf021ff5dd3ff8e5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 26 Jun 2002 07:03:57 +0000 Subject: [PATCH] * contrib/hashcash.el: Require `cl' when compiling. (hashcash-strip-quoted-names): Replace `subseq' with `substring'. --- ChangeLog | 5 +++++ contrib/hashcash.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index e4f466c..d9b5b74 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-06-26 Katsumi Yamaoka + + * contrib/hashcash.el: Require `cl' when compiling. + (hashcash-strip-quoted-names): Replace `subseq' with `substring'. + 2002-06-25 TSUCHIYA Masatoshi * 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 @@ -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) -- 1.7.10.4