Changes committed gnus/lisp (ChangeLog gnus-util.el)

Modified: ChangeLog gnus-util.el

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


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2012 gnus/lisp/ChangeLog:7.2013
--- ChangeLog:7.2012	Wed Sep  9 11:31:35 2009
+++ ChangeLog	Wed Sep  9 12:42:27 2009
@@ -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
Index: gnus-util.el
diff -u gnus/lisp/gnus-util.el:7.88 gnus/lisp/gnus-util.el:7.89
--- gnus-util.el:7.88	Wed Sep  9 11:31:35 2009
+++ gnus-util.el	Wed Sep  9 12:42:27 2009
@@ -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)