new no-op macro for backward compatibility.
2007-12-09 Reiner Steib <Reiner.Steib@gmx.de>
2007-12-09 Reiner Steib <Reiner.Steib@gmx.de>
+ * hashcash.el, imap.el, pgg.el, pgg-parse.el (declare-function): Add
+ new no-op macro for backward compatibility.
+
* imap.el (imap-string-to-integer): New function.
2007-12-07 Katsumi Yamaoka <yamaoka@jpl.org>
* imap.el (imap-string-to-integer): New function.
2007-12-07 Katsumi Yamaoka <yamaoka@jpl.org>
(require 'mail-utils)
(eval-and-compile
(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))
(defun hashcash-strip-quoted-names (addr)
(setq addr (mail-strip-quoted-names addr))
(eval-when-compile (require 'cl))
(eval-and-compile
(eval-when-compile (require 'cl))
(eval-and-compile
+ (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
(autoload 'starttls-open-stream "starttls")
(autoload 'starttls-negotiate "starttls")
(autoload 'sasl-find-mechanism "sasl")
(autoload 'starttls-open-stream "starttls")
(autoload 'starttls-negotiate "starttls")
(autoload 'sasl-find-mechanism "sasl")
-(eval-when-compile (require 'cl))
+(eval-when-compile
+ (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
+ (require 'cl))
(defgroup pgg-parse ()
"OpenPGP packet parsing."
(defgroup pgg-parse ()
"OpenPGP packet parsing."
;; Don't merge these two `eval-when-compile's.
(eval-when-compile
;; Don't merge these two `eval-when-compile's.
(eval-when-compile
+ (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))
(require 'cl))
;;; @ utility functions
(require 'cl))
;;; @ utility functions