Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail-kill.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-kill.el --- Mail filtering for rmail
2
3 ;; Copyright status unknown
4
5 ;; Author: Unknown
6 ;; Keywords: mail
7
8 ;; This file is part of XEmacs.
9
10 ;; 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
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; 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
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24
25 ;;; Synched up with: Not in FSF.
26
27 ;;; Commentary:
28 ;; This is the Original Notice on this file:
29 ;; GNU Emacs and this file "rmail-kill.el", is distributed in the hope 1 ;; GNU Emacs and this file "rmail-kill.el", is distributed in the hope
30 ;; that it will be useful, but WITHOUT ANY WARRANTY. No author or 2 ;; that it will be useful, but WITHOUT ANY WARRANTY. No author or
31 ;; distributor accepts responsibility to anyone for the consequences 3 ;; distributor accepts responsibility to anyone for the consequences
32 ;; of using it or for whether it serves any particular purpose or 4 ;; of using it or for whether it serves any particular purpose or
33 ;; works at all, unless he says so in writing. Refer to the GNU Emacs 5 ;; works at all, unless he says so in writing. Refer to the GNU Emacs
39 ;; supposed to have been given to you along with GNU Emacs so you can 11 ;; supposed to have been given to you along with GNU Emacs so you can
40 ;; know your rights and responsibilities. It should be in a file 12 ;; know your rights and responsibilities. It should be in a file
41 ;; named COPYING. Among other things, the copyright notice and this 13 ;; named COPYING. Among other things, the copyright notice and this
42 ;; notice must be preserved on all copies. 14 ;; notice must be preserved on all copies.
43 15
44 ;;; Code:
45 (setq rmail-message-filter 'rmail-maybe-execute-message 16 (setq rmail-message-filter 'rmail-maybe-execute-message
46 rmail-mode-hook '((lambda () 17 rmail-mode-hook '((lambda ()
47 (define-key rmail-mode-map "e" 'rmail-extract-rejected-message) 18 (define-key rmail-mode-map "e" 'rmail-extract-rejected-message)
48 (define-key rmail-mode-map "b" 'rmail-beginning-of-message) 19 (define-key rmail-mode-map "b" 'rmail-beginning-of-message)
49 (define-key rmail-mode-map "K" 'rmail-execute-messages)))) 20 (define-key rmail-mode-map "K" 'rmail-execute-messages))))
150 (read-string-with-default prompt default))))) 121 (read-string-with-default prompt default)))))
151 122
152 (defun read-string-with-default (prompt default) 123 (defun read-string-with-default (prompt default)
153 (let ((s (read-string prompt))) 124 (let ((s (read-string prompt)))
154 (if (string= s "") default s))) 125 (if (string= s "") default s)))
155
156 (provide 'rmail-kill)
157
158 ;;; rmail-kill.el ends here