diff options
| author | Miles Bader <miles@gnu.org> | 2007-12-09 22:14:32 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-12-09 22:14:32 +0000 |
| commit | 21ee0911f749a8dfaf97d13075bfec4862c06161 (patch) | |
| tree | 3740d08b42ef85f5a1ea28f6f4e7b0f9853b5d78 /lisp/mail/hashcash.el | |
| parent | 0e250bf8782b236076a03f470eab9ce3a26bccb5 (diff) | |
| download | emacs-21ee0911f749a8dfaf97d13075bfec4862c06161.tar.gz | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-950
Diffstat (limited to 'lisp/mail/hashcash.el')
| -rw-r--r-- | lisp/mail/hashcash.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 1f4483a7c94..36cd17fe6fc 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -115,13 +115,15 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length." (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)) |