Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail-xemacs.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
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
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 Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
19 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 23 ;; 02111-1307, USA.
21 ;;; Right button pops up a menu of commands in Rmail and Rmail summary buffers. 24
22 ;;; Middle button selects indicated mail message in Rmail summary buffer 25 ;;; Synched up with: Not in FSF.
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:
23 36
24 (defvar rmail-summary-mode-menu 37 (defvar rmail-summary-mode-menu
25 '("Rmail Summary Commands" 38 '("Rmail Summary Commands"
26 ["Select Message" rmail-summary-goto-msg t nil] 39 ["Select Message" rmail-summary-goto-msg t nil]
27 "----" 40 "----"
216 (if (featurep 'menubar) 229 (if (featurep 'menubar)
217 (add-hook 'rmail-summary-mode-hook 'rmail-summary-mode-menu-setup)) 230 (add-hook 'rmail-summary-mode-hook 'rmail-summary-mode-menu-setup))
218 231
219 232
220 (provide 'rmail-xemacs) 233 (provide 'rmail-xemacs)
234
235 ;;; rmail-xemacs ends here