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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 957881ef42047bb36836b11e52eca4412bd6d98d..617549293246512908da0f357f275c828d979cb6 100644 (file)
--- 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 3766b3bd59d86e5bd2d28a7691675be566fa591f..28a8c5dbed4303a60b63da2a483695cb45efd92b 100644 (file)
--- 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)