From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6146 Path: main.gmane.org!not-for-mail From: Steven L Baur Newsgroups: gmane.emacs.gnus.general Subject: Message Mode Popup Menu for XEmacs Date: 05 May 1996 15:11:48 -0700 Sender: steve@miranova.com Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.53) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035146645 2719 80.91.224.250 (20 Oct 2002 20:44:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:44:05 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id PAA11854 for ; Sun, 5 May 1996 15:53:54 -0700 Original-Received: from deanna.miranova.com (steve@miranova.com [204.212.162.100]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Mon, 6 May 1996 00:11:45 +0200 Original-Received: (from steve@localhost) by deanna.miranova.com (8.7.5/8.6.9) id PAA11586; Sun, 5 May 1996 15:11:49 -0700 Original-To: ding@ifi.uio.no X-Url: http://www.miranova.com/%7Esteve/ Mail-Copies-To: never Original-Lines: 91 X-Mailer: September Gnus v0.80/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:6146 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6146 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 + + * message.el (message-mode-map): Added mode menu for XEmacs. + Mon Apr 29 02:24:14 1996 Lars Magne Ingebrigtsen * 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.