# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1252492910 0
# Node ID e86ba08d7eac58a5e880674d52bd458143cc239b
# Parent  2c607b344f3becb462d57480a1f67bb2227fa985
(with-no-warnings): Define it for old Emacsen.

diff -r 2c607b344f3b -r e86ba08d7eac lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Sep 09 10:07:19 2009 +0000
+++ b/lisp/gnus/ChangeLog	Wed Sep 09 10:41:50 2009 +0000
@@ -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 -r 2c607b344f3b -r e86ba08d7eac lisp/gnus/gnus-util.el
--- a/lisp/gnus/gnus-util.el	Wed Sep 09 10:07:19 2009 +0000
+++ b/lisp/gnus/gnus-util.el	Wed Sep 09 10:41:50 2009 +0000
@@ -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)