2000-12-19 17:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-group.el, gnus-sum.el, message.el: Comment out :help in
	easymenu, because XEmacs doesn't understand :help.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d312bdb..93d9738 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-12-19 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-group.el, gnus-sum.el, message.el: Comment out :help in
+       easymenu, because XEmacs doesn't understand :help.
+
        * mm-uu.el: Require binhex.
 
 2000-12-19 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index e088377..3de0cf6 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -705,19 +705,23 @@ in the minibuffer prompt."
        ["See old articles" (gnus-group-select-group 'all)
        :keys "C-u SPC" :active (gnus-group-group-name)]
        ["Catch up" gnus-group-catchup-current :active (gnus-group-group-name)
-       :help "Mark unread articles in the current group as read"]
+       ;;:help "Mark unread articles in the current group as read"
+       ]
        ["Catch up all articles" gnus-group-catchup-current-all
        (gnus-group-group-name)]
        ["Check for new articles" gnus-group-get-new-news-this-group
        :active (gnus-group-group-name)
-       :help "Check for new messages in current group"]
+       ;;:help "Check for new messages in current group"
+       ]
        ["Toggle subscription" gnus-group-unsubscribe-current-group
        (gnus-group-group-name)]
        ["Kill" gnus-group-kill-group :active (gnus-group-group-name)
-       :help "Kill (remove) current group"]
+       ;;:help "Kill (remove) current group"
+       ]
        ["Yank" gnus-group-yank-group gnus-list-of-killed-groups]
        ["Describe" gnus-group-describe-group :active (gnus-group-group-name)
-       :help "Display description of the current group"]
+       ;;:help "Display description of the current group"
+       ]
        ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)]
        ;; Actually one should check, if any of the marked groups gives t for
        ;; (gnus-check-backend-function 'request-expire-articles ...)
@@ -844,7 +848,8 @@ in the minibuffer prompt."
        ["Send a mail" gnus-group-mail t]
        ["Post an article..." gnus-group-post-news t]
        ["Check for new news" gnus-group-get-new-news
-       :help "Get newly arrived articles"]
+       ;;:help "Get newly arrived articles"
+       ]
        ["Activate all groups" gnus-activate-all-groups t]
        ["Restart Gnus" gnus-group-restart t]
        ["Read init file" gnus-group-read-init-file t]
@@ -861,7 +866,8 @@ in the minibuffer prompt."
        ["Toggle topics" gnus-topic-mode t]
        ["Send a bug report" gnus-bug t]
        ["Exit from Gnus" gnus-group-exit
-       :help "Quit reading news"]
+       ;;:help "Quit reading news"
+       ]
        ["Exit without saving" gnus-group-quit t]))
 
     (gnus-run-hooks 'gnus-group-menu-hook)))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 345b0fe..08e56ba 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1773,7 +1773,8 @@ increase the score of each group you read."
               ["Quoted-Printable" gnus-article-de-quoted-unreadable t]
               ["Base64" gnus-article-de-base64-unreadable t]
               ["Rot 13" gnus-summary-caesar-message
-              :help "\"Caesar rotate\" article by 13"]
+              ;;:help "\"Caesar rotate\" article by 13"
+              ]
               ["Unix pipe" gnus-summary-pipe-message t]
               ["Add buttons" gnus-article-add-buttons t]
               ["Add buttons to head" gnus-article-add-buttons-to-head t]
@@ -1785,9 +1786,11 @@ increase the score of each group you read."
              ["HZ" gnus-article-decode-HZ t])
              ("Output"
               ["Save in default format" gnus-summary-save-article
-              :help "Save article using default method"]
+              ;;:help "Save article using default method"
+              ]
               ["Save in file" gnus-summary-save-article-file
-              :help "Save article in file"]
+              ;;:help "Save article in file"
+              ]
               ["Save in Unix mail format" gnus-summary-save-article-mail t]
               ["Save in MH folder" gnus-summary-save-article-folder t]
               ["Save in VM folder" gnus-summary-save-article-vm t]
@@ -1819,7 +1822,8 @@ increase the score of each group you read."
                 'request-expire-articles gnus-newsgroup-name)])
              ("Extract"
               ["Uudecode" gnus-uu-decode-uu
-              :help "Decode uuencoded article(s)"]
+              ;;:help "Decode uuencoded article(s)"
+              ]
               ["Uudecode and save" gnus-uu-decode-uu-and-save t]
               ["Unshar" gnus-uu-decode-unshar t]
               ["Unshar and save" gnus-uu-decode-unshar-and-save t]
