Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail-xemacs.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
1 ;; Mouse and font support for RMAIL running in Lucid GNU Emacs 1 ;;; rmail-xemacs.el --- Mouse and font support for RMAIL running on XEmacs
2 ;; written by Wilson H. Tien (wtien@urbana.mcd.mot.com); modified by jwz. 2
3 ;; Copyright (C) 1992-1993 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992-1993 Free Software Foundation, Inc.
4
5 ;; Author: Wilson H. Tien <wtien@urbana.mcd.mot.com>
6 ;; Keywords: mail
4 7
5 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
6 9
7 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
8 ;; under the terms of the GNU General Public License as published by 11 ;; under the terms of the GNU General Public License as published by
13 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 ;; General Public License for more details. 18 ;; General Public License for more details.
16 19
17 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
18 ;; along with XEmacs; see the file COPYING. If not, write to the 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 ;; Boston, MA 02111-1307, USA. 23 ;; 02111-1307, USA.
21 24
22 ;;; Right button pops up a menu of commands in Rmail and Rmail summary buffers. 25 ;;; Synched up with: Not in FSF.
23 ;;; Middle button selects indicated mail message in Rmail summary buffer 26
27 ;;; Commentary:
28
29 ;; Mouse and font support for RMAIL running in Lucid GNU Emacs
30 ;; written by Wilson H. Tien (wtien@urbana.mcd.mot.com); modified by jwz.
31
32 ;; Right button pops up a menu of commands in Rmail and Rmail summary buffers.
33 ;; Middle button selects indicated mail message in Rmail summary buffer
34
35 ;;; Code:
24 36
25 (defvar rmail-summary-mode-menu 37 (defvar rmail-summary-mode-menu
26 '("Rmail Summary Commands" 38 '("Rmail Summary Commands"
27 ["Select Message" rmail-summary-goto-msg t nil] 39 ["Select Message" rmail-summary-goto-msg t nil]
28 "----" 40 "----"
217 (if (featurep 'menubar) 229 (if (featurep 'menubar)
218 (add-hook 'rmail-summary-mode-hook 'rmail-summary-mode-menu-setup)) 230 (add-hook 'rmail-summary-mode-hook 'rmail-summary-mode-menu-setup))
219 231
220 232
221 (provide 'rmail-xemacs) 233 (provide 'rmail-xemacs)
234
235 ;;; rmail-xemacs ends here