(gnus-article-mode): Use summary tool bar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c0761c..242d18a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-29  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-art.el (gnus-article-mode): Use summary tool bar.
+
 2003-01-27  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-check-blackholes) 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8a10c1c..5059c83 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3453,9 +3453,6 @@ If variable `gnus-use-long-file-name' is non-nil, it is
 
     (gnus-run-hooks 'gnus-article-menu-hook)))
 
-;; Fixme: do something for the Emacs tool bar in Article mode a la
-;; Summary.
-
 (defun gnus-article-mode ()
   "Major mode for displaying an article.
 
@@ -3478,7 +3475,9 @@ commands:
   (make-local-variable 'minor-mode-alist)
   (use-local-map gnus-article-mode-map)
   (when (gnus-visual-p 'article-menu 'menu)
-    (gnus-article-make-menu-bar))
+    (gnus-article-make-menu-bar)
+    (when gnus-summary-tool-bar-map
+      (set (make-local-variable 'tool-bar-map) gnus-summary-tool-bar-map)))
   (gnus-update-format-specifications nil 'article-mode)
   (set (make-local-variable 'page-delimiter) gnus-page-delimiter)
   (make-local-variable 'gnus-page-broken)