Mercurial > emacs

comparison lisp/mail/mh-pick.el @ 38414:67b464da13ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some fixes to follow coding conventions.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 15 Jul 2001 19:53:53 +0000
parents 83f275dcd93a
children 0f4506820432
comparison
equal deleted inserted replaced
38413:a26d9b55abb6 38414:67b464da13ec
1 ;;; mh-pick --- make a search pattern and search for a message in mh-e 1 ;;; mh-pick.el --- make a search pattern and search for a message in mh-e
2 ;; Time-stamp: <95/08/19 16:45:16 gildea> 2 ;; Time-stamp: <2001-07-14 13:09:34 pavel>
3 3
4 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. 4 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
5 5
6 ;; This file is part of mh-e, part of GNU Emacs. 6 ;; This file is part of GNU Emacs.
7 7
8 ;; GNU Emacs is free software; you can redistribute it and/or modify 8 ;; GNU Emacs is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by 9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 2, or (at your option) 10 ;; the Free Software Foundation; either version 2, or (at your option)
11 ;; any later version. 11 ;; any later version.
24 24
25 ;; Internal support for mh-e package. 25 ;; Internal support for mh-e package.
26 26
27 ;;; Change Log: 27 ;;; Change Log:
28 28
29 ;; $Id: mh-pick.el,v 1.4 1995/11/03 02:30:09 kwzh Exp erik $ 29 ;; $Id: mh-pick.el,v 1.5 1996/01/14 07:34:30 erik Exp $
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (provide 'mh-pick) 33 (provide 'mh-pick)
34 (require 'mh-e) 34 (require 'mh-e)
191 (define-key mh-pick-mode-map "\C-c\C-fd" 'mh-to-field) 191 (define-key mh-pick-mode-map "\C-c\C-fd" 'mh-to-field)
192 (define-key mh-pick-mode-map "\C-c\C-ff" 'mh-to-field) 192 (define-key mh-pick-mode-map "\C-c\C-ff" 'mh-to-field)
193 (define-key mh-pick-mode-map "\C-c\C-fr" 'mh-to-field) 193 (define-key mh-pick-mode-map "\C-c\C-fr" 'mh-to-field)
194 (define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field) 194 (define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field)
195 (define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field) 195 (define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field)
196
197 ;;; mh-pick.el ends here