Message Mode Popup Menu for XEmacs

[Steven L Baur <steve@miranova.com>]

The following patch adds a nice popup buffer menu for message mode,
and is fully transparent to Emacs 19.30.
This is patched off of September Gnus v0.80.
===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.82
diff -u -r1.82 ChangeLog
--- ChangeLog	1996/04/29 22:31:22	1.82
+++ ChangeLog	1996/05/05 21:54:21
@@ -1,3 +1,7 @@
+Sun May  5 14:54:06 1996  Steven L Baur  <steve@miranova.com>
+
+	* message.el (message-mode-map): Added mode menu for XEmacs.
+
 Mon Apr 29 02:24:14 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
 
 	* message.el (message-check-news-syntax): Better `empty' check.

===================================================================
RCS file: RCS/message.el,v
retrieving revision 1.18
diff -u -r1.18 message.el
--- message.el	1996/04/29 22:31:22	1.18
+++ message.el	1996/05/05 21:08:05
@@ -370,6 +370,34 @@
 (defvar message-sent-hook nil
   "Hook run after sending messages.")
 
+(if (string-match "XEmacs\\|Lucid" emacs-version)
+    (defvar message-mode-menu
+      '("Send Message"
+	"Go to Field:"
+	"----"
+	["To:" message-goto-to t]
+	["Subject:" message-goto-subject t]
+	["Summary:" message-goto-summary t]
+	["Keywords:" message-goto-keywords t]
+	["Newsgroups:" message-goto-newsgroups t]
+	["Followup-To:" message-goto-followup-to t]
+	["Distribution:" message-goto-distribution t]
+	["Body" message-goto-body t]
+	["Signature" message-goto-signature t]
+	"----"
+	"Miscellaneous Commands:"
+	"----"
+	["Sort Headers" message-sort-headers t]
+	["Yank Original" message-yank-original t]
+	["Fill Yanked Message" message-fill-yanked-message t]
+;;  ["Insert Signature"         news-reply-signature     t]
+	["Caesar (rot13) Message" message-caesar-buffer-body t]
+	"----"
+	["Post Message" message-send-and-exit t]
+	["Abort Message" message-dont-send t]
+	)
+      "Buffer Menu for XEmacs."))
+
 ;;; Internal variables.
 
 ;;; Regexp matching the delimiter of messages in UNIX mail format
@@ -662,7 +690,9 @@
 
   (define-key message-mode-map "\C-c\C-c" 'message-send-and-exit)
   (define-key message-mode-map "\C-c\C-s" 'message-send)
-  (define-key message-mode-map "\C-c\C-k" 'message-dont-send))
+  (define-key message-mode-map "\C-c\C-k" 'message-dont-send)
+  (if (string-match "XEmacs\\|Lucid" emacs-version)
+      (define-key message-mode-map 'button3 'message-mode-menu)))
 
 (defun message-make-menu-bar ()
   (unless (boundp 'message-menu)
@@ -2525,6 +2555,14 @@
      (while (re-search-forward "\b" end1 t)
        (if (eq (following-char) (char-after (- (point) 2)))
 	   (delete-char -2))))))
+
+;; Support for Mouse menus
+(if (string-match "XEmacs\\|Lucid" emacs-version)
+    (defun message-mode-menu (event)
+      (interactive "e")
+      (select-window (event-window event))
+      (let ((popup-menu-titles nil))
+	(popup-menu 'message-mode-menu))))
 
 (provide 'message)
 

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.