@@ -1871,19 +1875,24 @@ increase the score of each group you read."
      gnus-summary-post-menu gnus-summary-mode-map ""
      '("Post"
        ["Post an article" gnus-summary-post-news
-       :help "Post an article"]
+       ;;:help "Post an article"
+       ]
        ["Followup" gnus-summary-followup
-       :help "Post followup to this article"]
+       ;;:help "Post followup to this article"
+       ]
        ["Followup and yank" gnus-summary-followup-with-original
-       :help "Post followup to this article, quoting its contents"]
+       ;;:help "Post followup to this article, quoting its contents"
+       ]
        ["Supersede article" gnus-summary-supersede-article t]
        ["Cancel article" gnus-summary-cancel-article
-       :help "Cancel an article you posted"]
+       ;;:help "Cancel an article you posted"
+       ]
        ["Reply" gnus-summary-reply t]
        ["Reply and yank" gnus-summary-reply-with-original t]
        ["Wide reply" gnus-summary-wide-reply t]
        ["Wide reply and yank" gnus-summary-wide-reply-with-original
-       :help "Mail a reply, quoting this article"]
+       ;;:help "Mail a reply, quoting this article"
+       ]
        ["Mail forward" gnus-summary-mail-forward t]
        ["Post forward" gnus-summary-post-forward t]
        ["Digest and mail" gnus-uu-digest-mail-forward t]
@@ -1892,7 +1901,8 @@ increase the score of each group you read."
        ["Send bounced mail" gnus-summary-resend-bounced-mail t]
        ["Send a mail" gnus-summary-mail-other-window t]
        ["Uuencode and post" gnus-uu-post-news
-       :help "Post a uuencoded article"]
+       ;;:help "Post a uuencoded article"
+       ]
        ["Followup via news" gnus-summary-followup-to-mail t]
        ["Followup via news and yank"
        gnus-summary-followup-to-mail-with-original t]
@@ -1910,7 +1920,8 @@ increase the score of each group you read."
         gnus-summary-kill-same-subject-and-select t]
        ["Mark same subject" gnus-summary-kill-same-subject t]
        ["Catchup" gnus-summary-catchup
-        :help "Mark unread articles in this group as read"]
+        ;;:help "Mark unread articles in this group as read"
+        ]
        ["Catchup all" gnus-summary-catchup-all t]
        ["Catchup to here" gnus-summary-catchup-to-here t]
        ["Catchup region" gnus-summary-mark-region-as-read t]
@@ -1961,9 +1972,11 @@ increase the score of each group you read."
         ["Save" gnus-summary-save-process-mark t]))
        ("Scroll article"
        ["Page forward" gnus-summary-next-page
-        :help "Show next page of article"]
+        ;;:help "Show next page of article"
+        ]
        ["Page backward" gnus-summary-prev-page
-        :help "Show previous page of article"]
+        ;;:help "Show previous page of article"
+        ]
        ["Line forward" gnus-summary-scroll-up t])
        ("Move"
        ["Next unread article" gnus-summary-next-unread-article t]
@@ -2015,11 +2028,13 @@ increase the score of each group you read."
        ["Send a bug report" gnus-bug t]
        ("Exit"
        ["Catchup and exit" gnus-summary-catchup-and-exit
-        :help "Mark unread articles in this group as read, then exit"]
+        ;;:help "Mark unread articles in this group as read, then exit"
+        ]
        ["Catchup all and exit" gnus-summary-catchup-all-and-exit t]
        ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
        ["Exit group" gnus-summary-exit
-        :help "Exit current group, return to group selection mode"]
+        ;;:help "Exit current group, return to group selection mode"
+        ]
        ["Exit group without updating" gnus-summary-exit-no-update t]
        ["Exit and goto next group" gnus-summary-next-group t]
        ["Exit and goto prev group" gnus-summary-prev-group t]

diff --git a/lisp/message.el b/lisp/message.el
index e6b2662..1eedffa 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1424,16 +1424,21 @@ Point is left at the beginning of the narrowed-to region."
    ["Newline and Reformat" message-newline-and-reformat t]
    ["Rename buffer" message-rename-buffer t]
    ["Spellcheck" ispell-message
-    :help "Spellcheck this message"]
+    ;;:help "Spellcheck this message"
+    ]
    ["Attach file as MIME" mml-attach-file
-    :help "Attach a file at point"]
+    ;;:help "Attach a file at point"
+    ]
    "----"
    ["Send Message" message-send-and-exit
-    :help "Send this message"]
+    ;;:help "Send this message"
+    ]
    ["Abort Message" message-dont-send
-    :help "File this draft message and exit"]
+    ;;:help "File this draft message and exit"
+    ]
    ["Kill Message" message-kill-buffer
-    :help "Delete this message without sending"]))
+    ;;:help "Delete this message without sending"
+    ]))
 
 (easy-menu-define
  message-mode-field-menu message-mode-map ""