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

[Reiner Steib]

Index: emacs/lisp/gnus/gnus-util.el
diff -u emacs/lisp/gnus/gnus-util.el:1.38 emacs/lisp/gnus/gnus-util.el:1.39
--- emacs/lisp/gnus/gnus-util.el:1.38   Sun Feb  5 13:56:44 2006
+++ emacs/lisp/gnus/gnus-util.el        Wed Mar  8 14:27:19 2006
@@ -1459,6 +1459,23 @@
                                 display))
              display)))))
 
+(defun gnus-tool-bar-update (&rest ignore)
+  "Update the tool bar."
+  (when (and (boundp 'tool-bar-mode)
+            tool-bar-mode)
+    (let* ((args nil)
+          (func (cond ((featurep 'xemacs)
+                       'ignore)
+                      ((fboundp 'tool-bar-update)
+                       'tool-bar-update)
+                      ((fboundp 'force-window-update)
+                       'force-window-update)
+                      ((fboundp 'redraw-frame)
+                       (setq args (list (selected-frame)))
+                       'redraw-frame)
+                      (t 'ignore))))
+      (apply func args))))
+
 ;; Fixme: This has only one use (in gnus-agent), which isn't worthwhile.
 (defmacro gnus-mapcar (function seq1 &rest seqs2_n)
   "Apply FUNCTION to each element of the sequences, and make a list of the 
results.