diff options
Diffstat (limited to 'lisp/mh-e/mh-pick.el')
| -rw-r--r-- | lisp/mh-e/mh-pick.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/mh-e/mh-pick.el b/lisp/mh-e/mh-pick.el index 3367392343b..f9a30e75bc2 100644 --- a/lisp/mh-e/mh-pick.el +++ b/lisp/mh-e/mh-pick.el @@ -1,6 +1,6 @@ ;;; mh-pick.el --- make a search pattern and search for a message in MH-E -;; Copyright (C) 1993, 1995, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1995, 2001, 2003 Free Software Foundation, Inc. ;; Author: Bill Wohler <wohler@newt.com> ;; Maintainer: Bill Wohler <wohler@newt.com> @@ -30,8 +30,6 @@ ;;; Change Log: -;; $Id: mh-pick.el,v 1.30 2003/01/27 04:16:47 wohler Exp $ - ;;; Code: (require 'mh-e) @@ -62,9 +60,9 @@ the search folder is dismissed." (mh-make-pick-template) (message "")) (setq mh-searching-function 'mh-pick-do-search - mh-searching-folder pick-folder - mh-current-folder folder - mh-previous-window-config window-config) + mh-searching-folder pick-folder) + (mh-make-local-vars 'mh-current-folder folder + 'mh-previous-window-config window-config) (message "%s" (substitute-command-keys (concat "Type \\[mh-do-search] to search messages, " "\\[mh-help] for help."))))) |