/[emacs]/emacs/lisp/mh-e/mh-pick.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-pick.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wohler, Mon Feb 3 20:55:30 2003 UTC revision 1.3 by wohler, Fri Apr 25 05:52:00 2003 UTC
# Line 1  Line 1 
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>
# Line 30  Line 30 
30    
31  ;;; Change Log:  ;;; Change Log:
32    
 ;; $Id$  
   
33  ;;; Code:  ;;; Code:
34    
35  (require 'mh-e)  (require 'mh-e)
# Line 62  the search folder is dismissed." Line 60  the search folder is dismissed."
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.")))))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26