[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-search.el mh-e.el mh-customi...
|
From: |
Bill Wohler |
|
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-search.el mh-e.el mh-customi... |
|
Date: |
Sat, 14 Jan 2006 21:17:37 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/01/14 21:17:37
Modified files:
lisp/mh-e : mh-search.el mh-e.el mh-customize.el ChangeLog
Log message:
* mh-customize.el (mh-index): Rename group to mh-search and sort group
definition and options accordingly.
(mh-index-program): Rename to mh-search-program.
(mh-kill-folder-suppress-prompt-hooks): Rename mh-index-p to
mh-search-p.
(mh-search-mode-hook): Change group from mh-index to mh-search.
(mh-index-folder): Rename to mh-search-folder. Change group from
mh-index to mh-search.
* mh-e.el (mh-folder-font-lock-keywords): Rename mh-index-folder to
mh-search-folder.
* mh-search.el (mh-indexer) Rename to mh-searcher. The commands pick
and grep are searchers too but aren't indexed.
(mh-index-execute-search-function): Rename to mh-search-function.
(mh-index-next-result-function): Rename to
mh-search-next-result-function.
(mh-index-regexp-builder): Rename to mh-search-regexp-builder.
(mh-search): Since redo-search-flag defaults to nil and is of lesser
importance, make it an optional argument and place it after the folder
and search-regexp arguments. Sync docstring with manual.
(mh-search-mode-map): Autoload so that keys are shown in help even
before mh-search is loaded.
(mh-search-mode): Sync docstring with manual.
(mh-index-do-search): Rename argument indexer to searcher. Sync
docstring with manual.
(mh-pick-do-search): Sync docstring with manual.
(mh-index-p): Rename to mh-search-p.
(mh-indexer-choices): Rename to mh-search-choices.
(mh-index-choose): Rename to mh-search-choose. Rename argument indexer
to searcher.
(mh-swish++-execute-search, mh-swish-execute-search)
(mh-mairix-execute-search, mh-namazu-execute-search): Drop "and read
the results" from docstring since these functions don't.
(mh-pick-execute-search, mh-grep-execute-search): Sync docstring with
manual.
(mh-index-generate-pretty-name): Prune -search from string so that
folder names for pick searches are the same as those of other
searches.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-search.el.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.53&tr2=1.54&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-customize.el.diff?tr1=1.59&tr2=1.60&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.115&tr2=1.116&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.115 emacs/lisp/mh-e/ChangeLog:1.116
--- emacs/lisp/mh-e/ChangeLog:1.115 Sat Jan 14 02:10:11 2006
+++ emacs/lisp/mh-e/ChangeLog Sat Jan 14 21:17:37 2006
@@ -1,3 +1,46 @@
+2006-01-14 Bill Wohler <address@hidden>
+
+ * mh-customize.el (mh-index): Rename group to mh-search and sort
+ group definition and options accordingly.
+ (mh-index-program): Rename to mh-search-program.
+ (mh-kill-folder-suppress-prompt-hooks): Rename mh-index-p to
+ mh-search-p.
+ (mh-search-mode-hook): Change group from mh-index to mh-search.
+ (mh-index-folder): Rename to mh-search-folder. Change group from
+ mh-index to mh-search.
+
+ * mh-e.el (mh-folder-font-lock-keywords): Rename mh-index-folder
+ to mh-search-folder.
+
+ * mh-search.el (mh-indexer) Rename to mh-searcher. The commands
+ pick and grep are searchers too but aren't indexed.
+ (mh-index-execute-search-function): Rename to mh-search-function.
+ (mh-index-next-result-function): Rename to
+ mh-search-next-result-function.
+ (mh-index-regexp-builder): Rename to mh-search-regexp-builder.
+ (mh-search): Since redo-search-flag defaults to nil and is of
+ lesser importance, make it an optional argument and place it after
+ the folder and search-regexp arguments. Sync docstring with
+ manual.
+ (mh-search-mode-map): Autoload so that keys are shown in help even
+ before mh-search is loaded.
+ (mh-search-mode): Sync docstring with manual.
+ (mh-index-do-search): Rename argument indexer to searcher. Sync
+ docstring with manual.
+ (mh-pick-do-search): Sync docstring with manual.
+ (mh-index-p): Rename to mh-search-p.
+ (mh-indexer-choices): Rename to mh-search-choices.
+ (mh-index-choose): Rename to mh-search-choose. Rename argument
+ indexer to searcher.
+ (mh-swish++-execute-search, mh-swish-execute-search)
+ (mh-mairix-execute-search, mh-namazu-execute-search): Drop "and
+ read the results" from docstring since these functions don't.
+ (mh-pick-execute-search, mh-grep-execute-search): Sync docstring
+ with manual.
+ (mh-index-generate-pretty-name): Prune -search from string so that
+ folder names for pick searches are the same as those of other
+ searches.
+
2006-01-13 Bill Wohler <address@hidden>
* mh-acros.el (require): Added Satyaki's comment regarding what
Index: emacs/lisp/mh-e/mh-customize.el
diff -u emacs/lisp/mh-e/mh-customize.el:1.59
emacs/lisp/mh-e/mh-customize.el:1.60
--- emacs/lisp/mh-e/mh-customize.el:1.59 Fri Jan 13 06:40:14 2006
+++ emacs/lisp/mh-e/mh-customize.el Sat Jan 14 21:17:37 2006
@@ -134,12 +134,6 @@
:link '(custom-manual "(mh-e)Incorporating Mail")
:group 'mh-e)
-(defgroup mh-index nil
- "Searching."
- :link '(custom-manual "(mh-e)Searching")
- :prefix "mh-index-"
- :group 'mh-e)
-
(defgroup mh-junk nil
"Dealing with junk mail."
:link '(custom-manual "(mh-e)Junk")
@@ -164,6 +158,12 @@
:prefix "mh-"
:group 'mh-e)
+(defgroup mh-search nil
+ "Searching."
+ :link '(custom-manual "(mh-e)Searching")
+ :prefix "mh-search-"
+ :group 'mh-e)
+
(defgroup mh-sending-mail nil
"Sending mail."
:prefix "mh-"
@@ -713,30 +713,6 @@
-;;; Searching (:group 'mh-index)
-
-(defcustom mh-index-program nil
- "Indexing program that MH-E shall use.
-
-The default setting of this option is \"Auto-detect\" which means
-that MH-E will automatically choose one of swish++, swish-e,
-mairix, namazu, pick and grep in that order. If, for example, you
-have both swish++ and mairix installed and you want to use
-mairix, then you can set this option to \"mairix\".
-
-More information about setting up an indexing program to use with
-MH-E can be found in the documentation of `mh-search'."
- :type '(choice (const :tag "Auto-detect" nil)
- (const :tag "swish++" swish++)
- (const :tag "swish-e" swish)
- (const :tag "mairix" mairix)
- (const :tag "namazu" namazu)
- (const :tag "pick" pick)
- (const :tag "grep" grep))
- :group 'mh-index)
-
-
-
;;; Dealing with Junk Mail (:group 'mh-junk)
;; Spam fighting program chosen
@@ -1114,6 +1090,30 @@
+;;; Searching (:group 'mh-search)
+
+(defcustom mh-search-program nil
+ "Search program that MH-E shall use.
+
+The default setting of this option is \"Auto-detect\" which means
+that MH-E will automatically choose one of swish++, swish-e,
+mairix, namazu, pick and grep in that order. If, for example, you
+have both swish++ and mairix installed and you want to use
+mairix, then you can set this option to \"mairix\".
+
+More information about setting up an indexing program to use with
+MH-E can be found in the documentation of `mh-search'."
+ :type '(choice (const :tag "Auto-detect" nil)
+ (const :tag "swish++" swish++)
+ (const :tag "swish-e" swish)
+ (const :tag "mairix" mairix)
+ (const :tag "namazu" namazu)
+ (const :tag "pick" pick)
+ (const :tag "grep" grep))
+ :group 'mh-search)
+
+
+
;;; Sending Mail (:group 'mh-sending-mail)
(defcustom mh-compose-forward-as-mime-flag t
@@ -2400,15 +2400,15 @@
:group 'mh-hooks
:group 'mh-letter)
-(defcustom mh-kill-folder-suppress-prompt-hooks '(mh-index-p)
+(defcustom mh-kill-folder-suppress-prompt-hooks '(mh-search-p)
"Abnormal hook run at the beginning of
\\<mh-folder-mode-map>\\[mh-kill-folder].
The hook functions are called with no arguments and should return
a non-nil value to suppress the normal prompt when you remove a
folder. This is useful for folders that are easily regenerated.
-The default value of `mh-index-p' suppresses the prompt on
-folders generated by an index search.
+The default value of `mh-search-p' suppresses the prompt on
+folders generated by searching.
WARNING: Use this hook with care. If there is a bug in your hook
which returns t on \"+inbox\" and you hit \\[mh-kill-folder] by
@@ -2444,7 +2444,7 @@
\\[mh-search] is run on a new pattern."
:type 'hook
:group 'mh-hooks
- :group 'mh-index)
+ :group 'mh-search)
(defcustom mh-quit-hook nil
"Hook run by \\<mh-folder-mode-map>\\[mh-quit] after quitting MH-E.
@@ -2629,7 +2629,7 @@
:group 'mh-faces
:group 'mh-folder)
-(defface mh-index-folder
+(defface mh-search-folder
'((((class color) (background light))
(:foreground "dark green" :bold t))
(((class color) (background dark))
@@ -2638,7 +2638,7 @@
(:bold t)))
"Folder heading face in MH-Folder buffers created by searches."
:group 'mh-faces
- :group 'mh-index)
+ :group 'mh-search)
(defface mh-letter-header-field
'((((class color) (background light))
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.53 emacs/lisp/mh-e/mh-e.el:1.54
--- emacs/lisp/mh-e/mh-e.el:1.53 Fri Jan 13 06:40:13 2006
+++ emacs/lisp/mh-e/mh-e.el Sat Jan 14 21:17:37 2006
@@ -331,7 +331,7 @@
(list
;; Folders when displaying index buffer
(list "^\\+.*"
- '(0 'mh-index-folder))
+ '(0 'mh-search-folder))
;; Marked for deletion
(list (concat mh-scan-deleted-msg-regexp ".*")
'(0 'mh-folder-deleted))
Index: emacs/lisp/mh-e/mh-search.el
diff -u emacs/lisp/mh-e/mh-search.el:1.2 emacs/lisp/mh-e/mh-search.el:1.3
--- emacs/lisp/mh-e/mh-search.el:1.2 Sat Jan 14 02:05:23 2006
+++ emacs/lisp/mh-e/mh-search.el Sat Jan 14 21:17:37 2006
@@ -1,4 +1,4 @@
-;;; mh-search -- MH-E search
+;;; mh-search --- MH-E search
;; Copyright (C) 1993, 1995,
;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
@@ -38,7 +38,7 @@
;; (2) To use this package, you first have to build an index. Please
;; read the documentation for `mh-search' to get started. That
;; documentation will direct you to the specific instructions for
-;; your particular indexer.
+;; your particular searcher.
;;; Change Log:
@@ -51,18 +51,18 @@
(require 'mh-buffers)
(require 'mh-e)
-(defvar mh-indexer nil
- "Cached value of chosen index program.")
+(defvar mh-searcher nil
+ "Cached value of chosen search program.")
-(defvar mh-index-execute-search-function nil
+(defvar mh-search-function nil
"Function which executes the search program.")
-(defvar mh-index-next-result-function nil
+(defvar mh-search-next-result-function nil
"Function to parse the next line of output.
Expected to return a list of three strings: name of the folder,
message number, and optionally the match.")
-(defvar mh-index-regexp-builder nil
+(defvar mh-search-regexp-builder nil
"Function used to construct search regexp.")
(defvar mh-index-folder "+mhe-index"
@@ -80,23 +80,28 @@
;;; MH-Search mode
;;;###mh-autoload
-(defun* mh-search (redo-search-flag folder search-regexp
- &optional window-config)
+(defun* mh-search (folder search-regexp
+ &optional redo-search-flag window-config)
"Search your MH mail.
-With this command, you can search for messages to or from a
-particular person or about a particular subject. In fact, you can
-also search for messages containing selected strings in any
-arbitrary header field or any string found within the messages.
-
-Use a prefix argument REDO-SEARCH-FLAG to repeat the last search.
+This command helps you find messages in your entire corpus of
+mail. You can search for messages to or from a particular person
+or about a particular subject. In fact, you can also search for
+messages containing selected strings in any arbitrary header
+field or any string found within the messages.
+
+Out of the box, MH-E uses \"pick\" to find messages. With a
+little extra effort, you can set an indexing program which
+rewards you with extremely quick results. The drawback is that
+sometimes the index does not contain the words you're looking
+for. You can still use \"pick\" in these situations.
You are prompted for the FOLDER to search. This can be \"all\" to
-search all folders. For most search methods, the search works
-recursively on the listed folder.
+search all folders. Note that the search works recursively on the
+listed folder.
Next, an MH-Search buffer appears where you can enter search
-criteria.
+criteria SEARCH-REGEXP.
From:
To:
@@ -111,17 +116,12 @@
anywhere in a message, then place the string underneath the row
of dashes.
-It is all right to specify several search criteria. What happens
-then is that a logical _and_ of the various fields is performed.
-If you prefer a logical _or_ operation, run \\[mh-search]
-multiple times.
-
As an example, let's say that we want to find messages from
Ginnean about horseback riding in the Kosciusko National
Park (Australia) during January, 1994. Normally we would start
with a broad search and narrow it down if necessary to produce a
manageable amount of data, but we'll cut to the chase and create
-a fairly restrictive set of criteria as follows:
+a fairly restrictive set of criteria as follows:\\<mh-search-mode-map>
From: ginnean
To:
@@ -133,13 +133,12 @@
kosciusko
As with MH-Letter mode, MH-Search provides commands like
-\\<mh-search-mode-map>\\[mh-to-field] to help you fill in the
-blanks.
+\\[mh-to-field] to help you fill in the blanks.\\<mh-folder-mode-map>
If you find that you do the same thing over and over when editing
the search template, you may wish to bind some shortcuts to keys.
This can be done with the variable `mh-search-mode-hook', which is
-called when \\[mh-search] is run on a new pattern.
+called when \\[mh-search] is run on a new pattern.\\<mh-search-mode-map>
To perform the search, type \\[mh-index-do-search].
@@ -155,7 +154,7 @@
with the folder name.\\<mh-folder-mode-map>
The appearance of the heading can be modified by customizing the
-face `mh-index-folder'. You can jump back and forth between the
+face `mh-search-folder'. You can jump back and forth between the
headings using the commands \\[mh-index-next-folder] and
\\[mh-index-previous-folder].
@@ -169,37 +168,33 @@
view surrounding messages with the command \\[mh-rescan-folder].
Because this folder is temporary, you'll probably get in the
-habit of killing it when you're done with
-\\[mh-kill-folder].
+habit of killing it when you're done with \\[mh-kill-folder].
+
+You can regenerate the results by running this command with a
+prefix argument REDO-SEARCH-FLAG.
+
+Note: This command uses an \"X-MHE-Checksum:\" header field to
+cache the MD5 checksum of a message. This means that if an
+incoming message already contains an \"X-MHE-Checksum:\" field,
+that message might not be found by this command. The following
+\"procmail\" recipe avoids this problem by renaming the existing
+header field:
+
+ :0 wf
+ | formail -R \"X-MHE-Checksum\" \"X-Old-MHE-Checksum\"
-SEARCH METHODS
+Configuring Indexed Searches
The command \\[mh-search] runs the command defined by the option
-`mh-index-program'. The default value is \"Auto-detect\" which
+`mh-search-program'. The default value is \"Auto-detect\" which
means that MH-E will automatically choose one of \"swish++\",
\"swish-e\", \"mairix\", \"namazu\", \"pick\" and \"grep\" in
that order. If, for example, you have both \"swish++\" and
\"mairix\" installed and you want to use \"mairix\", then you can
set this option to \"mairix\".
- *NOTE*
-
- The \"pick\" and \"grep\" commands do not perform a
- recursive search on the given folder.
-
-This command uses an \"X-MHE-Checksum:\" header field to cache
-the MD5 checksum of a message. This means that if an incoming
-message already contains an \"X-MHE-Checksum:\" field, that
-message might not be found by this command. The following
-\"procmail\" recipe avoids this problem by renaming the existing
-header field:
-
- :0 wf
- | formail -R \"X-MHE-Checksum\" \"X-Old-MHE-Checksum\"
-
The documentation for the following commands describe how to set
-up the various indexing programs to use with MH-E. The \"pick\"
-and \"grep\" commands do not require additional configuration.
+up the various indexing programs to use with MH-E.
- `mh-swish++-execute-search'
- `mh-swish-execute-search'
@@ -208,31 +203,30 @@
- `mh-pick-execute-search'
- `mh-grep-execute-search'
-In a program, the folder is searched with SEARCH-REGEXP. If
-FOLDER is \"+\" then mail in all folders are searched. Optional
-argument WINDOW-CONFIG stores the window configuration that will
-be restored after the user quits the folder containing the index
-search results."
+In a program, if FOLDER is \"+\" or nil, then mail in all folders
+are searched. Optional argument WINDOW-CONFIG stores the window
+configuration that will be restored after the user quits the
+folder containing the index search results."
(interactive
- (list current-prefix-arg
- (progn
+ (list (progn
(mh-find-path)
- ;; Yes, we do want to call mh-index-choose every time in case the
- ;; user has switched the indexer manually.
- (unless (mh-index-choose (and current-prefix-arg
- mh-index-previous-search
- (cadr mh-index-previous-search)))
- (error "No indexing program found"))
+ ;; Yes, we do want to call mh-search-choose every time in case the
+ ;; user has switched the searcher manually.
+ (unless (mh-search-choose (and current-prefix-arg
+ mh-index-previous-search
+ (cadr mh-index-previous-search)))
+ (error "No search program found"))
(or (and current-prefix-arg mh-index-sequence-search-flag)
(and current-prefix-arg (car mh-index-previous-search))
(mh-prompt-for-folder "Search" "+" nil "all" t)))
(or (and current-prefix-arg (caddr mh-index-previous-search))
- mh-index-regexp-builder
+ mh-search-regexp-builder
(read-string (format "%s regexp: "
- (upcase-initials (symbol-name mh-indexer)))))
+ (upcase-initials (symbol-name
mh-searcher)))))
+ current-prefix-arg
(if (and (not (and current-prefix-arg
(caddr mh-index-previous-search)))
- mh-index-regexp-builder)
+ mh-search-regexp-builder)
(current-window-configuration)
nil)))
;; Redoing a sequence search?
@@ -265,13 +259,13 @@
(folder-results-map (make-hash-table :test #'equal))
(origin-map (make-hash-table :test #'equal)))
;; Run search program...
- (message "Executing %s... " mh-indexer)
- (funcall mh-index-execute-search-function folder-path search-regexp)
+ (message "Executing %s... " mh-searcher)
+ (funcall mh-search-function folder-path search-regexp)
- ;; Parse indexer output.
- (message "Processing %s output... " mh-indexer)
+ ;; Parse searcher output.
+ (message "Processing %s output... " mh-searcher)
(goto-char (point-min))
- (loop for next-result = (funcall mh-index-next-result-function)
+ (loop for next-result = (funcall mh-search-next-result-function)
while next-result
do (unless (eq next-result 'error)
(unless (gethash (car next-result) folder-results-map)
@@ -314,13 +308,13 @@
;; Maintain history.
(when (or (and redo-search-flag previous-search) window-config)
(setq mh-previous-window-config old-window-config))
- (setq mh-index-previous-search (list folder mh-indexer search-regexp))
+ (setq mh-index-previous-search (list folder mh-searcher search-regexp))
;; Write out data to disk.
(unless mh-flists-called-flag (mh-index-write-data))
(message "%s found %s matches in %s folders"
- (upcase-initials (symbol-name mh-indexer))
+ (upcase-initials (symbol-name mh-searcher))
(loop for msg-hash being hash-values of mh-index-data
sum (hash-table-count msg-hash))
(loop for msg-hash being hash-values of mh-index-data
@@ -367,9 +361,11 @@
(add-text-properties (point) (1- (line-end-position)) '(read-only t))
(goto-char (point-max)))
+;;;###mh-autoload
(defvar mh-search-mode-map (make-sparse-keymap)
"Keymap for searching folder.")
+;;;###mh-autoload
;; If this changes, modify mh-search-mode-help-messages accordingly, below.
(gnus-define-keys mh-search-mode-map
"\C-c?" mh-help
@@ -420,12 +416,18 @@
(define-derived-mode mh-search-mode fundamental-mode "MH-Search"
"Mode for creating search templates in MH-E.\\<mh-search-mode-map>
-After each field name, enter the pattern to search for. If a field's
-value does not matter for the search, leave it empty. To search the
-entire message, supply the pattern in the \"body\" of the template.
-Each non-empty field must be matched for a message to be selected. To
-effect a logical \"or\", use \\[mh-search-folder] multiple times. When
-you have finished, type \\[mh-pick-do-search] to do the search.
+Edit this template by entering your search criteria in an
+appropriate header field that is already there, or create a new
+field yourself. If the string you're looking for could be
+anywhere in a message, then place the string underneath the row
+of dashes.
+
+To perform the search, type \\[mh-index-do-search].
+
+Sometimes you're searching for text that is either not indexed,
+or hasn't been indexed yet. In this case you can override the
+default method with the pick method by running the command
+\\[mh-pick-do-search].
The hook `mh-search-mode-hook' is called upon entry to this mode.
@@ -436,21 +438,21 @@
(setq mh-help-messages mh-search-mode-help-messages))
;;;###mh-autoload
-(defun mh-index-do-search (&optional indexer)
- "Find messages that match the qualifications in the current pattern buffer.
-If optional argument INDEXER is present, use it instead of
-`mh-index-program'."
+(defun mh-index-do-search (&optional searcher)
+ "Find messages using `mh-search-program'.
+If optional argument SEARCHER is present, use it instead of
+`mh-search-program'."
(interactive)
- (unless (mh-index-choose indexer) (error "No indexing program found"))
+ (unless (mh-search-choose searcher) (error "No search program found"))
(let* ((regexp-list (mh-pick-parse-search-buffer))
- (pattern (funcall mh-index-regexp-builder regexp-list)))
+ (pattern (funcall mh-search-regexp-builder regexp-list)))
(if pattern
- (mh-search nil mh-current-folder pattern mh-previous-window-config)
+ (mh-search mh-current-folder pattern nil mh-previous-window-config)
(error "No search terms"))))
;;;###mh-autoload
(defun mh-pick-do-search ()
- "Find messages that match the qualifications in the current pattern buffer.
+ "Find messages using \"pick\".
Uses the pick method described in `mh-pick-execute-search'."
(interactive)
@@ -642,11 +644,11 @@
(let* ((mh-flists-search-folders folders)
(mh-flists-sequence sequence)
(mh-flists-called-flag t)
- (mh-indexer 'flists)
- (mh-index-execute-search-function 'mh-flists-execute)
- (mh-index-next-result-function 'mh-mairix-next-result)
+ (mh-searcher 'flists)
+ (mh-search-function 'mh-flists-execute)
+ (mh-search-next-result-function 'mh-mairix-next-result)
(mh-mairix-folder mh-user-path)
- (mh-index-regexp-builder nil)
+ (mh-search-regexp-builder nil)
(new-folder (format "%s/%s/%s" mh-index-folder
mh-flists-results-folder sequence))
(window-config (if (equal new-folder mh-current-folder)
@@ -658,16 +660,16 @@
;; The destination folder is being visited. Trick `mh-search'
;; into thinking that the folder resulted from a previous search.
(set-buffer new-folder)
- (setq mh-index-previous-search (list folders mh-indexer sequence))
+ (setq mh-index-previous-search (list folders mh-searcher sequence))
(setq redo-flag t))
((mh-folder-exists-p new-folder)
;; Folder exists but we don't have it open. That means they are
;; stale results from a old flists search. Clear it out.
(mh-exec-cmd-quiet nil "rmf" new-folder)))
- (setq message (mh-search redo-flag "+" mh-flists-results-folder
- window-config)
+ (setq message (mh-search "+" mh-flists-results-folder
+ redo-flag window-config)
mh-index-sequence-search-flag t
- mh-index-previous-search (list folders mh-indexer sequence))
+ mh-index-previous-search (list folders mh-searcher sequence))
(mh-index-write-data)
(when (stringp message) (message "%s" message))))
@@ -831,8 +833,8 @@
when (mh-msg-exists-p x folder) collect x)))))
;;;###mh-autoload
-(defun mh-index-p ()
- "Non-nil means that this folder was generated by an index search."
+(defun mh-search-p ()
+ "Non-nil means that this folder was generated by searching."
mh-index-data)
;;;###mh-autoload
@@ -881,8 +883,8 @@
;;; Indexing functions
-;; Support different indexing programs
-(defvar mh-indexer-choices
+;; Support different search programs
+(defvar mh-search-choices
'((swish++
mh-swish++-binary mh-swish++-execute-search mh-swish++-next-result
mh-swish++-regexp-builder)
@@ -898,32 +900,32 @@
mh-pick-regexp-builder)
(grep
mh-grep-binary mh-grep-execute-search mh-grep-next-result nil))
- "List of possible indexer choices.")
+ "List of possible searcher choices.")
-(defun mh-index-choose (&optional indexer)
- "Choose an indexing function.
+(defun mh-search-choose (&optional searcher)
+ "Choose a searching function.
The side-effects of this function are that the variables
-`mh-indexer', `mh-index-execute-search-function', and
-`mh-index-next-result-function' are set according to the first
-indexer in `mh-indexer-choices' present on the system.
-If optional argument INDEXER is present, use it instead of
-`mh-index-program'."
+`mh-searcher', `mh-search-function', and
+`mh-search-next-result-function' are set according to the first
+searcher in `mh-search-choices' present on the system. If
+optional argument SEARCHER is present, use it instead of
+`mh-search-program'."
(block nil
- (let ((program-alist (cond (indexer
- (list (assoc indexer mh-indexer-choices)))
- (mh-index-program
+ (let ((program-alist (cond (searcher
+ (list (assoc searcher mh-search-choices)))
+ (mh-search-program
(list
- (assoc mh-index-program mh-indexer-choices)))
- (t mh-indexer-choices))))
+ (assoc mh-search-program mh-search-choices)))
+ (t mh-search-choices))))
(while program-alist
(let* ((current (pop program-alist))
(executable (symbol-value (cadr current))))
(when executable
- (setq mh-indexer (car current))
- (setq mh-index-execute-search-function (nth 2 current))
- (setq mh-index-next-result-function (nth 3 current))
- (setq mh-index-regexp-builder (nth 4 current))
- (return mh-indexer))))
+ (setq mh-searcher (car current))
+ (setq mh-search-function (nth 2 current))
+ (setq mh-search-next-result-function (nth 3 current))
+ (setq mh-search-regexp-builder (nth 4 current))
+ (return mh-searcher))))
nil)))
;;; Swish++ interface
@@ -935,7 +937,7 @@
;;;###mh-autoload
(defun mh-swish++-execute-search (folder-path search-regexp)
- "Execute swish++ and read the results.
+ "Execute swish++.
In the examples below, replace \"/home/user/Mail\" with the path to
your MH directory.
@@ -1015,7 +1017,7 @@
;;;###mh-autoload
(defun mh-swish-execute-search (folder-path search-regexp)
- "Execute swish-e and read the results.
+ "Execute swish-e.
In the examples below, replace \"/home/user/Mail\" with the path
to your MH directory.
@@ -1116,7 +1118,7 @@
;;;###mh-autoload
(defun mh-mairix-execute-search (folder-path search-regexp-list)
- "Execute mairix and read the results.
+ "Execute mairix.
In the examples below, replace \"/home/user/Mail\" with the path
to your MH directory.
@@ -1250,7 +1252,7 @@
;;;###mh-autoload
(defun mh-namazu-execute-search (folder-path search-regexp)
- "Execute namazu and read the results.
+ "Execute namazu.
In the examples below, replace \"/home/user/Mail\" with the path to
your MH directory.
@@ -1328,9 +1330,9 @@
(defun mh-pick-execute-search (folder-path search-regexp)
"Execute pick.
-There are no semantics associated with the search criteria--they
-are simply treated as strings. Case is ignored when all lowercase
-is used, and regular expressions (a la \"ed\") are available.
+Read \"pick(1)\" or the section Finding Messages with pick in the
+MH book to find out more about how to enter the criteria (see URL
+`http://www.ics.uci.edu/~mh/book/mh/finpic.htm').
In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP
is used to search."
@@ -1414,7 +1416,12 @@
;;;###mh-autoload
(defun mh-grep-execute-search (folder-path search-regexp)
- "Execute grep and read the results.
+ "Execute grep.
+
+Unlike the other search methods, this method does not use the
+MH-Search buffer. Instead, you simply enter a regular expression
+in the minibuffer. For help in constructing regular expressions,
+see your man page for \"grep\".
In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP
is used to search."
@@ -1477,6 +1484,7 @@
(insert "_" s)))
(setq string (mh-replace-string "-lbrace" " "))
(setq string (mh-replace-string "-rbrace" " "))
+ (setq string (mh-replace-string "-search" " "))
(subst-char-in-region (point-min) (point-max) ?( ? t)
(subst-char-in-region (point-min) (point-max) ?) ? t)
(subst-char-in-region (point-min) (point-max) ?- ? t)
@@ -1492,7 +1500,7 @@
(subst-char-in-region (point-min) (point-max) ?\r ?_ t)
(subst-char-in-region (point-min) (point-max) ?/ ?$ t)
(let ((out (truncate-string-to-width (buffer-string) 20)))
- (cond ((eq mh-indexer 'flists)
+ (cond ((eq mh-searcher 'flists)
(format "%s/%s" mh-flists-results-folder mh-flists-sequence))
((equal out mh-flists-results-folder) (concat out "1"))
(t out)))))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-search.el mh-e.el mh-customi...,
Bill Wohler <=