Mercurial > emacs
diff lisp/mh-e/mh-pick.el @ 50702:7dd3d5eae9c7
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 |
line wrap: on
line diff
--- a/lisp/mh-e/mh-pick.el Fri Apr 25 04:32:25 2003 +0000 +++ b/lisp/mh-e/mh-pick.el Fri Apr 25 05:52:00 2003 +0000 @@ -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 @@ (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.")))))