Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.25 emacs/lisp/gnus/gnus-util.el:1.26
*** emacs/lisp/gnus/gnus-util.el:1.25 Wed Feb 9 15:50:37 2005
--- emacs/lisp/gnus/gnus-util.el Fri May 27 04:08:12 2005
***************
*** 1015,1020 ****
--- 1015,1026 ----
(save-current-buffer
(apply 'run-hooks funcs)))
+ (defun gnus-run-mode-hooks (&rest funcs)
+ "Run `run-mode-hooks' if it is available. Otherwise run `run-hooks'."
+ (if (fboundp 'run-mode-hooks)
+ (apply 'run-mode-hooks funcs)
+ (apply 'run-hooks funcs)))
+
;;; Various
(defvar gnus-group-buffer) ; Compiler directive
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
