Mercurial > emacs

comparison lisp/mh-e/mh-pick.el @ 50702:7dd3d5eae9c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgraded to MH-E version 7.3. See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author Bill Wohler <wohler@newt.com>
date Fri, 25 Apr 2003 05:52:00 +0000
parents b35587af8747
children 695cf19ef79e
comparison
equal deleted inserted replaced
50701:cb5f0a5d5b36 50702:7dd3d5eae9c7
1 ;;; mh-pick.el --- 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 2
3 ;; Copyright (C) 1993, 1995, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1995, 2001, 2003 Free Software Foundation, Inc.
4 4
5 ;; Author: Bill Wohler <wohler@newt.com> 5 ;; Author: Bill Wohler <wohler@newt.com>
6 ;; Maintainer: Bill Wohler <wohler@newt.com> 6 ;; Maintainer: Bill Wohler <wohler@newt.com>
7 ;; Keywords: mail 7 ;; Keywords: mail
8 ;; See: mh-e.el 8 ;; See: mh-e.el
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; Internal support for MH-E package. 29 ;; Internal support for MH-E package.
30 30
31 ;;; Change Log: 31 ;;; Change Log:
32
33 ;; $Id: mh-pick.el,v 1.30 2003/01/27 04:16:47 wohler Exp $
34 32
35 ;;; Code: 33 ;;; Code:
36 34
37 (require 'mh-e) 35 (require 'mh-e)
38 (require 'easymenu) 36 (require 'easymenu)
60 (if (or (zerop (buffer-size)) 58 (if (or (zerop (buffer-size))
61 (not (y-or-n-p "Reuse pattern? "))) 59 (not (y-or-n-p "Reuse pattern? ")))
62 (mh-make-pick-template) 60 (mh-make-pick-template)
63 (message "")) 61 (message ""))
64 (setq mh-searching-function 'mh-pick-do-search 62 (setq mh-searching-function 'mh-pick-do-search
65 mh-searching-folder pick-folder 63 mh-searching-folder pick-folder)
66 mh-current-folder folder 64 (mh-make-local-vars 'mh-current-folder folder
67 mh-previous-window-config window-config) 65 'mh-previous-window-config window-config)
68 (message "%s" (substitute-command-keys 66 (message "%s" (substitute-command-keys
69 (concat "Type \\[mh-do-search] to search messages, " 67 (concat "Type \\[mh-do-search] to search messages, "
70 "\\[mh-help] for help."))))) 68 "\\[mh-help] for help.")))))
71 69
72 (defun mh-make-pick-template () 70 (defun mh-make-pick-template ()