Import Oort Gnus v0.19.

[elisp/gnus.git-] / contrib / hashcash.el

diff --git a/contrib/hashcash.el b/contrib/hashcash.el
index ef6fc9f..8a3ab4e 100644 (file)
--- a/contrib/hashcash.el
+++ b/contrib/hashcash.el
@@ -1,6 +1,6 @@
 ;;; hashcash.el --- Add hashcash payments to email
 
-;; $Revision: 1.1.1.3 $
+;; $Revision: 1.1.1.4 $
 ;; Copyright (C) 1997--2002 Paul E. Foley
 ;; Copyright (C) 2003 Free Software Foundation
 
@@ -60,15 +60,13 @@ is used instead.")
 
 (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))