Mercurial > emacs
annotate lisp/mh-e/mh-search.el @ 68192:2cfa649fa39d
* 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.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Sat, 14 Jan 2006 21:17:37 +0000 |
parents | dcf226991252 |
children | 5012e59a73c7 |
rev | line source |
---|---|
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1 ;;; mh-search --- MH-E search |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3 ;; Copyright (C) 1993, 1995, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
4 ;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
5 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
6 ;; Author: Indexed search by Satyaki Das <satyaki@theforce.stanford.edu> |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
7 ;; Maintainer: Bill Wohler <wohler@newt.com> |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
8 ;; Keywords: mail |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
9 ;; See: mh-e.el |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
10 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
11 ;; This file is part of GNU Emacs. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
12 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
15 ;; the Free Software Foundation; either version 2, or (at your option) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
16 ;; any later version. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
17 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
21 ;; GNU General Public License for more details. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
22 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
26 ;; Boston, MA 02110-1301, USA. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
27 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
28 ;;; Commentary: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
29 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
30 ;; (1) The following search engines are supported: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
31 ;; swish++ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
32 ;; swish-e |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
33 ;; mairix |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
34 ;; namazu |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
35 ;; pick |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
36 ;; grep |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
37 ;; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
38 ;; (2) To use this package, you first have to build an index. Please |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
39 ;; read the documentation for `mh-search' to get started. That |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
40 ;; documentation will direct you to the specific instructions for |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
41 ;; your particular searcher. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
42 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
43 ;;; Change Log: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
44 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
45 ;;; Code: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
46 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
47 (eval-when-compile (require 'mh-acros)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
48 (mh-require-cl) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
49 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
50 (require 'gnus-util) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
51 (require 'mh-buffers) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
52 (require 'mh-e) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
53 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
54 (defvar mh-searcher nil |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
55 "Cached value of chosen search program.") |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
56 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
57 (defvar mh-search-function nil |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
58 "Function which executes the search program.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
59 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
60 (defvar mh-search-next-result-function nil |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
61 "Function to parse the next line of output. |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
62 Expected to return a list of three strings: name of the folder, |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
63 message number, and optionally the match.") |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
64 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
65 (defvar mh-search-regexp-builder nil |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
66 "Function used to construct search regexp.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
67 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
68 (defvar mh-index-folder "+mhe-index" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
69 "Folder that contains the folders resulting from the index searches.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
70 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
71 (defvar mh-flists-results-folder "sequence" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
72 "Subfolder for `mh-index-folder' where flists output is placed.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
73 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
74 (defvar mh-flists-sequence) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
75 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
76 (defvar mh-flists-called-flag nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
77 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
78 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
79 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
80 ;;; MH-Search mode |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
81 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
82 ;;;###mh-autoload |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
83 (defun* mh-search (folder search-regexp |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
84 &optional redo-search-flag window-config) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
85 "Search your MH mail. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
86 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
87 This command helps you find messages in your entire corpus of |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
88 mail. You can search for messages to or from a particular person |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
89 or about a particular subject. In fact, you can also search for |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
90 messages containing selected strings in any arbitrary header |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
91 field or any string found within the messages. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
92 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
93 Out of the box, MH-E uses \"pick\" to find messages. With a |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
94 little extra effort, you can set an indexing program which |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
95 rewards you with extremely quick results. The drawback is that |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
96 sometimes the index does not contain the words you're looking |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
97 for. You can still use \"pick\" in these situations. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
98 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
99 You are prompted for the FOLDER to search. This can be \"all\" to |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
100 search all folders. Note that the search works recursively on the |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
101 listed folder. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
102 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
103 Next, an MH-Search buffer appears where you can enter search |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
104 criteria SEARCH-REGEXP. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
105 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
106 From: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
107 To: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
108 Cc: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
109 Date: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
110 Subject: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
111 -------- |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
112 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
113 Edit this template by entering your search criteria in an |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
114 appropriate header field that is already there, or create a new |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
115 field yourself. If the string you're looking for could be |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
116 anywhere in a message, then place the string underneath the row |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
117 of dashes. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
118 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
119 As an example, let's say that we want to find messages from |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
120 Ginnean about horseback riding in the Kosciusko National |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
121 Park (Australia) during January, 1994. Normally we would start |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
122 with a broad search and narrow it down if necessary to produce a |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
123 manageable amount of data, but we'll cut to the chase and create |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
124 a fairly restrictive set of criteria as follows:\\<mh-search-mode-map> |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
125 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
126 From: ginnean |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
127 To: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
128 Cc: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
129 Date: Jan 1994 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
130 Subject: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
131 -------- |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
132 horse |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
133 kosciusko |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
134 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
135 As with MH-Letter mode, MH-Search provides commands like |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
136 \\[mh-to-field] to help you fill in the blanks.\\<mh-folder-mode-map> |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
137 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
138 If you find that you do the same thing over and over when editing |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
139 the search template, you may wish to bind some shortcuts to keys. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
140 This can be done with the variable `mh-search-mode-hook', which is |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
141 called when \\[mh-search] is run on a new pattern.\\<mh-search-mode-map> |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
142 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
143 To perform the search, type \\[mh-index-do-search]. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
144 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
145 Sometimes you're searching for text that is either not indexed, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
146 or hasn't been indexed yet. In this case you can override the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
147 default method with the pick method by running the command |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
148 \\[mh-pick-do-search]. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
149 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
150 The messages that are found are put in a temporary sub-folder of |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
151 \"+mhe-index\" and are displayed in an MH-Folder buffer. This |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
152 buffer is special because it displays messages from multiple |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
153 folders; each set of messages from a given folder has a heading |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
154 with the folder name.\\<mh-folder-mode-map> |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
155 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
156 The appearance of the heading can be modified by customizing the |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
157 face `mh-search-folder'. You can jump back and forth between the |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
158 headings using the commands \\[mh-index-next-folder] and |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
159 \\[mh-index-previous-folder]. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
160 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
161 In addition, the command \\[mh-index-visit-folder] can be used to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
162 visit the folder of the message at point. Initially, only the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
163 messages that matched the search criteria are displayed in the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
164 folder. While the temporary buffer has its own set of message |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
165 numbers, the actual messages numbers are shown in the visited |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
166 folder. Thus, the command \\[mh-index-visit-folder] is useful to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
167 find the actual message number of an interesting message, or to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
168 view surrounding messages with the command \\[mh-rescan-folder]. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
169 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
170 Because this folder is temporary, you'll probably get in the |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
171 habit of killing it when you're done with \\[mh-kill-folder]. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
172 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
173 You can regenerate the results by running this command with a |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
174 prefix argument REDO-SEARCH-FLAG. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
175 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
176 Note: This command uses an \"X-MHE-Checksum:\" header field to |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
177 cache the MD5 checksum of a message. This means that if an |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
178 incoming message already contains an \"X-MHE-Checksum:\" field, |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
179 that message might not be found by this command. The following |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
180 \"procmail\" recipe avoids this problem by renaming the existing |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
181 header field: |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
182 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
183 :0 wf |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
184 | formail -R \"X-MHE-Checksum\" \"X-Old-MHE-Checksum\" |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
185 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
186 Configuring Indexed Searches |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
187 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
188 The command \\[mh-search] runs the command defined by the option |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
189 `mh-search-program'. The default value is \"Auto-detect\" which |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
190 means that MH-E will automatically choose one of \"swish++\", |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
191 \"swish-e\", \"mairix\", \"namazu\", \"pick\" and \"grep\" in |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
192 that order. If, for example, you have both \"swish++\" and |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
193 \"mairix\" installed and you want to use \"mairix\", then you can |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
194 set this option to \"mairix\". |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
195 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
196 The documentation for the following commands describe how to set |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
197 up the various indexing programs to use with MH-E. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
198 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
199 - `mh-swish++-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
200 - `mh-swish-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
201 - `mh-mairix-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
202 - `mh-namazu-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
203 - `mh-pick-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
204 - `mh-grep-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
205 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
206 In a program, if FOLDER is \"+\" or nil, then mail in all folders |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
207 are searched. Optional argument WINDOW-CONFIG stores the window |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
208 configuration that will be restored after the user quits the |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
209 folder containing the index search results." |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
210 (interactive |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
211 (list (progn |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
212 (mh-find-path) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
213 ;; Yes, we do want to call mh-search-choose every time in case the |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
214 ;; user has switched the searcher manually. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
215 (unless (mh-search-choose (and current-prefix-arg |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
216 mh-index-previous-search |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
217 (cadr mh-index-previous-search))) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
218 (error "No search program found")) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
219 (or (and current-prefix-arg mh-index-sequence-search-flag) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
220 (and current-prefix-arg (car mh-index-previous-search)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
221 (mh-prompt-for-folder "Search" "+" nil "all" t))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
222 (or (and current-prefix-arg (caddr mh-index-previous-search)) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
223 mh-search-regexp-builder |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
224 (read-string (format "%s regexp: " |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
225 (upcase-initials (symbol-name mh-searcher))))) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
226 current-prefix-arg |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
227 (if (and (not (and current-prefix-arg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
228 (caddr mh-index-previous-search))) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
229 mh-search-regexp-builder) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
230 (current-window-configuration) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
231 nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
232 ;; Redoing a sequence search? |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
233 (when (and redo-search-flag mh-index-data mh-index-sequence-search-flag |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
234 (not mh-flists-called-flag)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
235 (let ((mh-flists-called-flag t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
236 (apply #'mh-index-sequenced-messages mh-index-previous-search)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
237 (return-from mh-search)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
238 ;; We have fancy query parsing. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
239 (when (symbolp search-regexp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
240 (mh-search-folder folder window-config) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
241 (return-from mh-search)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
242 ;; Begin search proper. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
243 (mh-checksum-choose) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
244 (let ((result-count 0) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
245 (old-window-config (or window-config mh-previous-window-config)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
246 (previous-search mh-index-previous-search) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
247 (index-folder (format "%s/%s" mh-index-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
248 (mh-index-generate-pretty-name search-regexp)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
249 ;; Create a new folder for the search results or recreate the old one... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
250 (if (and redo-search-flag mh-index-previous-search) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
251 (let ((buffer-name (buffer-name (current-buffer)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
252 (mh-process-or-undo-commands buffer-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
253 (save-excursion (mh-exec-cmd-quiet nil "rmf" buffer-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
254 (mh-exec-cmd-quiet nil "folder" "-create" "-fast" buffer-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
255 (setq index-folder buffer-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
256 (setq index-folder (mh-index-new-folder index-folder search-regexp))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
257 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
258 (let ((folder-path (format "%s%s" mh-user-path (substring folder 1))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
259 (folder-results-map (make-hash-table :test #'equal)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
260 (origin-map (make-hash-table :test #'equal))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
261 ;; Run search program... |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
262 (message "Executing %s... " mh-searcher) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
263 (funcall mh-search-function folder-path search-regexp) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
264 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
265 ;; Parse searcher output. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
266 (message "Processing %s output... " mh-searcher) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
267 (goto-char (point-min)) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
268 (loop for next-result = (funcall mh-search-next-result-function) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
269 while next-result |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
270 do (unless (eq next-result 'error) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
271 (unless (gethash (car next-result) folder-results-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
272 (setf (gethash (car next-result) folder-results-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
273 (make-hash-table :test #'equal))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
274 (setf (gethash (cadr next-result) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
275 (gethash (car next-result) folder-results-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
276 t))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
277 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
278 ;; Copy the search results over. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
279 (maphash #'(lambda (folder msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
280 (let ((cur (car (mh-translate-range folder "cur"))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
281 (msgs (sort (loop for msg being the hash-keys of msgs |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
282 collect msg) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
283 #'<))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
284 (mh-exec-cmd "refile" msgs "-src" folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
285 "-link" index-folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
286 ;; Restore cur to old value, that refile changed |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
287 (when cur |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
288 (mh-exec-cmd-quiet nil "mark" folder "-add" "-zero" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
289 "-sequence" "cur" (format "%s" cur))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
290 (loop for msg in msgs |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
291 do (incf result-count) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
292 (setf (gethash result-count origin-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
293 (cons folder msg))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
294 folder-results-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
295 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
296 ;; Vist the results folder. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
297 (mh-visit-folder index-folder () (list folder-results-map origin-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
298 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
299 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
300 (forward-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
301 (mh-update-sequences) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
302 (mh-recenter nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
303 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
304 ;; Update the speedbar, if needed. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
305 (when (mh-speed-flists-active-p) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
306 (mh-speed-flists t mh-current-folder)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
307 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
308 ;; Maintain history. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
309 (when (or (and redo-search-flag previous-search) window-config) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
310 (setq mh-previous-window-config old-window-config)) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
311 (setq mh-index-previous-search (list folder mh-searcher search-regexp)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
312 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
313 ;; Write out data to disk. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
314 (unless mh-flists-called-flag (mh-index-write-data)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
315 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
316 (message "%s found %s matches in %s folders" |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
317 (upcase-initials (symbol-name mh-searcher)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
318 (loop for msg-hash being hash-values of mh-index-data |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
319 sum (hash-table-count msg-hash)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
320 (loop for msg-hash being hash-values of mh-index-data |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
321 count (> (hash-table-count msg-hash) 0)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
322 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
323 (defun mh-search-folder (folder window-config) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
324 "Search FOLDER for messages matching a pattern. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
325 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
326 In a program, argument WINDOW-CONFIG is the current window |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
327 configuration and is used when the search folder is dismissed." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
328 (interactive (list (mh-prompt-for-folder "Search" mh-current-folder nil nil t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
329 (current-window-configuration))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
330 (let ((pick-folder (if (equal folder "+") mh-current-folder folder))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
331 (switch-to-buffer-other-window "search-pattern") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
332 (if (or (zerop (buffer-size)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
333 (not (y-or-n-p "Reuse pattern? "))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
334 (mh-make-pick-template) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
335 (message "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
336 (mh-make-local-vars 'mh-current-folder folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
337 'mh-previous-window-config window-config) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
338 (message "%s" (substitute-command-keys |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
339 (concat "Type \\[mh-index-do-search] to search messages, " |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
340 "\\[mh-pick-do-search] to use pick, " |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
341 "\\[mh-help] for help"))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
342 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
343 (defun mh-make-pick-template () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
344 "Initialize the current buffer with a template for a pick pattern." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
345 (let ((inhibit-read-only t)) (erase-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
346 (insert "From: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
347 "To: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
348 "Cc: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
349 "Date: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
350 "Subject: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
351 "---------\n") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
352 (mh-search-mode) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
353 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
354 (dotimes (i 5) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
355 (add-text-properties (point) (1+ (point)) '(front-sticky t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
356 (add-text-properties (- (line-end-position) 2) (1- (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
357 '(rear-nonsticky t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
358 (add-text-properties (point) (1- (line-end-position)) '(read-only t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
359 (forward-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
360 (add-text-properties (point) (1+ (point)) '(front-sticky t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
361 (add-text-properties (point) (1- (line-end-position)) '(read-only t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
362 (goto-char (point-max))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
363 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
364 ;;;###mh-autoload |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
365 (defvar mh-search-mode-map (make-sparse-keymap) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
366 "Keymap for searching folder.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
367 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
368 ;;;###mh-autoload |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
369 ;; If this changes, modify mh-search-mode-help-messages accordingly, below. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
370 (gnus-define-keys mh-search-mode-map |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
371 "\C-c?" mh-help |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
372 "\C-c\C-c" mh-index-do-search |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
373 "\C-c\C-p" mh-pick-do-search |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
374 "\C-c\C-f\C-b" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
375 "\C-c\C-f\C-c" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
376 "\C-c\C-f\C-d" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
377 "\C-c\C-f\C-f" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
378 "\C-c\C-f\C-r" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
379 "\C-c\C-f\C-s" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
380 "\C-c\C-f\C-t" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
381 "\C-c\C-fb" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
382 "\C-c\C-fc" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
383 "\C-c\C-fd" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
384 "\C-c\C-ff" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
385 "\C-c\C-fr" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
386 "\C-c\C-fs" mh-to-field |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
387 "\C-c\C-ft" mh-to-field) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
388 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
389 (easy-menu-define |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
390 mh-pick-menu mh-search-mode-map "Menu for MH-E Search" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
391 '("Search" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
392 ["Perform Search" mh-index-do-search t] |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
393 ["Search with pick" mh-pick-do-search t])) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
394 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
395 ;; Group messages logically, more or less. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
396 (defvar mh-search-mode-help-messages |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
397 '((nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
398 "Perform search: \\[mh-index-do-search]\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
399 "Search with pick: \\[mh-pick-do-search]\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
400 "Move to a field by typing C-c C-f C-<field>\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
401 "where <field> is the first letter of the desired field\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
402 "(except for From: which uses \"m\").")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
403 "Key binding cheat sheet. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
404 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
405 This is an associative array which is used to show the most common |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
406 commands. The key is a prefix char. The value is one or more strings |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
407 which are concatenated together and displayed in the minibuffer if ? |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
408 is pressed after the prefix character. The special key nil is used to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
409 display the non-prefixed commands. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
410 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
411 The substitutions described in `substitute-command-keys' are performed |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
412 as well.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
413 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
414 (put 'mh-search-mode 'mode-class 'special) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
415 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
416 (define-derived-mode mh-search-mode fundamental-mode "MH-Search" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
417 "Mode for creating search templates in MH-E.\\<mh-search-mode-map> |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
418 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
419 Edit this template by entering your search criteria in an |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
420 appropriate header field that is already there, or create a new |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
421 field yourself. If the string you're looking for could be |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
422 anywhere in a message, then place the string underneath the row |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
423 of dashes. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
424 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
425 To perform the search, type \\[mh-index-do-search]. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
426 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
427 Sometimes you're searching for text that is either not indexed, |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
428 or hasn't been indexed yet. In this case you can override the |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
429 default method with the pick method by running the command |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
430 \\[mh-pick-do-search]. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
431 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
432 The hook `mh-search-mode-hook' is called upon entry to this mode. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
433 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
434 \\{mh-search-mode-map}" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
435 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
436 (make-local-variable 'mh-help-messages) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
437 (easy-menu-add mh-pick-menu) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
438 (setq mh-help-messages mh-search-mode-help-messages)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
439 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
440 ;;;###mh-autoload |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
441 (defun mh-index-do-search (&optional searcher) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
442 "Find messages using `mh-search-program'. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
443 If optional argument SEARCHER is present, use it instead of |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
444 `mh-search-program'." |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
445 (interactive) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
446 (unless (mh-search-choose searcher) (error "No search program found")) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
447 (let* ((regexp-list (mh-pick-parse-search-buffer)) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
448 (pattern (funcall mh-search-regexp-builder regexp-list))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
449 (if pattern |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
450 (mh-search mh-current-folder pattern nil mh-previous-window-config) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
451 (error "No search terms")))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
452 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
453 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
454 (defun mh-pick-do-search () |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
455 "Find messages using \"pick\". |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
456 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
457 Uses the pick method described in `mh-pick-execute-search'." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
458 (interactive) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
459 (mh-index-do-search 'pick)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
460 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
461 (defun mh-pick-parse-search-buffer () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
462 "Parse the search buffer contents. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
463 The function returns a alist. The car of each element is either |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
464 the header name to search in or nil to search the whole message. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
465 The cdr of the element is the pattern to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
466 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
467 (let ((pattern-list ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
468 (in-body-flag nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
469 start begin) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
470 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
471 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
472 (if (search-forward "--------" (line-end-position) t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
473 (setq in-body-flag t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
474 (beginning-of-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
475 (setq begin (point)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
476 (setq start (if in-body-flag |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
477 (point) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
478 (search-forward ":" (line-end-position) t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
479 (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
480 (push (cons (and (not in-body-flag) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
481 (intern (downcase |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
482 (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
483 begin (1- start))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
484 (mh-index-parse-search-regexp |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
485 (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
486 start (line-end-position)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
487 pattern-list)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
488 (forward-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
489 pattern-list))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
490 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
491 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
492 (defun mh-index-parse-search-regexp (input-string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
493 "Construct parse tree for INPUT-STRING. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
494 All occurrences of &, |, ! and ~ in INPUT-STRING are replaced by |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
495 AND, OR and NOT as appropriate. Then the resulting string is |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
496 parsed." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
497 (let (input) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
498 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
499 (insert input-string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
500 ;; replace tabs |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
501 (mh-replace-string "\t" " ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
502 ;; synonyms of AND |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
503 (mh-replace-string " AND " " and ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
504 (mh-replace-string "&" " and ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
505 (mh-replace-string " -and " " and ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
506 ;; synonyms of OR |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
507 (mh-replace-string " OR " " or ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
508 (mh-replace-string "|" " or ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
509 (mh-replace-string " -or " " or ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
510 ;; synonyms of NOT |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
511 (mh-replace-string " NOT " " not ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
512 (mh-replace-string "!" " not ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
513 (mh-replace-string "~" " not ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
514 (mh-replace-string " -not " " not ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
515 ;; synonyms of left brace |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
516 (mh-replace-string "(" " ( ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
517 (mh-replace-string " -lbrace " " ( ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
518 ;; synonyms of right brace |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
519 (mh-replace-string ")" " ) ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
520 (mh-replace-string " -rbrace " " ) ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
521 ;; get the normalized input |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
522 (setq input (format "( %s )" (buffer-substring (point-min) (point-max))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
523 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
524 (let ((tokens (mh-index-add-implicit-ops (split-string input))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
525 (op-stack ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
526 (operand-stack ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
527 oper1) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
528 (dolist (token tokens) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
529 (cond ((equal token "(") (push 'paren op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
530 ((equal token "not") (push 'not op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
531 ((equal token "or") (push 'or op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
532 ((equal token "and") (push 'and op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
533 ((equal token ")") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
534 (multiple-value-setq (op-stack operand-stack) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
535 (mh-index-evaluate op-stack operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
536 (when (eq (car op-stack) 'not) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
537 (setq op-stack (cdr op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
538 (push `(not ,(pop operand-stack)) operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
539 (when (eq (car op-stack) 'and) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
540 (setq op-stack (cdr op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
541 (setq oper1 (pop operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
542 (push `(and ,(pop operand-stack) ,oper1) operand-stack))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
543 ((eq (car op-stack) 'not) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
544 (setq op-stack (cdr op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
545 (push `(not ,token) operand-stack) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
546 (when (eq (car op-stack) 'and) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
547 (setq op-stack (cdr op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
548 (setq oper1 (pop operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
549 (push `(and ,(pop operand-stack) ,oper1) operand-stack))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
550 ((eq (car op-stack) 'and) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
551 (setq op-stack (cdr op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
552 (push `(and ,(pop operand-stack) ,token) operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
553 (t (push token operand-stack)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
554 (prog1 (pop operand-stack) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
555 (when (or op-stack operand-stack) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
556 (error "Invalid regexp: %s" input)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
557 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
558 (defun mh-index-add-implicit-ops (tokens) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
559 "Add implicit operators in the list TOKENS." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
560 (let ((result ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
561 (literal-seen nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
562 current) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
563 (while tokens |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
564 (setq current (pop tokens)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
565 (cond ((or (equal current ")") (equal current "and") (equal current "or")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
566 (setq literal-seen nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
567 (push current result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
568 ((and literal-seen |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
569 (push "and" result) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
570 (setq literal-seen nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
571 nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
572 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
573 (push current result) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
574 (unless (or (equal current "(") (equal current "not")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
575 (setq literal-seen t))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
576 (nreverse result))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
577 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
578 (defun mh-index-evaluate (op-stack operand-stack) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
579 "Read expression till starting paren based on OP-STACK and OPERAND-STACK." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
580 (block mh-index-evaluate |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
581 (let (op oper1) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
582 (while op-stack |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
583 (setq op (pop op-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
584 (cond ((eq op 'paren) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
585 (return-from mh-index-evaluate (values op-stack operand-stack))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
586 ((eq op 'not) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
587 (push `(not ,(pop operand-stack)) operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
588 ((or (eq op 'and) (eq op 'or)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
589 (setq oper1 (pop operand-stack)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
590 (push `(,op ,(pop operand-stack) ,oper1) operand-stack)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
591 (error "Ran out of tokens")))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
592 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
593 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
594 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
595 ;;; Sequence browsing |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
596 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
597 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
598 (defun mh-index-new-messages (folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
599 "Display unseen messages. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
600 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
601 If you use a program such as \"procmail\" to use \"rcvstore\" to file |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
602 your incoming mail automatically, you can display new, unseen, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
603 messages using this command. All messages in the \"unseen\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
604 sequence from the folders in `mh-new-messages-folders' are |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
605 listed. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
606 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
607 With a prefix argument, enter a space-separated list of FOLDERS, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
608 or nothing to search all folders." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
609 (interactive |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
610 (list (if current-prefix-arg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
611 (split-string (read-string "Search folder(s) (default all): ")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
612 mh-new-messages-folders))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
613 (mh-index-sequenced-messages folders mh-unseen-seq)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
614 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
615 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
616 (defun mh-index-ticked-messages (folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
617 "Display ticked messages. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
618 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
619 All messages in `mh-tick-seq' from the folders in |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
620 `mh-ticked-messages-folders' are listed. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
621 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
622 With a prefix argument, enter a space-separated list of FOLDERS, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
623 or nothing to search all folders." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
624 (interactive |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
625 (list (if current-prefix-arg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
626 (split-string (read-string "Search folder(s) (default all): ")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
627 mh-ticked-messages-folders))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
628 (mh-index-sequenced-messages folders mh-tick-seq)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
629 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
630 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
631 (defun mh-index-sequenced-messages (folders sequence) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
632 "Display messages in any sequence. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
633 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
634 All messages from the FOLDERS in `mh-new-messages-folders' in the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
635 SEQUENCE you provide are listed. With a prefix argument, enter a |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
636 space-separated list of folders at the prompt, or nothing to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
637 search all folders." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
638 (interactive |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
639 (list (if current-prefix-arg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
640 (split-string (read-string "Search folder(s) (default all): ")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
641 mh-new-messages-folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
642 (mh-read-seq-default "Search" nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
643 (unless sequence (setq sequence mh-unseen-seq)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
644 (let* ((mh-flists-search-folders folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
645 (mh-flists-sequence sequence) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
646 (mh-flists-called-flag t) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
647 (mh-searcher 'flists) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
648 (mh-search-function 'mh-flists-execute) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
649 (mh-search-next-result-function 'mh-mairix-next-result) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
650 (mh-mairix-folder mh-user-path) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
651 (mh-search-regexp-builder nil) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
652 (new-folder (format "%s/%s/%s" mh-index-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
653 mh-flists-results-folder sequence)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
654 (window-config (if (equal new-folder mh-current-folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
655 mh-previous-window-config |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
656 (current-window-configuration))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
657 (redo-flag nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
658 message) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
659 (cond ((buffer-live-p (get-buffer new-folder)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
660 ;; The destination folder is being visited. Trick `mh-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
661 ;; into thinking that the folder resulted from a previous search. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
662 (set-buffer new-folder) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
663 (setq mh-index-previous-search (list folders mh-searcher sequence)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
664 (setq redo-flag t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
665 ((mh-folder-exists-p new-folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
666 ;; Folder exists but we don't have it open. That means they are |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
667 ;; stale results from a old flists search. Clear it out. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
668 (mh-exec-cmd-quiet nil "rmf" new-folder))) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
669 (setq message (mh-search "+" mh-flists-results-folder |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
670 redo-flag window-config) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
671 mh-index-sequence-search-flag t |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
672 mh-index-previous-search (list folders mh-searcher sequence)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
673 (mh-index-write-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
674 (when (stringp message) (message "%s" message)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
675 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
676 (defvar mh-flists-search-folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
677 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
678 (defun mh-flists-execute (&rest args) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
679 "Execute flists. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
680 Search for messages belonging to `mh-flists-sequence' in the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
681 folders specified by `mh-flists-search-folders'. If |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
682 `mh-recursive-folders-flag' is t, then the folders are searched |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
683 recursively. All parameters ARGS are ignored." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
684 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
685 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
686 (unless (executable-find "sh") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
687 (error "Didn't find sh")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
688 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
689 (let ((seq (symbol-name mh-flists-sequence))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
690 (insert "for folder in `" (expand-file-name "flists" mh-progs) " " |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
691 (cond ((eq mh-flists-search-folders t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
692 (mh-quote-for-shell mh-inbox)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
693 ((eq mh-flists-search-folders nil) "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
694 ((listp mh-flists-search-folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
695 (loop for folder in mh-flists-search-folders |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
696 concat |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
697 (concat " " (mh-quote-for-shell folder))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
698 (if mh-recursive-folders-flag " -recurse" "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
699 " -sequence " seq " -noshowzero -fast` ; do\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
700 (expand-file-name "mhpath" mh-progs) " \"+$folder\" " seq "\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
701 "done\n")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
702 (call-process-region |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
703 (point-min) (point-max) "sh" nil (get-buffer mh-temp-index-buffer)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
704 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
705 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
706 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
707 ;;; Folder navigation and utilities |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
708 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
709 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
710 (defun mh-index-group-by-folder () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
711 "Partition the messages based on source folder. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
712 Returns an alist with the the folder names in the car and the cdr |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
713 being the list of messages originally from that folder." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
714 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
715 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
716 (let ((result-table (make-hash-table :test #'equal))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
717 (loop for msg being hash-keys of mh-index-msg-checksum-map |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
718 do (push msg (gethash (car (gethash |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
719 (gethash msg mh-index-msg-checksum-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
720 mh-index-checksum-origin-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
721 result-table))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
722 (loop for x being the hash-keys of result-table |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
723 collect (cons x (nreverse (gethash x result-table))))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
724 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
725 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
726 (defun mh-index-insert-folder-headers () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
727 "Annotate the search results with original folder names." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
728 (let ((cur-msg (mh-get-msg-num nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
729 (old-buffer-modified-flag (buffer-modified-p)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
730 (buffer-read-only nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
731 current-folder last-folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
732 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
733 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
734 (setq current-folder (car (gethash (gethash (mh-get-msg-num nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
735 mh-index-msg-checksum-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
736 mh-index-checksum-origin-map))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
737 (when (and current-folder (not (equal current-folder last-folder))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
738 (insert (if last-folder "\n" "") current-folder "\n") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
739 (setq last-folder current-folder)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
740 (forward-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
741 (when cur-msg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
742 (mh-notate-cur) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
743 (mh-goto-msg cur-msg t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
744 (set-buffer-modified-p old-buffer-modified-flag)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
745 (mh-index-create-imenu-index)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
746 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
747 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
748 (defun mh-index-delete-folder-headers () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
749 "Delete the folder headers." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
750 (let ((cur-msg (mh-get-msg-num nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
751 (old-buffer-modified-flag (buffer-modified-p)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
752 (buffer-read-only nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
753 (while (and (not cur-msg) (not (eobp))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
754 (forward-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
755 (setq cur-msg (mh-get-msg-num nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
756 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
757 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
758 (if (or (char-equal (char-after) ?+) (char-equal (char-after) 10)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
759 (delete-region (point) (progn (forward-line) (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
760 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
761 (when cur-msg (mh-goto-msg cur-msg t t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
762 (set-buffer-modified-p old-buffer-modified-flag))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
763 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
764 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
765 (defun mh-index-create-imenu-index () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
766 "Create alist of folder names and positions in index folder buffers." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
767 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
768 (setq which-func-mode t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
769 (let ((alist ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
770 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
771 (while (re-search-forward "^+" nil t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
772 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
773 (beginning-of-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
774 (push (cons (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
775 (point) (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
776 (set-marker (make-marker) (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
777 alist))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
778 (setq imenu--index-alist (nreverse alist))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
779 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
780 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
781 (defun mh-index-next-folder (&optional backward-flag) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
782 "Jump to the next folder marker. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
783 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
784 With non-nil optional argument BACKWARD-FLAG, jump to the previous |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
785 group of results." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
786 (interactive "P") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
787 (if (null mh-index-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
788 (message "Only applicable in an MH-E index search buffer") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
789 (let ((point (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
790 (forward-line (if backward-flag 0 1)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
791 (cond ((if backward-flag |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
792 (re-search-backward "^+" (point-min) t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
793 (re-search-forward "^+" (point-max) t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
794 (beginning-of-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
795 ((and (if backward-flag |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
796 (goto-char (point-max)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
797 (goto-char (point-min))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
798 nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
799 ((if backward-flag |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
800 (re-search-backward "^+" (point-min) t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
801 (re-search-forward "^+" (point-max) t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
802 (beginning-of-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
803 (t (goto-char point)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
804 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
805 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
806 (defun mh-index-previous-folder () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
807 "Jump to the previous folder marker." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
808 (interactive) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
809 (mh-index-next-folder t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
810 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
811 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
812 (defun mh-index-visit-folder () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
813 "Visit original folder from where the message at point was found." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
814 (interactive) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
815 (unless mh-index-data |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
816 (error "Not in an index folder")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
817 (let (folder msg) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
818 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
819 (cond ((and (bolp) (eolp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
820 (ignore-errors (forward-line -1)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
821 (setq msg (mh-get-msg-num t))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
822 ((equal (char-after (line-beginning-position)) ?+) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
823 (setq folder (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
824 (line-beginning-position) (line-end-position)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
825 (t (setq msg (mh-get-msg-num t))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
826 (when (not folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
827 (setq folder (car (gethash (gethash msg mh-index-msg-checksum-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
828 mh-index-checksum-origin-map)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
829 (when (or (not (get-buffer folder)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
830 (y-or-n-p (format "Reuse buffer displaying %s? " folder))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
831 (mh-visit-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
832 folder (loop for x being the hash-keys of (gethash folder mh-index-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
833 when (mh-msg-exists-p x folder) collect x))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
834 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
835 ;;;###mh-autoload |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
836 (defun mh-search-p () |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
837 "Non-nil means that this folder was generated by searching." |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
838 mh-index-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
839 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
840 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
841 (defun mh-index-execute-commands () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
842 "Delete/refile the actual messages. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
843 The copies in the searched folder are then deleted/refiled to get |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
844 the desired result. Before deleting the messages we make sure |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
845 that the message being deleted is identical to the one that the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
846 user has marked in the index buffer." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
847 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
848 (let ((folders ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
849 (mh-speed-flists-inhibit-flag t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
850 (maphash |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
851 (lambda (folder msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
852 (push folder folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
853 (if (not (get-buffer folder)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
854 ;; If source folder not open, just delete the messages... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
855 (apply #'mh-exec-cmd "rmm" folder (mh-coalesce-msg-list msgs)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
856 ;; Otherwise delete the messages in the source buffer... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
857 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
858 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
859 (let ((old-refile-list mh-refile-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
860 (old-delete-list mh-delete-list)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
861 (setq mh-refile-list nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
862 mh-delete-list msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
863 (unwind-protect (mh-execute-commands) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
864 (setq mh-refile-list |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
865 (mapcar (lambda (x) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
866 (cons (car x) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
867 (loop for y in (cdr x) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
868 unless (memq y msgs) collect y))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
869 old-refile-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
870 mh-delete-list |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
871 (loop for x in old-delete-list |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
872 unless (memq x msgs) collect x)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
873 (mh-set-folder-modified-p (mh-outstanding-commands-p)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
874 (when (mh-outstanding-commands-p) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
875 (mh-notate-deleted-and-refiled))))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
876 (mh-index-matching-source-msgs (append (loop for x in mh-refile-list |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
877 append (cdr x)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
878 mh-delete-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
879 t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
880 folders))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
881 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
882 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
883 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
884 ;;; Indexing functions |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
885 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
886 ;; Support different search programs |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
887 (defvar mh-search-choices |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
888 '((swish++ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
889 mh-swish++-binary mh-swish++-execute-search mh-swish++-next-result |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
890 mh-swish++-regexp-builder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
891 (swish |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
892 mh-swish-binary mh-swish-execute-search mh-swish-next-result nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
893 (mairix |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
894 mh-mairix-binary mh-mairix-execute-search mh-mairix-next-result |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
895 mh-mairix-regexp-builder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
896 (namazu |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
897 mh-namazu-binary mh-namazu-execute-search mh-namazu-next-result nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
898 (pick |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
899 mh-pick-binary mh-pick-execute-search mh-pick-next-result |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
900 mh-pick-regexp-builder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
901 (grep |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
902 mh-grep-binary mh-grep-execute-search mh-grep-next-result nil)) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
903 "List of possible searcher choices.") |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
904 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
905 (defun mh-search-choose (&optional searcher) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
906 "Choose a searching function. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
907 The side-effects of this function are that the variables |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
908 `mh-searcher', `mh-search-function', and |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
909 `mh-search-next-result-function' are set according to the first |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
910 searcher in `mh-search-choices' present on the system. If |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
911 optional argument SEARCHER is present, use it instead of |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
912 `mh-search-program'." |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
913 (block nil |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
914 (let ((program-alist (cond (searcher |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
915 (list (assoc searcher mh-search-choices))) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
916 (mh-search-program |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
917 (list |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
918 (assoc mh-search-program mh-search-choices))) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
919 (t mh-search-choices)))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
920 (while program-alist |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
921 (let* ((current (pop program-alist)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
922 (executable (symbol-value (cadr current)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
923 (when executable |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
924 (setq mh-searcher (car current)) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
925 (setq mh-search-function (nth 2 current)) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
926 (setq mh-search-next-result-function (nth 3 current)) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
927 (setq mh-search-regexp-builder (nth 4 current)) |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
928 (return mh-searcher)))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
929 nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
930 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
931 ;;; Swish++ interface |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
932 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
933 (defvar mh-swish++-binary (or (executable-find "search++") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
934 (executable-find "search"))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
935 (defvar mh-swish++-directory ".swish++") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
936 (defvar mh-swish-folder nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
937 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
938 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
939 (defun mh-swish++-execute-search (folder-path search-regexp) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
940 "Execute swish++. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
941 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
942 In the examples below, replace \"/home/user/Mail\" with the path to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
943 your MH directory. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
944 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
945 First create the directory \"/home/user/Mail/.swish++\". Then create |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
946 the file \"/home/user/Mail/.swish++/swish++.conf\" with the following |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
947 contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
948 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
949 IncludeMeta Bcc Cc Comments Content-Description From Keywords |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
950 IncludeMeta Newsgroups Resent-To Subject To |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
951 IncludeMeta Message-Id References In-Reply-To |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
952 IncludeFile Mail * |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
953 IndexFile /home/user/Mail/.swish++/swish++.index |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
954 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
955 Use the following command line to generate the swish index. Run |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
956 this daily from cron: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
957 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
958 find /home/user/Mail -path /home/user/Mail/mhe-index -prune \\ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
959 -o -path /home/user/Mail/.swish++ -prune \\ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
960 -o -name \"[0-9]*\" -print \\ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
961 | index -c /home/user/Mail/.swish++/swish++.conf - |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
962 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
963 This command does not index the folders that hold the results of your |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
964 searches in \"+mhe-index\" since they tend to be ephemeral and the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
965 original messages are indexed anyway. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
966 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
967 On some systems (Debian GNU/Linux, for example), use \"index++\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
968 instead of \"index\". |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
969 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
970 In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP is |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
971 used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
972 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
973 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
974 (unless mh-swish++-binary |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
975 (error "Set `mh-swish++-binary' appropriately")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
976 (call-process mh-swish++-binary nil '(t nil) nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
977 "-m" "10000" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
978 (format "-i%s%s/swish++.index" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
979 mh-user-path mh-swish++-directory) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
980 search-regexp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
981 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
982 (setq mh-swish-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
983 (let ((last-char (substring folder-path (1- (length folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
984 (if (equal last-char "/") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
985 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
986 (format "%s/" folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
987 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
988 (defalias 'mh-swish++-next-result 'mh-swish-next-result) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
989 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
990 (defun mh-swish++-regexp-builder (regexp-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
991 "Generate query for swish++. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
992 REGEXP-LIST is an alist of fields and values." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
993 (let ((regexp "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
994 (dolist (elem regexp-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
995 (when (cdr elem) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
996 (setq regexp (concat regexp " and " |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
997 (if (car elem) "(" "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
998 (if (car elem) (symbol-name (car elem)) "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
999 (if (car elem) " = " "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1000 (mh-swish++-print-regexp (cdr elem)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1001 (if (car elem) ")" ""))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1002 (substring regexp 4))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1003 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1004 (defun mh-swish++-print-regexp (expr) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1005 "Return infix expression corresponding to EXPR." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1006 (cond ((atom expr) (format "%s" expr)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1007 ((eq (car expr) 'not) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1008 (format "(not %s)" (mh-swish++-print-regexp (cadr expr)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1009 (t (format "(%s %s %s)" (mh-swish++-print-regexp (cadr expr)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1010 (symbol-name (car expr)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1011 (mh-swish++-print-regexp (caddr expr)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1012 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1013 ;;; Swish interface |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1014 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1015 (defvar mh-swish-binary (executable-find "swish-e")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1016 (defvar mh-swish-directory ".swish") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1017 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1018 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1019 (defun mh-swish-execute-search (folder-path search-regexp) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1020 "Execute swish-e. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1021 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1022 In the examples below, replace \"/home/user/Mail\" with the path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1023 to your MH directory. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1024 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1025 First create the directory \"/home/user/Mail/.swish\". Then |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1026 create the file \"/home/user/Mail/.swish/config\" with the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1027 following contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1028 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1029 DefaultContents TXT* |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1030 IndexDir /home/user/Mail |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1031 IndexFile /home/user/Mail/.swish/index |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1032 IndexName \"Mail Index\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1033 IndexDescription \"Mail Index\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1034 IndexPointer \"http://nowhere\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1035 IndexAdmin \"nobody\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1036 #MetaNames automatic |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1037 IndexReport 3 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1038 FollowSymLinks no |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1039 UseStemming no |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1040 IgnoreTotalWordCountWhenRanking yes |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1041 WordCharacters abcdefghijklmnopqrstuvwxyz0123456789- |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1042 BeginCharacters abcdefghijklmnopqrstuvwxyz |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1043 EndCharacters abcdefghijklmnopqrstuvwxyz0123456789 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1044 IgnoreLimit 50 1000 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1045 IndexComments 0 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1046 FileRules filename contains \\D |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1047 FileRules pathname contains /home/user/Mail/.swish |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1048 FileRules pathname contains /home/user/Mail/mhe-index |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1049 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1050 This configuration does not index the folders that hold the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1051 results of your searches in \"+mhe-index\" since they tend to be |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1052 ephemeral and the original messages are indexed anyway. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1053 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1054 If there are any directories you would like to ignore, append |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1055 lines like the following to \"config\": |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1056 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1057 FileRules pathname contains /home/user/Mail/scripts |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1058 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1059 Use the following command line to generate the swish index. Run |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1060 this daily from cron: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1061 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1062 swish-e -c /home/user/Mail/.swish/config |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1063 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1064 In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1065 is used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1066 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1067 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1068 (unless mh-swish-binary |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1069 (error "Set `mh-swish-binary' appropriately")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1070 (call-process mh-swish-binary nil '(t nil) nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1071 "-w" search-regexp |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1072 "-f" (format "%s%s/index" mh-user-path mh-swish-directory)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1073 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1074 (setq mh-swish-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1075 (let ((last-char (substring folder-path (1- (length folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1076 (if (equal last-char "/") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1077 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1078 (format "%s/" folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1079 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1080 (defun mh-swish-next-result () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1081 "Get the next result from swish output." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1082 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1083 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1084 (when (or (eobp) (equal (char-after (point)) ?.)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1085 (return nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1086 (when (equal (char-after (point)) ?#) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1087 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1088 (let* ((start (search-forward " " (line-end-position) t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1089 (end (search-forward " " (line-end-position) t))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1090 (unless (and start end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1091 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1092 (setq end (1- end)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1093 (unless (file-exists-p (buffer-substring-no-properties start end)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1094 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1095 (unless (search-backward "/" start t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1096 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1097 (list (let* ((s (buffer-substring-no-properties start (1+ (point))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1098 (unless (string-match mh-swish-folder s) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1099 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1100 (if (and (string-match mh-user-path s) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1101 (< (match-end 0) (1- (length s)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1102 (format "+%s" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1103 (substring s (match-end 0) (1- (length s)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1104 (return 'error))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1105 (let* ((s (buffer-substring-no-properties (1+ (point)) end)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1106 (val (ignore-errors (read-from-string s)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1107 (if (and (consp val) (numberp (car val))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1108 (car val) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1109 (return 'error))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1110 nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1111 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1112 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1113 ;;; Mairix interface |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1114 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1115 (defvar mh-mairix-binary (executable-find "mairix")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1116 (defvar mh-mairix-directory ".mairix") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1117 (defvar mh-mairix-folder nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1118 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1119 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1120 (defun mh-mairix-execute-search (folder-path search-regexp-list) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1121 "Execute mairix. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1122 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1123 In the examples below, replace \"/home/user/Mail\" with the path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1124 to your MH directory. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1125 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1126 First create the directory \"/home/user/Mail/.mairix\". Then |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1127 create the file \"/home/user/Mail/.mairix/config\" with the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1128 following contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1129 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1130 base=/home/user/Mail |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1131 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1132 # List of folders that should be indexed. 3 dots at the end means there |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1133 # are subfolders within the folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1134 mh=archive...:inbox:drafts:news:sent:trash |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1135 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1136 vfolder_format=raw |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1137 database=/home/user/Mail/mairix/database |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1138 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1139 Use the following command line to generate the mairix index. Run |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1140 this daily from cron: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1141 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1142 mairix -f /home/user/Mail/.mairix/config |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1143 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1144 In a program, FOLDER-PATH is the directory in which |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1145 SEARCH-REGEXP-LIST is used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1146 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1147 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1148 (unless mh-mairix-binary |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1149 (error "Set `mh-mairix-binary' appropriately")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1150 (apply #'call-process mh-mairix-binary nil '(t nil) nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1151 "-r" "-f" (format "%s%s/config" mh-user-path mh-mairix-directory) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1152 search-regexp-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1153 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1154 (setq mh-mairix-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1155 (let ((last-char (substring folder-path (1- (length folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1156 (if (equal last-char "/") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1157 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1158 (format "%s/" folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1159 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1160 (defun mh-mairix-next-result () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1161 "Return next result from mairix output." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1162 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1163 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1164 (when (or (eobp) (and (bolp) (eolp))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1165 (return nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1166 (unless (eq (char-after) ?/) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1167 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1168 (let ((start (point)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1169 end msg-start) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1170 (setq end (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1171 (unless (search-forward mh-mairix-folder end t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1172 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1173 (goto-char (match-beginning 0)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1174 (unless (equal (point) start) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1175 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1176 (goto-char end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1177 (unless (search-backward "/" start t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1178 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1179 (setq msg-start (1+ (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1180 (goto-char start) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1181 (unless (search-forward mh-user-path end t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1182 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1183 (list (format "+%s" (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1184 (point) (1- msg-start))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1185 (car (read-from-string |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1186 (buffer-substring-no-properties msg-start end))) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1187 nil))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1188 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1189 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1190 (defun mh-mairix-regexp-builder (regexp-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1191 "Generate query for mairix. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1192 REGEXP-LIST is an alist of fields and values." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1193 (let ((result ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1194 (dolist (pair regexp-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1195 (when (cdr pair) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1196 (push |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1197 (concat |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1198 (cond ((eq (car pair) 'to) "t:") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1199 ((eq (car pair) 'from) "f:") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1200 ((eq (car pair) 'cc) "c:") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1201 ((eq (car pair) 'subject) "s:") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1202 ((eq (car pair) 'date) "d:") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1203 (t "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1204 (let ((sop (cdr (mh-mairix-convert-to-sop* (cdr pair)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1205 (final "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1206 (dolist (conjunct sop) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1207 (let ((expr-list (cdr conjunct)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1208 (expr-string "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1209 (dolist (e expr-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1210 (setq expr-string (concat expr-string "," |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1211 (if (atom e) "" "~") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1212 (if (atom e) e (cadr e))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1213 (setq final (concat final "/" (substring expr-string 1))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1214 (substring final 1))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1215 result))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1216 result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1217 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1218 (defun mh-mairix-convert-to-sop* (expr) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1219 "Convert EXPR to sum of product form." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1220 (cond ((atom expr) `(or (and ,expr))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1221 ((eq (car expr) 'or) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1222 (cons 'or |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1223 (loop for e in (mapcar #'mh-mairix-convert-to-sop* (cdr expr)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1224 append (cdr e)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1225 ((eq (car expr) 'and) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1226 (let ((conjuncts (mapcar #'mh-mairix-convert-to-sop* (cdr expr))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1227 result next-factor) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1228 (setq result (pop conjuncts)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1229 (while conjuncts |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1230 (setq next-factor (pop conjuncts)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1231 (setq result (let ((res ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1232 (dolist (t1 (cdr result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1233 (dolist (t2 (cdr next-factor)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1234 (push `(and ,@(cdr t1) ,@(cdr t2)) res))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1235 (cons 'or res)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1236 result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1237 ((atom (cadr expr)) `(or (and ,expr))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1238 ((eq (caadr expr) 'not) (mh-mairix-convert-to-sop* (cadadr expr))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1239 ((eq (caadr expr) 'and) (mh-mairix-convert-to-sop* |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1240 `(or ,@(mapcar #'(lambda (x) `(not ,x)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1241 (cdadr expr))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1242 ((eq (caadr expr) 'or) (mh-mairix-convert-to-sop* |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1243 `(and ,@(mapcar #'(lambda (x) `(not ,x)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1244 (cdadr expr))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1245 (t (error "Unreachable: %s" expr)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1246 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1247 ;;; Namazu interface |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1248 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1249 (defvar mh-namazu-binary (executable-find "namazu")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1250 (defvar mh-namazu-directory ".namazu") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1251 (defvar mh-namazu-folder nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1252 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1253 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1254 (defun mh-namazu-execute-search (folder-path search-regexp) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1255 "Execute namazu. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1256 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1257 In the examples below, replace \"/home/user/Mail\" with the path to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1258 your MH directory. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1259 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1260 First create the directory \"/home/user/Mail/.namazu\". Then create |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1261 the file \"/home/user/Mail/.namazu/mknmzrc\" with the following |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1262 contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1263 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1264 package conf; # Don't remove this line! |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1265 $ADDRESS = 'user@localhost'; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1266 $ALLOW_FILE = \"[0-9]*\"; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1267 $EXCLUDE_PATH = \"^/home/user/Mail/(mhe-index|spam)\"; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1268 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1269 This configuration does not index the folders that hold the results of |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1270 your searches in \"+mhe-index\" since they tend to be ephemeral and |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1271 the original messages are indexed anyway. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1272 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1273 Use the following command line to generate the namazu index. Run this |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1274 daily from cron: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1275 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1276 mknmz -f /home/user/Mail/.namazu/mknmzrc -O /home/user/Mail/.namazu \\ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1277 /home/user/Mail |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1278 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1279 In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1280 is used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1281 (let ((namazu-index-directory |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1282 (format "%s%s" mh-user-path mh-namazu-directory))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1283 (unless (file-exists-p namazu-index-directory) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1284 (error "Namazu directory %s not present" namazu-index-directory)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1285 (unless (executable-find mh-namazu-binary) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1286 (error "Set `mh-namazu-binary' appropriately")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1287 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1288 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1289 (call-process mh-namazu-binary nil '(t nil) nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1290 "-alR" search-regexp namazu-index-directory) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1291 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1292 (setq mh-namazu-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1293 (let ((last (substring folder-path (1- (length folder-path))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1294 (if (equal last "/") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1295 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1296 (format "%s/" folder-path)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1297 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1298 (defun mh-namazu-next-result () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1299 "Get the next result from namazu output." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1300 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1301 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1302 (when (eobp) (return nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1303 (let ((file-name (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1304 (point) (line-end-position)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1305 (unless (equal (string-match mh-namazu-folder file-name) 0) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1306 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1307 (unless (file-exists-p file-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1308 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1309 (string-match mh-user-path file-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1310 (let* ((folder/msg (substring file-name (match-end 0))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1311 (mark (mh-search-from-end ?/ folder/msg))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1312 (unless mark (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1313 (list (format "+%s" (substring folder/msg 0 mark)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1314 (let ((n (ignore-errors (read-from-string |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1315 (substring folder/msg (1+ mark)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1316 (if (and (consp n) (numberp (car n))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1317 (car n) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1318 (return 'error))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1319 nil)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1320 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1321 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1322 ;;; Pick interface |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1323 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1324 (defvar mh-index-pick-folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1325 (defvar mh-pick-binary "pick") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1326 (defconst mh-pick-single-dash '(cc date from subject to) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1327 "Search components that are supported by single-dash option in pick.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1328 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1329 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1330 (defun mh-pick-execute-search (folder-path search-regexp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1331 "Execute pick. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1332 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1333 Read \"pick(1)\" or the section Finding Messages with pick in the |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1334 MH book to find out more about how to enter the criteria (see URL |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1335 `http://www.ics.uci.edu/~mh/book/mh/finpic.htm'). |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1336 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1337 In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1338 is used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1339 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1340 (erase-buffer) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1341 (let ((folders |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1342 (mh-folder-list (substring folder-path (length mh-user-path))))) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1343 (loop for folder in folders do |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1344 (setq folder (concat "+" folder)) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1345 (insert folder "\n") |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1346 (apply #'call-process (expand-file-name "pick" mh-progs) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1347 nil '(t nil) nil folder "-list" search-regexp))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1348 (goto-char (point-min))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1349 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1350 (defun mh-pick-next-result () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1351 "Return the next pick search result." |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1352 (prog1 |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1353 (block nil |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1354 (when (eobp) (return nil)) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1355 (when (search-forward-regexp "^\+" (line-end-position) t) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1356 (setq mh-index-pick-folder |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1357 (buffer-substring-no-properties (line-beginning-position) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1358 (line-end-position))) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1359 (return 'error)) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1360 (unless (search-forward-regexp "^[1-9][0-9]*$" (line-end-position) t) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1361 (return 'error)) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1362 (list mh-index-pick-folder |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1363 (string-to-number |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1364 (buffer-substring-no-properties (line-beginning-position) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1365 (line-end-position))) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1366 nil)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1367 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1368 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1369 ;; All implementations of pick have special options -cc, -date, -from and |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1370 ;; -subject that allow to search for corresponding components. Any other |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1371 ;; component is searched using option --COMPNAME, for example: `pick |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1372 ;; --x-mailer mh-e'. Mailutils "pick" supports this option using a certain |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1373 ;; kludge, but it prefers the following syntax for this purpose: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1374 ;; "--component=COMPNAME --pattern=PATTERN". |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1375 ;; -- Sergey Poznyakoff, Aug 2003 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1376 (defun mh-pick-regexp-builder (pattern-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1377 "Generate pick search expression from PATTERN-LIST." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1378 (let ((result ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1379 (dolist (pattern pattern-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1380 (when (cdr pattern) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1381 (setq result `(,@result "-and" "-lbrace" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1382 ,@(mh-pick-construct-regexp |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1383 (if (and (mh-variant-p 'mu-mh) (car pattern)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1384 (format "--pattern=%s" (cdr pattern)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1385 (cdr pattern)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1386 (if (car pattern) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1387 (cond |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1388 ((mh-variant-p 'mu-mh) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1389 (format "--component=%s" (car pattern))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1390 ((member (car pattern) mh-pick-single-dash) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1391 (format "-%s" (car pattern))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1392 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1393 (format "--%s" (car pattern)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1394 "-search")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1395 "-rbrace")))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1396 (cdr result))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1397 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1398 (defun mh-pick-construct-regexp (expr component) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1399 "Construct pick compatible expression corresponding to EXPR. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1400 COMPONENT is the component to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1401 (cond ((atom expr) (list component expr)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1402 ((eq (car expr) 'and) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1403 `("-lbrace" ,@(mh-pick-construct-regexp (cadr expr) component) "-and" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1404 ,@(mh-pick-construct-regexp (caddr expr) component) "-rbrace")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1405 ((eq (car expr) 'or) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1406 `("-lbrace" ,@(mh-pick-construct-regexp (cadr expr) component) "-or" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1407 ,@(mh-pick-construct-regexp (caddr expr) component) "-rbrace")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1408 ((eq (car expr) 'not) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1409 `("-lbrace" "-not" ,@(mh-pick-construct-regexp (cadr expr) component) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1410 "-rbrace")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1411 (t (error "Unknown operator %s seen" (car expr))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1412 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1413 ;;; Grep interface |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1414 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1415 (defvar mh-grep-binary (executable-find "grep")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1416 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1417 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1418 (defun mh-grep-execute-search (folder-path search-regexp) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1419 "Execute grep. |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1420 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1421 Unlike the other search methods, this method does not use the |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1422 MH-Search buffer. Instead, you simply enter a regular expression |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1423 in the minibuffer. For help in constructing regular expressions, |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1424 see your man page for \"grep\". |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1425 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1426 In a program, FOLDER-PATH is the directory in which SEARCH-REGEXP |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1427 is used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1428 (set-buffer (get-buffer-create mh-temp-index-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1429 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1430 (call-process mh-grep-binary nil '(t nil) nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1431 "-i" "-r" search-regexp folder-path) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1432 (goto-char (point-min))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1433 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1434 (defun mh-grep-next-result () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1435 "Read the next result. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1436 Parse it and return the message folder, message index and the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1437 match. If no other matches left then return nil. If the current |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1438 record is invalid return 'error." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1439 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1440 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1441 (when (eobp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1442 (return nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1443 (let ((eol-pos (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1444 (bol-pos (line-beginning-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1445 folder-start msg-end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1446 (goto-char bol-pos) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1447 (unless (search-forward mh-user-path eol-pos t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1448 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1449 (setq folder-start (point)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1450 (unless (search-forward ":" eol-pos t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1451 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1452 (let ((match (buffer-substring-no-properties (point) eol-pos))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1453 (forward-char -1) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1454 (setq msg-end (point)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1455 (unless (search-backward "/" folder-start t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1456 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1457 (list (format "+%s" (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1458 folder-start (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1459 (let ((val (ignore-errors (read-from-string |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1460 (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1461 (1+ (point)) msg-end))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1462 (if (and (consp val) (integerp (car val))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1463 (car val) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1464 (return 'error))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1465 match)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1466 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1467 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1468 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1469 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1470 ;;; Folder support |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1471 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1472 (defun mh-index-generate-pretty-name (string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1473 "Given STRING generate a name which is suitable for use as a folder name. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1474 White space from the beginning and end are removed. All spaces in |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1475 the name are replaced with underscores and all / are replaced |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1476 with $. If STRING is longer than 20 it is truncated too. STRING |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1477 could be a list of strings in which case they are concatenated to |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1478 construct the base name." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1479 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1480 (if (stringp string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1481 (insert string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1482 (when (car string) (insert (car string))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1483 (dolist (s (cdr string)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1484 (insert "_" s))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1485 (setq string (mh-replace-string "-lbrace" " ")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1486 (setq string (mh-replace-string "-rbrace" " ")) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1487 (setq string (mh-replace-string "-search" " ")) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1488 (subst-char-in-region (point-min) (point-max) ?( ? t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1489 (subst-char-in-region (point-min) (point-max) ?) ? t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1490 (subst-char-in-region (point-min) (point-max) ?- ? t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1491 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1492 (while (and (not (eobp)) (memq (char-after) '(? ?\t ?\n ?\r ?_))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1493 (delete-char 1)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1494 (goto-char (point-max)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1495 (while (and (not (bobp)) (memq (char-before) '(? ?\t ?\n ?\r ?_))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1496 (delete-backward-char 1)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1497 (subst-char-in-region (point-min) (point-max) ? ?_ t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1498 (subst-char-in-region (point-min) (point-max) ?\t ?_ t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1499 (subst-char-in-region (point-min) (point-max) ?\n ?_ t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1500 (subst-char-in-region (point-min) (point-max) ?\r ?_ t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1501 (subst-char-in-region (point-min) (point-max) ?/ ?$ t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1502 (let ((out (truncate-string-to-width (buffer-string) 20))) |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1503 (cond ((eq mh-searcher 'flists) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1504 (format "%s/%s" mh-flists-results-folder mh-flists-sequence)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1505 ((equal out mh-flists-results-folder) (concat out "1")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1506 (t out))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1507 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1508 (defun mh-folder-exists-p (folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1509 "Check if FOLDER exists." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1510 (and (mh-folder-name-p folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1511 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1512 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1513 (mh-exec-cmd-output "folder" nil "-fast" "-nocreate" folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1514 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1515 (not (eobp)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1516 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1517 (defun mh-msg-exists-p (msg folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1518 "Check if MSG exists in FOLDER." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1519 (file-exists-p (format "%s%s/%s" mh-user-path (substring folder 1) msg))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1520 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1521 (defun mh-index-new-folder (name search-regexp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1522 "Return a folder name based on NAME for search results of SEARCH-REGEXP. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1523 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1524 If folder NAME already exists and was generated for the same |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1525 SEARCH-REGEXP then it is reused. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1526 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1527 Otherwise if the folder NAME was generated from a different |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1528 search then check if NAME<2> can be used. Otherwise try NAME<3>. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1529 This is repeated till we find a new folder name. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1530 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1531 If the folder returned doesn't exist then it is created." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1532 (unless (mh-folder-name-p name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1533 (error "The argument should be a valid MH folder name")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1534 (let ((chosen-name |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1535 (loop for i from 1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1536 for candidate = (if (equal i 1) name (format "%s<%s>" name i)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1537 when (or (not (mh-folder-exists-p candidate)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1538 (equal (mh-index-folder-search-regexp candidate) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1539 search-regexp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1540 return candidate))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1541 ;; Do pending refiles/deletes... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1542 (when (get-buffer chosen-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1543 (mh-process-or-undo-commands chosen-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1544 ;; Recreate folder... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1545 (save-excursion (mh-exec-cmd-quiet nil "rmf" chosen-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1546 (mh-exec-cmd-quiet nil "folder" "-create" "-fast" chosen-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1547 (mh-remove-from-sub-folders-cache chosen-name) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1548 (when (boundp 'mh-speed-folder-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1549 (mh-speed-add-folder chosen-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1550 chosen-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1551 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1552 (defun mh-index-folder-search-regexp (folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1553 "If FOLDER was created by a index search, return the search regexp. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1554 Return nil if FOLDER doesn't exist or the .mhe_index file is |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1555 garbled." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1556 (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1557 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1558 (insert-file-contents |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1559 (format "%s%s/%s" mh-user-path (substring folder 1) mh-index-data-file)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1560 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1561 (forward-list 3) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1562 (cadr (read (current-buffer)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1563 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1564 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1565 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1566 ;;; Sequence support |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1567 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1568 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1569 (defun mh-index-create-sequences () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1570 "Mirror sequences present in source folders in index folder." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1571 (let ((seq-hash (make-hash-table :test #'equal)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1572 (seq-list ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1573 (loop for folder being the hash-keys of mh-index-data |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1574 do (setf (gethash folder seq-hash) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1575 (mh-create-sequence-map |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1576 (mh-read-folder-sequences folder nil)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1577 (dolist (msg (mh-translate-range mh-current-folder "all")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1578 (let* ((checksum (gethash msg mh-index-msg-checksum-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1579 (pair (gethash checksum mh-index-checksum-origin-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1580 (ofolder (car pair)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1581 (omsg (cdr pair))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1582 (loop for seq in (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1583 (gethash omsg (gethash ofolder seq-hash))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1584 do (if (assoc seq seq-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1585 (push msg (cdr (assoc seq seq-list))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1586 (push (list seq msg) seq-list))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1587 (loop for seq in seq-list |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1588 do (apply #'mh-exec-cmd "mark" mh-current-folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1589 "-sequence" (symbol-name (car seq)) "-add" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1590 (mapcar #'(lambda (x) (format "%s" x)) (cdr seq)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1591 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1592 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1593 (defun mh-create-sequence-map (seq-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1594 "Return a map from msg number to list of sequences in which it is present. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1595 SEQ-LIST is an assoc list whose keys are sequence names and whose |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1596 cdr is the list of messages in that sequence." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1597 (loop with map = (make-hash-table) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1598 for seq in seq-list |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1599 when (and (not (memq (car seq) (mh-unpropagated-sequences))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1600 (mh-valid-seq-p (car seq))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1601 do (loop for msg in (cdr seq) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1602 do (push (car seq) (gethash msg map))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1603 finally return map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1604 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1605 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1606 (defun mh-index-add-to-sequence (seq msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1607 "Add to SEQ the messages in the list MSGS. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1608 This function updates the source folder sequences. Also makes an |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1609 attempt to update the source folder buffer if we have it open." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1610 ;; Don't need to do anything for cur |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1611 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1612 (when (and (not (memq seq (mh-unpropagated-sequences))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1613 (mh-valid-seq-p seq)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1614 (let ((folders ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1615 (mh-speed-flists-inhibit-flag t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1616 (maphash (lambda (folder msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1617 (push folder folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1618 ;; Add messages to sequence in source folder... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1619 (apply #'mh-exec-cmd-quiet nil "mark" folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1620 "-add" "-nozero" "-sequence" (symbol-name seq) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1621 (mapcar (lambda (x) (format "%s" x)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1622 (mh-coalesce-msg-list msgs))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1623 ;; Update source folder buffer if we have it open... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1624 (when (get-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1625 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1626 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1627 (mh-put-msg-in-seq msgs seq)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1628 (mh-index-matching-source-msgs msgs)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1629 folders)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1630 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1631 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1632 (defun mh-index-delete-from-sequence (seq msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1633 "Delete from SEQ the messages in MSGS. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1634 This function updates the source folder sequences. Also makes an |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1635 attempt to update the source folder buffer if present." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1636 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1637 (when (and (not (memq seq (mh-unpropagated-sequences))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1638 (mh-valid-seq-p seq)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1639 (let ((folders ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1640 (mh-speed-flists-inhibit-flag t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1641 (maphash (lambda (folder msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1642 (push folder folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1643 ;; Remove messages from sequence in source folder... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1644 (apply #'mh-exec-cmd-quiet nil "mark" folder |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1645 "-del" "-nozero" "-sequence" (symbol-name seq) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1646 (mapcar (lambda (x) (format "%s" x)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1647 (mh-coalesce-msg-list msgs))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1648 ;; Update source folder buffer if we have it open... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1649 (when (get-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1650 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1651 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1652 (mh-delete-msg-from-seq msgs seq t)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1653 (mh-index-matching-source-msgs msgs)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1654 folders)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1655 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1656 (defvar mh-unpropagated-sequences '(cur range subject search) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1657 "List of sequences that aren't preserved.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1658 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1659 (defun mh-unpropagated-sequences () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1660 "Return a list of sequences that aren't propagated to the source folders. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1661 It is just the sequences in the variable |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1662 `mh-unpropagated-sequences' in addition to the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1663 Previous-Sequence (see mh-profile 5)." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1664 (if mh-previous-seq |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1665 (cons mh-previous-seq mh-unpropagated-sequences) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1666 mh-unpropagated-sequences)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1667 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1668 (defun mh-index-matching-source-msgs (msgs &optional delete-from-index-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1669 "Return a table of original messages and folders for messages in MSGS. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1670 If optional argument DELETE-FROM-INDEX-DATA is non-nil, then each |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1671 of the messages, whose counter-part is found in some source |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1672 folder, is removed from `mh-index-data'." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1673 (let ((table (make-hash-table :test #'equal))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1674 (dolist (msg msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1675 (let* ((checksum (gethash msg mh-index-msg-checksum-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1676 (pair (gethash checksum mh-index-checksum-origin-map))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1677 (when (and checksum (car pair) (cdr pair) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1678 (mh-index-match-checksum (cdr pair) (car pair) checksum)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1679 (push (cdr pair) (gethash (car pair) table)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1680 (when delete-from-index-data |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1681 (remhash (cdr pair) (gethash (car pair) mh-index-data)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1682 table)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1683 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1684 (defun mh-index-match-checksum (msg folder checksum) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1685 "Check if MSG in FOLDER has X-MHE-Checksum header value of CHECKSUM." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1686 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1687 (mh-exec-cmd-output mh-scan-prog nil "-width" "80" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1688 "-format" "%{x-mhe-checksum}\n" folder msg) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1689 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1690 (string-equal (buffer-substring-no-properties (point) (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1691 checksum))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1692 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1693 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1694 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1695 ;;; Serialization of index data |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1696 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1697 (defun mh-index-write-data () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1698 "Write index data to file." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1699 (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1700 (unless (eq major-mode 'mh-folder-mode) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1701 (error "Can't be called from folder in \"%s\"" major-mode)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1702 (let ((data mh-index-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1703 (msg-checksum-map mh-index-msg-checksum-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1704 (checksum-origin-map mh-index-checksum-origin-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1705 (previous-search mh-index-previous-search) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1706 (sequence-search-flag mh-index-sequence-search-flag) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1707 (outfile (concat buffer-file-name mh-index-data-file)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1708 (print-length nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1709 (print-level nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1710 (with-temp-file outfile |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1711 (mh-index-write-hashtable |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1712 data (lambda (x) (loop for y being the hash-keys of x collect y))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1713 (mh-index-write-hashtable msg-checksum-map #'identity) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1714 (mh-index-write-hashtable checksum-origin-map #'identity) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1715 (pp previous-search (current-buffer)) (insert "\n") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1716 (pp sequence-search-flag (current-buffer)) (insert "\n"))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1717 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1718 (defun mh-index-write-hashtable (table proc) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1719 "Write TABLE to `current-buffer'. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1720 PROC is used to serialize the values corresponding to the hash |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1721 table keys." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1722 (pp (loop for x being the hash-keys of table |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1723 collect (cons x (funcall proc (gethash x table)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1724 (current-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1725 (insert "\n")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1726 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1727 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1728 (defun mh-index-read-data () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1729 "Read index data from file." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1730 (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1731 (unless (eq major-mode 'mh-folder-mode) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1732 (error "Can't be called from folder in \"%s\"" major-mode)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1733 (let ((infile (concat buffer-file-name mh-index-data-file)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1734 t1 t2 t3 t4 t5) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1735 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1736 (insert-file-contents-literally infile) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1737 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1738 (setq t1 (mh-index-read-hashtable |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1739 (lambda (data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1740 (loop with table = (make-hash-table :test #'equal) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1741 for x in data do (setf (gethash x table) t) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1742 finally return table))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1743 t2 (mh-index-read-hashtable #'identity) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1744 t3 (mh-index-read-hashtable #'identity) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1745 t4 (read (current-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1746 t5 (read (current-buffer)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1747 (setq mh-index-data t1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1748 mh-index-msg-checksum-map t2 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1749 mh-index-checksum-origin-map t3 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1750 mh-index-previous-search t4 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1751 mh-index-sequence-search-flag t5)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1752 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1753 (defun mh-index-read-hashtable (proc) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1754 "From BUFFER read a hash table serialized as a list. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1755 PROC is used to convert the value to actual data." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1756 (loop with table = (make-hash-table :test #'equal) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1757 for pair in (read (current-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1758 do (setf (gethash (car pair) table) (funcall proc (cdr pair))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1759 finally return table)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1760 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1761 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1762 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1763 ;;; Checksum routines |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1764 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1765 ;; A few different checksum programs are supported. The supported programs |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1766 ;; are: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1767 ;; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1768 ;; 1. md5sum |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1769 ;; 2. md5 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1770 ;; 3. openssl |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1771 ;; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1772 ;; To add support for your favorite checksum program add a clause to the cond |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1773 ;; statement in mh-checksum-choose. This should set the variable |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1774 ;; mh-checksum-cmd to the command line needed to run the checsum program and |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1775 ;; should set mh-checksum-parser to a function which returns a cons cell |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1776 ;; containing the message number and checksum string. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1777 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1778 (defvar mh-checksum-cmd) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1779 (defvar mh-checksum-parser) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1780 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1781 (defun mh-checksum-choose () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1782 "Check if a program to create a checksum is present." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1783 (unless (boundp 'mh-checksum-cmd) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1784 (let ((exec-path (append '("/sbin" "/usr/sbin") exec-path))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1785 (cond ((executable-find "md5sum") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1786 (setq mh-checksum-cmd (list (executable-find "md5sum"))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1787 (setq mh-checksum-parser #'mh-md5sum-parser)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1788 ((executable-find "openssl") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1789 (setq mh-checksum-cmd (list (executable-find "openssl") "md5")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1790 (setq mh-checksum-parser #'mh-openssl-parser)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1791 ((executable-find "md5") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1792 (setq mh-checksum-cmd (list (executable-find "md5"))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1793 (setq mh-checksum-parser #'mh-md5-parser)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1794 (t (error "No suitable checksum program")))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1795 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1796 (defun mh-md5sum-parser () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1797 "Parse md5sum output." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1798 (let ((begin (line-beginning-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1799 (end (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1800 first-space last-slash) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1801 (setq first-space (search-forward " " end t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1802 (goto-char end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1803 (setq last-slash (search-backward "/" begin t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1804 (cond ((and first-space last-slash) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1805 (cons (car (read-from-string (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1806 (1+ last-slash) end))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1807 (buffer-substring-no-properties begin (1- first-space)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1808 (t (cons nil nil))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1809 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1810 (defun mh-openssl-parser () |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1811 "Parse openssl output." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1812 (let ((begin (line-beginning-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1813 (end (line-end-position)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1814 last-space last-slash) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1815 (goto-char end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1816 (setq last-space (search-backward " " begin t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1817 (setq last-slash (search-backward "/" begin t)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1818 (cond ((and last-slash last-space) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1819 (cons (car (read-from-string (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1820 (1+ last-slash) (1- last-space)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1821 (buffer-substring-no-properties (1+ last-space) end)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1822 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1823 (defalias 'mh-md5-parser 'mh-openssl-parser) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1824 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1825 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1826 (defun mh-index-update-maps (folder &optional origin-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1827 "Annotate all as yet unannotated messages in FOLDER with their MD5 hash. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1828 As a side effect msg -> checksum map is updated. Optional |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1829 argument ORIGIN-MAP is a hashtable which maps each message in the |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1830 index folder to the original folder and message from whence it |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1831 was copied. If present the checksum -> (origin-folder, |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1832 origin-index) map is updated too." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1833 (clrhash mh-index-msg-checksum-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1834 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1835 ;; Clear temp buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1836 (set-buffer (get-buffer-create mh-temp-checksum-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1837 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1838 ;; Run scan to check if any messages needs MD5 annotations at all |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1839 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1840 (mh-exec-cmd-output mh-scan-prog nil "-width" "80" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1841 "-format" "%(msg)\n%{x-mhe-checksum}\n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1842 folder "all") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1843 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1844 (let (msg checksum) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1845 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1846 (setq msg (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1847 (point) (line-end-position))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1848 (forward-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1849 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1850 (cond ((not (string-match "^[0-9]*$" msg))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1851 ((eolp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1852 ;; need to compute checksum |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1853 (set-buffer mh-temp-checksum-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1854 (insert mh-user-path (substring folder 1) "/" msg "\n")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1855 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1856 ;; update maps |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1857 (setq checksum (buffer-substring-no-properties |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1858 (point) (line-end-position))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1859 (let ((msg (car (read-from-string msg)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1860 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1861 (mh-index-update-single-msg msg checksum origin-map))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1862 (forward-line)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1863 ;; Run checksum program if needed |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1864 (unless (and (eobp) (bobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1865 (apply #'mh-xargs mh-checksum-cmd) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1866 (goto-char (point-min)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1867 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1868 (let* ((intermediate (funcall mh-checksum-parser)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1869 (msg (car intermediate)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1870 (checksum (cdr intermediate))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1871 (when msg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1872 ;; annotate |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1873 (mh-exec-cmd "anno" folder msg "-component" "X-MHE-Checksum" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1874 "-nodate" "-text" checksum "-inplace") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1875 ;; update maps |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1876 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1877 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1878 (mh-index-update-single-msg msg checksum origin-map))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1879 (forward-line))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1880 (mh-index-write-data)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1881 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1882 (defun mh-index-update-single-msg (msg checksum origin-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1883 "Update various maps for one message. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1884 MSG is a index folder message, CHECKSUM its MD5 hash and |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1885 ORIGIN-MAP, if non-nil, a hashtable containing which maps each |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1886 message in the index folder to the folder and message that it was |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1887 copied from. The function updates the hash tables |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1888 `mh-index-msg-checksum-map' and `mh-index-checksum-origin-map'. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1889 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1890 This function should only be called in the appropriate index |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1891 folder buffer." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1892 (cond ((and origin-map (gethash checksum mh-index-checksum-origin-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1893 (let* ((intermediate (gethash msg origin-map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1894 (ofolder (car intermediate)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1895 (omsg (cdr intermediate))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1896 ;; This is most probably a duplicate. So eliminate it. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1897 (call-process "rm" nil nil nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1898 (format "%s%s/%s" mh-user-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1899 (substring mh-current-folder 1) msg)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1900 (when (gethash ofolder mh-index-data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1901 (remhash omsg (gethash ofolder mh-index-data))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1902 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1903 (setf (gethash msg mh-index-msg-checksum-map) checksum) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1904 (when origin-map |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1905 (setf (gethash checksum mh-index-checksum-origin-map) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1906 (gethash msg origin-map)))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1907 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1908 (provide 'mh-search) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1909 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1910 ;; Local Variables: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1911 ;; indent-tabs-mode: nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1912 ;; sentence-end-double-space: nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1913 ;; End: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1914 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1915 ;; arch-tag: 607762ad-0dff-4fe1-a27e-6c0dde0dcc47 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1916 ;;; mh-search ends here |