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

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 957881ef420..61754929324 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,6 +1,7 @@
 2009-09-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-        * 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/gnus-util.el b/lisp/gnus/gnus-util.el
index 3766b3bd59d..28a8c5dbed4 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/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)