;;; hashcash.el --- Add hashcash payments to email
-;; $Revision: 1.9 $
+;; $Revision: 1.10 $
;; Copyright (C) 1997--2002 Paul E. Foley
;; Copyright (C) 2003 Free Software Foundation
(require 'mail-utils)
-(defalias 'hashcash-point-at-bol
- (if (fboundp 'point-at-bol)
- 'point-at-bol
- 'line-beginning-position))
+(if (fboundp 'point-at-bol)
+ (defalias 'hashcash-point-at-bol 'point-at-bol)
+ (defalias 'hashcash-point-at-bol 'line-beginning-position))
-(defalias 'hashcash-point-at-eol
- (if (fboundp 'point-at-eol)
- 'point-at-eol
- 'line-end-position))
+(if (fboundp 'point-at-eol)
+ (defalias 'hashcash-point-at-eol 'point-at-eol)
+ (defalias 'hashcash-point-at-eol 'line-end-position))
(defun hashcash-strip-quoted-names (addr)
(setq addr (mail-strip-quoted-names addr))