(with-no-warnings): Define it for old Emacsen.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9deb533..4aa8035 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,7 +8,8 @@
        (time-to-number-of-days): Don't use (featurep 'xemacs) to check if
        float-time is available; suppress compile warning for time-to-seconds.
 
-       * gnus-util.el (gnus-float-time): Alias to float-time if it exists.
+       * gnus-util.el (with-no-warnings): Define it for old Emacsen.
+       (gnus-float-time): Alias to float-time if it exists.
 
        * ecomplete.el (with-no-warnings): Define it for old Emacsen.
        (ecomplete-add-item): Don't use (featurep 'xemacs) to check if

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 3766b3b..28a8c5d 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -38,6 +38,12 @@
   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (eval-when-compile
   (require 'cl))
+
+(eval-when-compile
+  (unless (fboundp 'with-no-warnings)
+    (defmacro with-no-warnings (&rest body)
+      `(progn ,@body))))
+
 ;; Fixme: this should be a gnus variable, not nnmail-.
 (defvar nnmail-pathname-coding-system)
 (defvar nnmail-active-file-coding-system)