*** empty log message ***

[gnus] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7acd3b9..46247fe 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -286,6 +286,8 @@ displayed by the first non-nil matching CONTENT face."
                               (item :tag "skip" nil)
                               (face :value default)))))
 
+;;; Internal variables
+
 (defvar gnus-article-mode-syntax-table
   (let ((table (copy-syntax-table text-mode-syntax-table)))
     ;;(modify-syntax-entry ?_ "w" table)
@@ -293,8 +295,6 @@ displayed by the first non-nil matching CONTENT face."
   "Syntax table used in article mode buffers.
 Initialized from `text-mode-syntax-table.")
 
-;;; Internal variables
-
 (defvar gnus-save-article-buffer nil)
 
 (defvar gnus-article-mode-line-format-alist
@@ -346,6 +346,8 @@ Initialized from `text-mode-syntax-table.")
 
 (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
 
+(defvar gnus-summary-article-menu)
+
 ;;; Saving functions.
 
 (defun gnus-article-save (save-buffer file &optional num)
@@ -675,10 +677,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
        ["Remove carriage return" gnus-article-remove-cr t]
        ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]))
 
-    (when nil
-    (define-key gnus-article-mode-map 
-      (vector 'menu-bar (car gnus-summary-article-menu))
-      gnus-summary-article-menu))
+    (define-key gnus-article-mode-map [Article] gnus-summary-article-menu)
 
     (run-hooks 'gnus-article-menu-hook)))