Mercurial > emacs

diff lisp/gnus/gnus-sum.el @ 35957:a35d9c07d074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2001-02-07 ShengHuo ZHU <zsh@cs.rochester.edu> * message.el (message-make-forward-subject): Argument decoded. (message-forward): Use it when digest. * gnus-uu.el (gnus-uu-grab-articles): Shoot down original article buffer. * gnus-sum.el (gnus-summary-make-menu-bar): Don't share menu bar in Emacs. * gnus-art.el (gnus-article-make-menu-bar): Make gnus-article-post-menu.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Wed, 07 Feb 2001 22:08:26 +0000
parents 53eebdb81828
children 8b4e5c2b7d7f
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Wed Feb 07 16:30:51 2001 +0000
+++ b/lisp/gnus/gnus-sum.el	Wed Feb 07 22:08:26 2001 +0000
@@ -1315,6 +1315,8 @@
 
 (put 'gnus-summary-mode 'mode-class 'special)
 
+(defvar gnus-article-commands-menu)
+
 (when t
   ;; Non-orthogonal keys
 
@@ -1815,9 +1817,15 @@
        gnus-summary-article-menu gnus-summary-mode-map ""
        (cons "Article" innards))
 
-      (easy-menu-define
-       gnus-article-commands-menu gnus-article-mode-map ""
-       (cons "Commands" innards)))
+      (if (not (keymapp gnus-summary-article-menu))
+	  (easy-menu-define
+	    gnus-article-commands-menu gnus-article-mode-map ""
+	    (cons "Commands" innards))
+	;; in Emacs, don't share menu.
+	(setq gnus-article-commands-menu 
+	      (copy-keymap gnus-summary-article-menu))
+	(define-key gnus-article-mode-map [menu-bar commands]
+	  (cons "Commands" gnus-article-commands-menu))))
 
     (easy-menu-define
      gnus-summary-thread-menu gnus-summary-mode-map ""