From: yamaoka <yamaoka>
Date: Wed, 29 Jan 2003 21:59:20 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_16-00-quimby~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d9446bf48619c22b4b9a3153b33a4e78373ae6a6;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c0761c..242d18a 100644
--- 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 b2380cc..50cab8c 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3648,9 +3648,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.
 
@@ -3675,7 +3672,9 @@ commands:
     (push (list 'gnus-show-mime " MIME") 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)