Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail-kill.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 ;;; 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:
1 ;; GNU Emacs and this file "rmail-kill.el", is distributed in the hope 29 ;; GNU Emacs and this file "rmail-kill.el", is distributed in the hope
2 ;; that it will be useful, but WITHOUT ANY WARRANTY. No author or 30 ;; that it will be useful, but WITHOUT ANY WARRANTY. No author or
3 ;; distributor accepts responsibility to anyone for the consequences 31 ;; distributor accepts responsibility to anyone for the consequences
4 ;; of using it or for whether it serves any particular purpose or 32 ;; of using it or for whether it serves any particular purpose or
5 ;; works at all, unless he says so in writing. Refer to the GNU Emacs 33 ;; works at all, unless he says so in writing. Refer to the GNU Emacs
11 ;; supposed to have been given to you along with GNU Emacs so you can 39 ;; supposed to have been given to you along with GNU Emacs so you can
12 ;; know your rights and responsibilities. It should be in a file 40 ;; know your rights and responsibilities. It should be in a file
13 ;; named COPYING. Among other things, the copyright notice and this 41 ;; named COPYING. Among other things, the copyright notice and this
14 ;; notice must be preserved on all copies. 42 ;; notice must be preserved on all copies.
15 43
44 ;;; Code:
16 (setq rmail-message-filter 'rmail-maybe-execute-message 45 (setq rmail-message-filter 'rmail-maybe-execute-message
17 rmail-mode-hook '((lambda () 46 rmail-mode-hook '((lambda ()
18 (define-key rmail-mode-map "e" 'rmail-extract-rejected-message) 47 (define-key rmail-mode-map "e" 'rmail-extract-rejected-message)
19 (define-key rmail-mode-map "b" 'rmail-beginning-of-message) 48 (define-key rmail-mode-map "b" 'rmail-beginning-of-message)
20 (define-key rmail-mode-map "K" 'rmail-execute-messages)))) 49 (define-key rmail-mode-map "K" 'rmail-execute-messages))))
121 (read-string-with-default prompt default))))) 150 (read-string-with-default prompt default)))))
122 151
123 (defun read-string-with-default (prompt default) 152 (defun read-string-with-default (prompt default)
124 (let ((s (read-string prompt))) 153 (let ((s (read-string prompt)))
125 (if (string= s "") default s))) 154 (if (string= s "") default s)))
155
156 (provide 'rmail-kill)
157
158 ;;; rmail-kill.el ends here