Mercurial > emacs
diff lisp/mail/hashcash.el @ 87209:bc4976b7380e
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-950
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 09 Dec 2007 22:14:32 +0000 |
| parents | b37f01064ecf |
| children | b9e8ab94c460 |
line wrap: on
line diff
--- a/lisp/mail/hashcash.el Sun Dec 09 14:47:24 2007 +0000 +++ b/lisp/mail/hashcash.el Sun Dec 09 22:14:32 2007 +0000 @@ -115,13 +115,15 @@ (require 'mail-utils) (eval-and-compile - (if (fboundp 'point-at-bol) - (defalias 'hashcash-point-at-bol 'point-at-bol) - (defalias 'hashcash-point-at-bol 'line-beginning-position)) + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))) - (if (fboundp 'point-at-eol) - (defalias 'hashcash-point-at-eol 'point-at-eol) - (defalias 'hashcash-point-at-eol 'line-end-position))) + (if (fboundp 'point-at-bol) + (defalias 'hashcash-point-at-bol 'point-at-bol) + (defalias 'hashcash-point-at-bol 'line-beginning-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))