From d9446bf48619c22b4b9a3153b33a4e78373ae6a6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 29 Jan 2003 21:59:20 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 7 +++---- 2 files changed, 7 insertions(+), 4 deletions(-) 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 + + * gnus-art.el (gnus-article-mode): Use summary tool bar. + 2003-01-27 Teodor Zlatanov * 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) -- 1.7.10.4