[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el

[Miles Bader]

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