From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Mar 1995 07:57:02 +0000 (+0000)
Subject: (news-reply-mode-map): Add menu bar menus.
X-Git-Tag: emacs-19.34~4886
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed17d24fe498d499b45e57cc1ba8f485cc41fa4f;p=emacs.git

(news-reply-mode-map): Add menu bar menus.
---

diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 8398bfb454b..ee43281366c 100644
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -74,7 +74,36 @@
       (define-key news-reply-mode-map "\C-c\C-y" 'news-reply-yank-original)
       (define-key news-reply-mode-map "\C-c\C-q" 'mail-fill-yanked-message)
       (define-key news-reply-mode-map "\C-c\C-c" 'news-inews)
-      (define-key news-reply-mode-map "\C-c\C-s" 'news-inews)))
+      (define-key news-reply-mode-map "\C-c\C-s" 'news-inews)
+      (define-key news-reply-mode-map [menu-bar] (make-sparse-keymap))
+      (define-key news-reply-mode-map [menu-bar fields]
+	(cons "Fields" (make-sparse-keymap "Fields")))
+      (define-key news-reply-mode-map [menu-bar fields news-reply-distribution]
+	'("Distribution" . news-reply-distribution))
+      (define-key news-reply-mode-map [menu-bar fields news-reply-keywords]
+	'("Keywords" . news-reply-keywords))
+      (define-key news-reply-mode-map [menu-bar fields news-reply-newsgroups]
+	'("Newsgroups" . news-reply-newsgroups))
+      (define-key news-reply-mode-map [menu-bar fields news-reply-followup-to]
+	'("Followup-to" . news-reply-followup-to))
+      (define-key news-reply-mode-map [menu-bar fields mail-subject]
+	'("Subject" . mail-subject))
+      (define-key news-reply-mode-map [menu-bar fields news-reply-summary]
+	'("Summary" . news-reply-summary))
+      (define-key news-reply-mode-map [menu-bar fields mail-text]
+	'("Text" . mail-text))
+      (define-key news-reply-mode-map [menu-bar news]
+	(cons "News" (make-sparse-keymap "News")))
+      (define-key news-reply-mode-map [menu-bar news news-caesar-buffer-body]
+	'("Rot13" . news-caesar-buffer-body))
+      (define-key news-reply-mode-map [menu-bar news news-reply-signature]
+	'("Signature" . news-reply-signature))
+      (define-key news-reply-mode-map [menu-bar news news-reply-yank-original]
+	'("Yank Original" . news-reply-yank-original))
+      (define-key news-reply-mode-map [menu-bar news mail-fill-yanked-message]
+	'("Fill Yanked Messages" . mail-fill-yanked-message))
+      (define-key news-reply-mode-map [menu-bar news news-inews]
+	'("Send" . news-inews))))
 
 (defun news-reply-mode ()
   "Major mode for editing news to be posted on USENET.