diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-03-17 23:21:21 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-03-17 23:21:21 -0700 |
| commit | e3a151619d8c1d9bcb228ba1a54a23fabcb0d264 (patch) | |
| tree | 3d71db83c580ff32c4b349e0c7a118b79704c612 /lisp/mail/hashcash.el | |
| parent | 27be0364aa9afeff5252f0e6f955d886d26d0305 (diff) | |
| download | emacs-e3a151619d8c1d9bcb228ba1a54a23fabcb0d264.tar.gz | |
* mail/hashcash.el (declare-function): Remove duplicate definition.
Diffstat (limited to 'lisp/mail/hashcash.el')
| -rw-r--r-- | lisp/mail/hashcash.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 86364ab7835..c7b48cf78ed 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -1,6 +1,7 @@ ;;; hashcash.el --- Add hashcash payments to email -;; Copyright (C) 2003, 2004, 2005, 2007, 2008, 2009, 2010 Free Software Foundation +;; Copyright (C) 2003, 2004, 2005, 2007, 2008, 2009, 2010 +;; Free Software Foundation ;; Written by: Paul Foley <mycroft@actrix.gen.nz> (1997-2002) ;; Maintainer: Paul Foley <mycroft@actrix.gen.nz> @@ -115,8 +116,6 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length." (require 'mail-utils) (eval-and-compile - (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))) - (if (fboundp 'point-at-bol) (defalias 'hashcash-point-at-bol 'point-at-bol) (defalias 'hashcash-point-at-bol 'line-beginning-position)) @@ -131,10 +130,10 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length." (concat (match-string 1 addr) (match-string 2 addr)) addr)) -(declare-function message-narrow-to-headers-or-head "message" ()) -(declare-function message-fetch-field "message" (header &optional not-all)) -(declare-function message-goto-eoh "message" ()) -(declare-function message-narrow-to-headers "message" ()) +(declare-function message-narrow-to-headers-or-head "message" ()) +(declare-function message-fetch-field "message" (header &optional not-all)) +(declare-function message-goto-eoh "message" ()) +(declare-function message-narrow-to-headers "message" ()) (defun hashcash-token-substring () (save-excursion @@ -287,7 +286,7 @@ BUFFER defaults to the current buffer." "Ask user whether to wait for hashcash processes to finish." (interactive) (when (hashcash-processes-running-p (current-buffer)) - (if (y-or-n-p + (if (y-or-n-p "Hashcash process(es) still running; wait for them to finish? ") (hashcash-wait-async) (hashcash-cancel-async)))) |