Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail-xemacs.el @ 70:131b0175ea99 r20-0b30

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