From f92885b73544a0e0835226a17a7302902a4726d3 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Mon, 20 Nov 2000 21:43:53 +0000 Subject: [PATCH] 2000-11-20 17:00:00 ShengHuo ZHU * gnus-art.el (gnus-article-make-menu-bar): Use easy-menu-add. --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e4f766f2..499b94dae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-20 17:00:00 ShengHuo ZHU + + * gnus-art.el (gnus-article-make-menu-bar): Use easy-menu-add. + 2000-11-20 16:00:00 ShengHuo ZHU * gnus-art.el (gnus-article-describe-key): Use prompt. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 2744d4fc0..999cd0878 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2764,7 +2764,12 @@ If variable `gnus-use-long-file-name' is non-nil, it is (define-key gnus-article-mode-map [menu-bar post] (cons "Post" gnus-summary-post-menu))) - (gnus-run-hooks 'gnus-article-menu-hook))) + (gnus-run-hooks 'gnus-article-menu-hook)) + ;; Add the menu. + (when (boundp 'gnus-article-commands-menu) + (easy-menu-add gnus-article-commands-menu gnus-article-mode-map)) + (when (boundp 'gnus-summary-post-menu) + (easy-menu-add gnus-summary-post-menu gnus-article-mode-map))) (defun gnus-article-mode () "Major mode for displaying an article. -- 2.34.1