From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6153 Path: main.gmane.org!not-for-mail From: Per Abrahamsen Newsgroups: gmane.emacs.gnus.general Subject: Re: Message Mode Popup Menu for XEmacs Date: 06 May 1996 09:42:13 +0200 Sender: abraham@dina.kvl.dk Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035146651 2744 80.91.224.250 (20 Oct 2002 20:44:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:44:11 +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 BAA15363 for ; Mon, 6 May 1996 01:31:25 -0700 Original-Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Mon, 6 May 1996 09:46:34 +0200 Original-Received: from kleene.dina.kvl.dk (kleene.dina.kvl.dk [130.225.40.223]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id JAA25195; Mon, 6 May 1996 09:37:13 +0200 Original-Received: (abraham@localhost) by kleene.dina.kvl.dk (8.6.12/8.6.4) id JAA09513; Mon, 6 May 1996 09:42:20 +0200 Original-To: ding@ifi.uio.no X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM|8MBp/ In-Reply-To: Steven L Baur's message of 05 May 1996 15:11:48 -0700 Original-Lines: 165 X-Mailer: September Gnus v0.81/Emacs 19.30 Xref: main.gmane.org gmane.emacs.gnus.general:6153 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6153 This code should make the menu portable and simplify the code. It is relative to 0.81. Mon May 6 09:16:02 1996 Per Abrahamsen * message.el (message-mode-map): Do not bind button3. (message-mode-menu): Use easymenu. (message-mode): Call `easy-menu-add'. (message-make-menu-bar): Deleted. * message-xmas.el (message-mode-menu): Deleted. cd ~/emacs/sgnus-0.81/lisp/ diff -c message.el~ message.el *** message.el~ Mon May 6 01:44:12 1996 --- message.el Mon May 6 09:20:59 1996 *************** *** 34,39 **** --- 34,40 ---- (require 'mail-header) (require 'nnheader) (require 'timezone) + (require 'easymenu) ;;;###autoload (defvar message-fcc-handler-function 'rmail-output *************** *** 376,409 **** (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 --- 377,382 ---- *************** *** 699,714 **** (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) ! (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) ! (easy-menu-define ! message-menu message-mode-map "" ! '("Message" ! ["Fill Citation" message-fill-yanked-message t])))) ;;;###autoload (defun message-mode () --- 672,704 ---- (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)) ! ! (easy-menu-define message-mode-menu message-mode-map ! "Message Menu." ! '("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])) ;;;###autoload (defun message-mode () *************** *** 774,779 **** --- 764,770 ---- (mail-hist-define-keys)) (when (string-match "XEmacs\\|Lucid" emacs-version) (message-setup-toolbar)) + (easy-menu-add message-mode-menu message-mode-map) (run-hooks 'text-mode-hook 'message-mode-hook)) *************** *** 2567,2573 **** (if (eq (following-char) (char-after (- (point) 2))) (delete-char -2)))))) ! ;; Support for Mouse menus (when (string-match "XEmacs\\|Lucid" emacs-version) (require 'message-xmas)) --- 2558,2564 ---- (if (eq (following-char) (char-after (- (point) 2))) (delete-char -2)))))) ! ;; Support for toolbar (when (string-match "XEmacs\\|Lucid" emacs-version) (require 'message-xmas)) diff -c message-xmas.el_ORIG message-xmas.el *** message-xmas.el_ORIG Mon May 6 01:44:10 1996 --- message-xmas.el Mon May 6 09:14:54 1996 *************** *** 96,107 **** (set-specifier (symbol-value message-use-toolbar) (cons (current-buffer) message-toolbar)))) - (defun message-mode-menu (event) - (interactive "e") - (select-window (event-window event)) - (let ((popup-menu-titles nil)) - (popup-menu 'message-mode-menu))) - (provide 'message-xmas) ;;; message-xmas.el ends here --- 96,101 ---- Compilation exited abnormally with code 1 at Mon May 6 09:21:54