1 |
;;; mh-pick.el --- make a search pattern and search for a message in MH-E |
;;; mh-pick.el --- make a search pattern and search for a message in MH-E |
2 |
|
|
3 |
;; Copyright (C) 1993, 1995, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1995, 2001, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Bill Wohler <wohler@newt.com> |
;; Author: Bill Wohler <wohler@newt.com> |
6 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
30 |
|
|
31 |
;;; Change Log: |
;;; Change Log: |
32 |
|
|
|
;; $Id$ |
|
|
|
|
33 |
;;; Code: |
;;; Code: |
34 |
|
|
35 |
(require 'mh-e) |
(require 'mh-e) |
60 |
(mh-make-pick-template) |
(mh-make-pick-template) |
61 |
(message "")) |
(message "")) |
62 |
(setq mh-searching-function 'mh-pick-do-search |
(setq mh-searching-function 'mh-pick-do-search |
63 |
mh-searching-folder pick-folder |
mh-searching-folder pick-folder) |
64 |
mh-current-folder folder |
(mh-make-local-vars 'mh-current-folder folder |
65 |
mh-previous-window-config window-config) |
'mh-previous-window-config window-config) |
66 |
(message "%s" (substitute-command-keys |
(message "%s" (substitute-command-keys |
67 |
(concat "Type \\[mh-do-search] to search messages, " |
(concat "Type \\[mh-do-search] to search messages, " |
68 |
"\\[mh-help] for help."))))) |
"\\[mh-help] for help."))))) |