Mercurial > emacs
annotate lisp/mh-e/mh-search.el @ 99150:cdad15e238e0
Add arch tagline
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 27 Oct 2008 02:05:42 +0000 |
parents | 9873b6187c96 |
children | a9dc0e7c3f2b |
rev | line source |
---|---|
68465 | 1 ;;; mh-search --- MH-Search mode |
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, |
79713 | 4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
68163
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 |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
68163
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 |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
16 ;; (at your option) any later version. |
68163
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 |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
68163
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 |
94663
90c9ebd43589
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79713
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
25 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
26 ;;; Commentary: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
27 |
68465 | 28 ;; Mode used to compose search criteria. |
29 | |
68163
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 |
68465 | 37 |
68163
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 |
68465 | 47 (require 'mh-e) |
68163
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) |
68465 | 51 (require 'imenu) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
52 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
53 (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
|
54 "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
|
55 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
56 (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
|
57 "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
|
58 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
59 (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
|
60 "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
|
61 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
|
62 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
|
63 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
64 (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
|
65 "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
|
66 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
67 (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
|
68 "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
|
69 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
70 (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
|
71 "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
|
72 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
73 (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
|
74 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
75 (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
|
76 |
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 |
68465 | 79 ;;; MH-Folder Commands |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
80 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
81 ;;;###mh-autoload |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
82 (defun mh-search (folder search-regexp |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
83 &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
|
84 "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
|
85 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
86 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
|
87 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
|
88 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
|
89 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
|
90 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
|
91 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
92 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
|
93 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
|
94 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
|
95 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
|
96 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
|
97 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
98 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
|
99 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
|
100 listed folder. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
101 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
102 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
|
103 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
|
104 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
105 From: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
106 To: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
107 Cc: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
108 Date: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
109 Subject: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
110 -------- |
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 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
|
113 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
|
114 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
|
115 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
|
116 of dashes. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
117 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
118 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
|
119 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
|
120 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
|
121 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
|
122 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
|
123 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
|
124 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
125 From: ginnean |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
126 To: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
127 Cc: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
128 Date: Jan 1994 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
129 Subject: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
130 -------- |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
131 horse |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
132 kosciusko |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
133 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
134 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
|
135 \\[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
|
136 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
137 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
|
138 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
|
139 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
|
140 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
|
141 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
142 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
|
143 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
144 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
|
145 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
|
146 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
|
147 \\[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
|
148 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
149 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
|
150 \"+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
|
151 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
|
152 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
|
153 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
|
154 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
155 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
|
156 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
|
157 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
|
158 \\[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
|
159 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
160 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
|
161 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
|
162 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
|
163 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
|
164 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
|
165 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
|
166 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
|
167 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
|
168 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
169 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
|
170 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
|
171 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
172 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
|
173 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
|
174 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
175 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
|
176 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
|
177 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
|
178 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
|
179 \"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
|
180 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
|
181 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
182 :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
|
183 | 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
|
184 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
185 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
|
186 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
187 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
|
188 `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
|
189 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
|
190 \"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
|
191 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
|
192 \"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
|
193 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
|
194 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
195 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
|
196 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
|
197 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
198 - `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
|
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-mairix-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-namazu-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-pick-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-grep-execute-search' |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
204 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
205 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
|
206 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
|
207 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
|
208 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
|
209 (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
|
210 (list (progn |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
211 (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
|
212 ;; 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
|
213 ;; 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
|
214 (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
|
215 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
|
216 (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
|
217 (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
|
218 (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
|
219 (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
|
220 (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
|
221 (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
|
222 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
|
223 (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
|
224 (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
|
225 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
|
226 (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
|
227 (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
|
228 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
|
229 (current-window-configuration) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
230 nil))) |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
231 (block mh-search |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
232 ;; Redoing a sequence search? |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
233 (when (and redo-search-flag mh-index-data mh-index-sequence-search-flag |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
234 (not mh-flists-called-flag)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
235 (let ((mh-flists-called-flag t)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
236 (apply #'mh-index-sequenced-messages mh-index-previous-search)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
237 (return-from mh-search)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
238 ;; We have fancy query parsing. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
239 (when (symbolp search-regexp) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
240 (mh-search-folder folder window-config) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
241 (return-from mh-search)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
242 ;; Begin search proper. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
243 (mh-checksum-choose) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
244 (let ((result-count 0) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
245 (old-window-config (or window-config mh-previous-window-config)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
246 (previous-search mh-index-previous-search) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
247 (index-folder (format "%s/%s" mh-index-folder |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
248 (mh-index-generate-pretty-name search-regexp)))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
249 ;; Create a new folder for the search results or recreate the old one... |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
250 (if (and redo-search-flag mh-index-previous-search) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
251 (let ((buffer-name (buffer-name (current-buffer)))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
252 (mh-process-or-undo-commands buffer-name) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
253 (save-excursion (mh-exec-cmd-quiet nil "rmf" buffer-name)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
254 (mh-exec-cmd-quiet nil "folder" "-create" "-fast" buffer-name) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
255 (setq index-folder buffer-name)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
256 (setq index-folder (mh-index-new-folder index-folder search-regexp))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
257 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
258 (let ((folder-path (format "%s%s" mh-user-path (substring folder 1))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
259 (folder-results-map (make-hash-table :test #'equal)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
260 (origin-map (make-hash-table :test #'equal))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
261 ;; Run search program... |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
262 (message "Executing %s... " mh-searcher) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
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 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
265 ;; Parse searcher output. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
266 (message "Processing %s output... " mh-searcher) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
267 (goto-char (point-min)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
268 (loop for next-result = (funcall mh-search-next-result-function) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
269 while next-result |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
270 do (unless (eq next-result 'error) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
271 (unless (gethash (car next-result) folder-results-map) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
272 (setf (gethash (car next-result) folder-results-map) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
273 (make-hash-table :test #'equal))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
274 (setf (gethash (cadr next-result) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
275 (gethash (car next-result) folder-results-map)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
276 t))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
277 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
278 ;; Copy the search results over. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
279 (maphash #'(lambda (folder msgs) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
280 (let ((cur (car (mh-translate-range folder "cur"))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
281 (msgs (sort (loop for msg being the hash-keys of msgs |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
282 collect msg) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
283 #'<))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
284 (mh-exec-cmd "refile" msgs "-src" folder |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
285 "-link" index-folder) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
286 ;; Restore cur to old value, that refile changed |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
287 (when cur |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
288 (mh-exec-cmd-quiet nil "mark" folder "-add" "-zero" |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
289 "-sequence" |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
290 "cur" (format "%s" cur))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
291 (loop for msg in msgs |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
292 do (incf result-count) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
293 (setf (gethash result-count origin-map) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
294 (cons folder msg))))) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
295 folder-results-map) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
296 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
297 ;; Vist the results folder. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
298 (mh-visit-folder index-folder () (list folder-results-map origin-map)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
299 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
300 (goto-char (point-min)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
301 (forward-line) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
302 (mh-update-sequences) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
303 (mh-recenter nil) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
304 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
305 ;; Update the speedbar, if needed. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
306 (when (mh-speed-flists-active-p) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
307 (mh-speed-flists t mh-current-folder)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
308 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
309 ;; Maintain history. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
310 (when (or (and redo-search-flag previous-search) window-config) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
311 (setq mh-previous-window-config old-window-config)) |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
312 (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
|
313 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
314 ;; Write out data to disk. |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
315 (unless mh-flists-called-flag (mh-index-write-data)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
316 |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
317 (message "%s found %s matches in %s folders" |
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
318 (upcase-initials (symbol-name mh-searcher)) |
71529
11d2aeb1c67a
(mh-search, mh-index-group-by-folder): Add "the" in loop construct to
Bill Wohler <wohler@newt.com>
parents:
71353
diff
changeset
|
319 (loop for msg-hash being the hash-values of mh-index-data |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
320 sum (hash-table-count msg-hash)) |
71529
11d2aeb1c67a
(mh-search, mh-index-group-by-folder): Add "the" in loop construct to
Bill Wohler <wohler@newt.com>
parents:
71353
diff
changeset
|
321 (loop for msg-hash being the hash-values of mh-index-data |
68779
156eafa22e3e
(mh-search): Wrap code in (block mh-search ...) rather than use
Bill Wohler <wohler@newt.com>
parents:
68530
diff
changeset
|
322 count (> (hash-table-count msg-hash) 0))))))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
323 |
68465 | 324 ;; Shush compiler. |
70028
d81780942bb8
* mh-acros.el (struct, x, y): No need to wrap defvar with
Bill Wohler <wohler@newt.com>
parents:
69298
diff
changeset
|
325 (defvar pick-folder) ; XEmacs |
68465 | 326 |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
327 (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
|
328 "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
|
329 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
330 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
|
331 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
|
332 (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
|
333 (current-window-configuration))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
334 (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
|
335 (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
|
336 (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
|
337 (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
|
338 (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
|
339 (message "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
340 (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
|
341 '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
|
342 (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
|
343 (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
|
344 "\\[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
|
345 "\\[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
|
346 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
347 (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
|
348 "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
|
349 (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
|
350 (insert "From: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
351 "To: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
352 "Cc: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
353 "Date: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
354 "Subject: \n" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
355 "---------\n") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
356 (mh-search-mode) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
357 (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
|
358 (dotimes (i 5) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
359 (add-text-properties (point) (1+ (point)) '(front-sticky t)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
360 (add-text-properties (- (mh-line-end-position) 2) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
361 (1- (mh-line-end-position)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
362 '(rear-nonsticky t)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
363 (add-text-properties (point) (1- (mh-line-end-position)) '(read-only t)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
364 (forward-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
365 (add-text-properties (point) (1+ (point)) '(front-sticky t)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
366 (add-text-properties (point) (1- (mh-line-end-position)) '(read-only t)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
367 (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
|
368 |
68465 | 369 ;; Sequence Searches |
370 | |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
371 ;;;###mh-autoload |
68465 | 372 (defun mh-index-new-messages (folders) |
373 "Display unseen messages. | |
374 | |
375 If you use a program such as \"procmail\" to use \"rcvstore\" to file | |
376 your incoming mail automatically, you can display new, unseen, | |
377 messages using this command. All messages in the \"unseen\" | |
378 sequence from the folders in `mh-new-messages-folders' are | |
379 listed. | |
380 | |
381 With a prefix argument, enter a space-separated list of FOLDERS, | |
382 or nothing to search all folders." | |
383 (interactive | |
384 (list (if current-prefix-arg | |
385 (split-string (read-string "Search folder(s) (default all): ")) | |
386 mh-new-messages-folders))) | |
387 (mh-index-sequenced-messages folders mh-unseen-seq)) | |
388 | |
389 ;;;###mh-autoload | |
390 (defun mh-index-ticked-messages (folders) | |
391 "Display ticked messages. | |
392 | |
393 All messages in `mh-tick-seq' from the folders in | |
394 `mh-ticked-messages-folders' are listed. | |
395 | |
396 With a prefix argument, enter a space-separated list of FOLDERS, | |
397 or nothing to search all folders." | |
398 (interactive | |
399 (list (if current-prefix-arg | |
400 (split-string (read-string "Search folder(s) (default all): ")) | |
401 mh-ticked-messages-folders))) | |
402 (mh-index-sequenced-messages folders mh-tick-seq)) | |
403 | |
404 ;; Shush compiler. | |
70028
d81780942bb8
* mh-acros.el (struct, x, y): No need to wrap defvar with
Bill Wohler <wohler@newt.com>
parents:
69298
diff
changeset
|
405 (defvar mh-mairix-folder) ; XEmacs |
d81780942bb8
* mh-acros.el (struct, x, y): No need to wrap defvar with
Bill Wohler <wohler@newt.com>
parents:
69298
diff
changeset
|
406 (defvar mh-flists-search-folders) ; XEmacs |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
407 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
408 ;;;###mh-autoload |
68465 | 409 (defun mh-index-sequenced-messages (folders sequence) |
410 "Display messages in any sequence. | |
411 | |
412 All messages from the FOLDERS in `mh-new-messages-folders' in the | |
413 SEQUENCE you provide are listed. With a prefix argument, enter a | |
414 space-separated list of folders at the prompt, or nothing to | |
415 search all folders." | |
416 (interactive | |
417 (list (if current-prefix-arg | |
418 (split-string (read-string "Search folder(s) (default all): ")) | |
419 mh-new-messages-folders) | |
420 (mh-read-seq-default "Search" nil))) | |
421 (unless sequence (setq sequence mh-unseen-seq)) | |
422 (let* ((mh-flists-search-folders folders) | |
423 (mh-flists-sequence sequence) | |
424 (mh-flists-called-flag t) | |
425 (mh-searcher 'flists) | |
426 (mh-search-function 'mh-flists-execute) | |
427 (mh-search-next-result-function 'mh-mairix-next-result) | |
428 (mh-mairix-folder mh-user-path) | |
429 (mh-search-regexp-builder nil) | |
430 (new-folder (format "%s/%s/%s" mh-index-folder | |
431 mh-flists-results-folder sequence)) | |
432 (window-config (if (equal new-folder mh-current-folder) | |
433 mh-previous-window-config | |
434 (current-window-configuration))) | |
435 (redo-flag nil) | |
436 message) | |
437 (cond ((buffer-live-p (get-buffer new-folder)) | |
438 ;; The destination folder is being visited. Trick `mh-search' | |
439 ;; into thinking that the folder resulted from a previous search. | |
440 (set-buffer new-folder) | |
441 (setq mh-index-previous-search (list folders mh-searcher sequence)) | |
442 (setq redo-flag t)) | |
443 ((mh-folder-exists-p new-folder) | |
444 ;; Folder exists but we don't have it open. That means they are | |
445 ;; stale results from a old flists search. Clear it out. | |
446 (mh-exec-cmd-quiet nil "rmf" new-folder))) | |
447 (setq message (mh-search "+" mh-flists-results-folder | |
448 redo-flag window-config) | |
449 mh-index-sequence-search-flag t | |
450 mh-index-previous-search (list folders mh-searcher sequence)) | |
451 (mh-index-write-data) | |
452 (when (stringp message) (message "%s" message)))) | |
453 | |
454 (defvar mh-flists-search-folders) | |
455 | |
456 (defun mh-flists-execute (&rest args) | |
457 "Execute flists. | |
458 Search for messages belonging to `mh-flists-sequence' in the | |
459 folders specified by `mh-flists-search-folders'. If | |
460 `mh-recursive-folders-flag' is t, then the folders are searched | |
461 recursively. All parameters ARGS are ignored." | |
462 (set-buffer (get-buffer-create mh-temp-index-buffer)) | |
463 (erase-buffer) | |
464 (unless (executable-find "sh") | |
465 (error "Didn't find sh")) | |
466 (with-temp-buffer | |
467 (let ((seq (symbol-name mh-flists-sequence))) | |
468 (insert "for folder in `" (expand-file-name "flists" mh-progs) " " | |
469 (cond ((eq mh-flists-search-folders t) | |
470 (mh-quote-for-shell mh-inbox)) | |
471 ((eq mh-flists-search-folders nil) "") | |
472 ((listp mh-flists-search-folders) | |
473 (loop for folder in mh-flists-search-folders | |
474 concat | |
475 (concat " " (mh-quote-for-shell folder))))) | |
476 (if mh-recursive-folders-flag " -recurse" "") | |
477 " -sequence " seq " -noshowzero -fast` ; do\n" | |
478 (expand-file-name "mhpath" mh-progs) " \"+$folder\" " seq "\n" | |
479 "done\n")) | |
480 (call-process-region | |
481 (point-min) (point-max) "sh" nil (get-buffer mh-temp-index-buffer)))) | |
482 | |
483 ;; Navigation | |
484 | |
485 ;;;###mh-autoload | |
486 (defun mh-index-next-folder (&optional backward-flag) | |
487 "Jump to the next folder marker. | |
488 | |
489 With non-nil optional argument BACKWARD-FLAG, jump to the previous | |
490 group of results." | |
491 (interactive "P") | |
492 (if (null mh-index-data) | |
493 (message "Only applicable in an MH-E index search buffer") | |
494 (let ((point (point))) | |
495 (forward-line (if backward-flag 0 1)) | |
496 (cond ((if backward-flag | |
497 (re-search-backward "^+" (point-min) t) | |
498 (re-search-forward "^+" (point-max) t)) | |
499 (beginning-of-line)) | |
500 ((and (if backward-flag | |
501 (goto-char (point-max)) | |
502 (goto-char (point-min))) | |
503 nil)) | |
504 ((if backward-flag | |
505 (re-search-backward "^+" (point-min) t) | |
506 (re-search-forward "^+" (point-max) t)) | |
507 (beginning-of-line)) | |
508 (t (goto-char point)))))) | |
509 | |
510 ;;;###mh-autoload | |
511 (defun mh-index-previous-folder () | |
512 "Jump to the previous folder marker." | |
513 (interactive) | |
514 (mh-index-next-folder t)) | |
515 | |
516 ;;;###mh-autoload | |
517 (defun mh-index-visit-folder () | |
518 "Visit original folder from where the message at point was found." | |
519 (interactive) | |
520 (unless mh-index-data | |
521 (error "Not in an index folder")) | |
522 (let (folder msg) | |
523 (save-excursion | |
524 (cond ((and (bolp) (eolp)) | |
525 (ignore-errors (forward-line -1)) | |
526 (setq msg (mh-get-msg-num t))) | |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
527 ((equal (char-after (mh-line-beginning-position)) ?+) |
68465 | 528 (setq folder (buffer-substring-no-properties |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
529 (mh-line-beginning-position) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
530 (mh-line-end-position)))) |
68465 | 531 (t (setq msg (mh-get-msg-num t))))) |
532 (when (not folder) | |
533 (setq folder (car (gethash (gethash msg mh-index-msg-checksum-map) | |
534 mh-index-checksum-origin-map)))) | |
535 (when (or (not (get-buffer folder)) | |
536 (y-or-n-p (format "Reuse buffer displaying %s? " folder))) | |
537 (mh-visit-folder | |
538 folder (loop for x being the hash-keys of (gethash folder mh-index-data) | |
539 when (mh-msg-exists-p x folder) collect x))))) | |
540 | |
541 | |
542 | |
543 ;;; Search Menu | |
544 | |
545 (easy-menu-define | |
546 mh-pick-menu mh-search-mode-map "Menu for MH-E Search" | |
547 '("Search" | |
548 ["Perform Search" mh-index-do-search t] | |
549 ["Search with pick" mh-pick-do-search t])) | |
550 | |
551 | |
552 | |
553 ;;; MH-Search Keys | |
554 | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
555 ;; 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
|
556 (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
|
557 "\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
|
558 "\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
|
559 "\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
|
560 "\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
|
561 "\C-c\C-f\C-c" mh-to-field |
68465 | 562 "\C-c\C-f\C-m" mh-to-field |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
563 "\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
|
564 "\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
|
565 "\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
|
566 "\C-c\C-fc" mh-to-field |
68465 | 567 "\C-c\C-fm" mh-to-field |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
568 "\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
|
569 "\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
|
570 |
68465 | 571 |
572 | |
573 ;;; MH-Search Help Messages | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
574 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
575 ;; 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
|
576 (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
|
577 '((nil |
68465 | 578 "Perform search: \\[mh-index-do-search]\n" |
579 "Search with pick: \\[mh-pick-do-search]\n\n" | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
580 "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
|
581 "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
|
582 "(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
|
583 "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
|
584 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
585 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
|
586 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
|
587 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
|
588 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
|
589 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
|
590 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
591 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
|
592 as well.") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
593 |
68465 | 594 |
595 | |
596 ;;; MH-Search Mode | |
597 | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
598 (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
|
599 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
600 (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
|
601 "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
|
602 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
603 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
|
604 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
|
605 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
|
606 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
|
607 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
|
608 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
609 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
|
610 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
611 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
|
612 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
|
613 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
|
614 \\[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
|
615 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
616 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
|
617 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
618 \\{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
|
619 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
620 (easy-menu-add mh-pick-menu) |
68465 | 621 (mh-set-help mh-search-mode-help-messages)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
622 |
68465 | 623 |
624 | |
625 ;;; MH-Search Commands | |
626 | |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
627 (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
|
628 "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
|
629 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
|
630 `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
|
631 (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
|
632 (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
|
633 (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
|
634 (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
|
635 (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
|
636 (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
|
637 (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
|
638 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
639 (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
|
640 "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
|
641 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
642 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
|
643 (interactive) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
644 (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
|
645 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
646 (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
|
647 "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
|
648 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
|
649 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
|
650 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
|
651 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
652 (let ((pattern-list ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
653 (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
|
654 start begin) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
655 (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
|
656 (while (not (eobp)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
657 (if (search-forward "--------" (mh-line-end-position) t) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
658 (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
|
659 (beginning-of-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
660 (setq begin (point)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
661 (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
|
662 (point) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
663 (search-forward ":" (mh-line-end-position) t) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
664 (point))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
665 (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
|
666 (intern (downcase |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
667 (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
|
668 begin (1- start))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
669 (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
|
670 (buffer-substring-no-properties |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
671 start (mh-line-end-position)))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
672 pattern-list)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
673 (forward-line)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
674 pattern-list))) |
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 (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
|
677 "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
|
678 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
|
679 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
|
680 parsed." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
681 (let (input) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
682 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
683 (insert input-string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
684 ;; replace tabs |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
685 (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
|
686 ;; synonyms of AND |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
687 (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
|
688 (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
|
689 (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
|
690 ;; synonyms of OR |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
691 (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
|
692 (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
|
693 (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
|
694 ;; synonyms of NOT |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
695 (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
|
696 (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
|
697 (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
|
698 (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
|
699 ;; 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
|
700 (mh-replace-string "(" " ( ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
701 (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
|
702 ;; 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
|
703 (mh-replace-string ")" " ) ") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
704 (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
|
705 ;; 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
|
706 (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
|
707 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
708 (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
|
709 (op-stack ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
710 (operand-stack ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
711 oper1) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
712 (dolist (token tokens) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
713 (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
|
714 ((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
|
715 ((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
|
716 ((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
|
717 ((equal token ")") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
718 (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
|
719 (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
|
720 (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
|
721 (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
|
722 (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
|
723 (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
|
724 (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
|
725 (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
|
726 (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
|
727 ((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
|
728 (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
|
729 (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
|
730 (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
|
731 (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
|
732 (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
|
733 (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
|
734 ((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
|
735 (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
|
736 (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
|
737 (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
|
738 (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
|
739 (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
|
740 (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
|
741 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
742 (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
|
743 "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
|
744 (let ((result ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
745 (literal-seen nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
746 current) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
747 (while tokens |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
748 (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
|
749 (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
|
750 (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
|
751 (push current result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
752 ((and literal-seen |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
753 (push "and" result) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
754 (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
|
755 nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
756 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
757 (push current result) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
758 (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
|
759 (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
|
760 (nreverse result))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
761 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
762 (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
|
763 "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
|
764 (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
|
765 (let (op oper1) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
766 (while op-stack |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
767 (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
|
768 (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
|
769 (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
|
770 ((eq op 'not) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
771 (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
|
772 ((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
|
773 (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
|
774 (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
|
775 (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
|
776 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
777 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
778 |
68465 | 779 ;;; Indexing Functions |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
780 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
781 ;; 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
|
782 (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
|
783 '((swish++ |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
784 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
|
785 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
|
786 (swish |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
787 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
|
788 (mairix |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
789 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
|
790 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
|
791 (namazu |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
792 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
|
793 (pick |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
794 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
|
795 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
|
796 (grep |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
797 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
|
798 "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
|
799 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
800 (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
|
801 "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
|
802 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
|
803 `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
|
804 `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
|
805 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
|
806 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
|
807 `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
|
808 (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
|
809 (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
|
810 (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
|
811 (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
|
812 (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
|
813 (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
|
814 (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
|
815 (while program-alist |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
816 (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
|
817 (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
|
818 (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
|
819 (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
|
820 (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
|
821 (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
|
822 (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
|
823 (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
|
824 nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
825 |
68465 | 826 ;;; Swish++ |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
827 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
828 (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
|
829 (executable-find "search"))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
830 (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
|
831 (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
|
832 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
833 (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
|
834 "Execute swish++. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
835 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
836 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
|
837 your MH directory. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
838 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
839 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
|
840 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
|
841 contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
842 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
843 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
|
844 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
|
845 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
|
846 IncludeFile Mail * |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
847 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
|
848 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
849 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
|
850 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
|
851 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
852 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
|
853 -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
|
854 -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
|
855 | 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
|
856 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
857 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
|
858 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
|
859 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
|
860 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
861 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
|
862 instead of \"index\". |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
863 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
864 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
|
865 used to search." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
866 (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
|
867 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
868 (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
|
869 (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
|
870 (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
|
871 "-m" "10000" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
872 (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
|
873 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
|
874 search-regexp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
875 (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
|
876 (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
|
877 (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
|
878 (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
|
879 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
880 (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
|
881 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
882 (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
|
883 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
884 (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
|
885 "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
|
886 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
|
887 (let ((regexp "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
888 (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
|
889 (when (cdr elem) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
890 (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
|
891 (if (car elem) "(" "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
892 (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
|
893 (if (car elem) " = " "") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
894 (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
|
895 (if (car elem) ")" ""))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
896 (substring regexp 4))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
897 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
898 (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
|
899 "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
|
900 (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
|
901 ((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
|
902 (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
|
903 (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
|
904 (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
|
905 (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
|
906 |
68465 | 907 ;;; Swish |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
908 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
909 (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
|
910 (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
|
911 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
912 (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
|
913 "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
|
914 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
915 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
|
916 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
|
917 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
918 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
|
919 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
|
920 following contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
921 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
922 DefaultContents TXT* |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
923 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
|
924 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
|
925 IndexName \"Mail Index\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
926 IndexDescription \"Mail Index\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
927 IndexPointer \"http://nowhere\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
928 IndexAdmin \"nobody\" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
929 #MetaNames automatic |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
930 IndexReport 3 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
931 FollowSymLinks no |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
932 UseStemming no |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
933 IgnoreTotalWordCountWhenRanking yes |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
934 WordCharacters abcdefghijklmnopqrstuvwxyz0123456789- |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
935 BeginCharacters abcdefghijklmnopqrstuvwxyz |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
936 EndCharacters abcdefghijklmnopqrstuvwxyz0123456789 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
937 IgnoreLimit 50 1000 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
938 IndexComments 0 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
939 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
|
940 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
|
941 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
|
942 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
943 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
|
944 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
|
945 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
|
946 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
947 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
|
948 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
|
949 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
950 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
|
951 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
952 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
|
953 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
|
954 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
955 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
|
956 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
957 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
|
958 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
|
959 (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
|
960 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
961 (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
|
962 (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
|
963 (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
|
964 "-w" search-regexp |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
965 "-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
|
966 (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
|
967 (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
|
968 (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
|
969 (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
|
970 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
971 (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
|
972 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
973 (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
|
974 "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
|
975 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
976 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
977 (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
|
978 (return nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
979 (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
|
980 (return 'error)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
981 (let* ((start (search-forward " " (mh-line-end-position) t)) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
982 (end (search-forward " " (mh-line-end-position) t))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
983 (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
|
984 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
985 (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
|
986 (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
|
987 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
988 (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
|
989 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
990 (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
|
991 (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
|
992 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
993 (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
|
994 (< (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
|
995 (format "+%s" |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
996 (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
|
997 (return 'error))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
998 (let* ((s (buffer-substring-no-properties (1+ (point)) end)) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
999 (n (ignore-errors (string-to-number s)))) |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1000 (if n n (return 'error))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1001 nil))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1002 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1003 |
68465 | 1004 ;;; Mairix |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1005 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1006 (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
|
1007 (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
|
1008 (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
|
1009 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1010 (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
|
1011 "Execute mairix. |
68163
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 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
|
1014 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
|
1015 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1016 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
|
1017 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
|
1018 following contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1019 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1020 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
|
1021 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1022 # 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
|
1023 # 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
|
1024 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
|
1025 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1026 vfolder_format=raw |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1027 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
|
1028 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1029 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
|
1030 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
|
1031 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1032 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
|
1033 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1034 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
|
1035 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
|
1036 (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
|
1037 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1038 (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
|
1039 (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
|
1040 (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
|
1041 "-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
|
1042 search-regexp-list) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1043 (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
|
1044 (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
|
1045 (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
|
1046 (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
|
1047 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1048 (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
|
1049 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1050 (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
|
1051 "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
|
1052 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1053 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1054 (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
|
1055 (return nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1056 (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
|
1057 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1058 (let ((start (point)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1059 end msg-start) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1060 (setq end (mh-line-end-position)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1061 (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
|
1062 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1063 (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
|
1064 (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
|
1065 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1066 (goto-char end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1067 (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
|
1068 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1069 (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
|
1070 (goto-char start) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1071 (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
|
1072 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1073 (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
|
1074 (point) (1- msg-start))) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1075 (string-to-number |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1076 (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
|
1077 nil))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1078 (forward-line))) |
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-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
|
1081 "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
|
1082 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
|
1083 (let ((result ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1084 (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
|
1085 (when (cdr pair) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1086 (push |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1087 (concat |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1088 (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
|
1089 ((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
|
1090 ((eq (car pair) 'cc) "c:") |
95094
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1091 ((eq (car pair) 'to-or-cc) "tc:") |
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1092 ((eq (car pair) 'address) "a:") |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1093 ((eq (car pair) 'subject) "s:") |
95094
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1094 ((eq (car pair) 'subject-or-body) "bs:") |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1095 ((eq (car pair) 'date) "d:") |
95094
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1096 ((eq (car pair) 'message-id) "m:") |
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1097 ((eq (car pair) 'message-body) "b:") |
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1098 ((eq (car pair) 'message-size) "z:") |
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1099 ((eq (car pair) 'message-attachment-name) "n:") |
8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
Bill Wohler <wohler@newt.com>
parents:
94663
diff
changeset
|
1100 ((eq (car pair) 'message-flags) "F:") |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1101 (t "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1102 (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
|
1103 (final "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1104 (dolist (conjunct sop) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1105 (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
|
1106 (expr-string "")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1107 (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
|
1108 (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
|
1109 (if (atom e) "" "~") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1110 (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
|
1111 (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
|
1112 (substring final 1))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1113 result))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1114 result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1115 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1116 (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
|
1117 "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
|
1118 (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
|
1119 ((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
|
1120 (cons 'or |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1121 (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
|
1122 append (cdr e)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1123 ((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
|
1124 (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
|
1125 result next-factor) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1126 (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
|
1127 (while conjuncts |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1128 (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
|
1129 (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
|
1130 (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
|
1131 (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
|
1132 (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
|
1133 (cons 'or res)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1134 result)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1135 ((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
|
1136 ((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
|
1137 ((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
|
1138 `(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
|
1139 (cdadr expr))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1140 ((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
|
1141 `(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
|
1142 (cdadr expr))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1143 (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
|
1144 |
68465 | 1145 ;;; Namazu |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1146 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1147 (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
|
1148 (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
|
1149 (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
|
1150 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1151 (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
|
1152 "Execute namazu. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1153 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1154 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
|
1155 your MH directory. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1156 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1157 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
|
1158 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
|
1159 contents: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1160 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1161 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
|
1162 $ADDRESS = 'user@localhost'; |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1163 $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
|
1164 $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
|
1165 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1166 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
|
1167 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
|
1168 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
|
1169 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1170 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
|
1171 daily from cron: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1172 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1173 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
|
1174 /home/user/Mail |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1175 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1176 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
|
1177 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
|
1178 (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
|
1179 (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
|
1180 (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
|
1181 (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
|
1182 (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
|
1183 (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
|
1184 (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
|
1185 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1186 (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
|
1187 "-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
|
1188 (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
|
1189 (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
|
1190 (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
|
1191 (if (equal last "/") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1192 folder-path |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1193 (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
|
1194 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1195 (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
|
1196 "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
|
1197 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1198 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1199 (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
|
1200 (let ((file-name (buffer-substring-no-properties |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1201 (point) (mh-line-end-position)))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1202 (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
|
1203 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1204 (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
|
1205 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1206 (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
|
1207 (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
|
1208 (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
|
1209 (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
|
1210 (list (format "+%s" (substring folder/msg 0 mark)) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1211 (let ((n (ignore-errors (string-to-number |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1212 (substring folder/msg (1+ mark)))))) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1213 (if n n (return 'error))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1214 nil)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1215 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1216 |
68465 | 1217 ;;; Pick |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1218 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1219 (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
|
1220 (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
|
1221 (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
|
1222 "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
|
1223 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1224 (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
|
1225 "Execute pick. |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1226 |
68192
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1227 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
|
1228 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
|
1229 `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
|
1230 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1231 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
|
1232 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
|
1233 (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
|
1234 (erase-buffer) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1235 (let ((folders |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1236 (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
|
1237 (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
|
1238 (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
|
1239 (insert folder "\n") |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1240 (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
|
1241 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
|
1242 (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
|
1243 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1244 (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
|
1245 "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
|
1246 (prog1 |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1247 (block nil |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1248 (when (eobp) (return nil)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1249 (when (search-forward-regexp "^\+" (mh-line-end-position) t) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1250 (setq mh-index-pick-folder |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1251 (buffer-substring-no-properties (mh-line-beginning-position) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1252 (mh-line-end-position))) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1253 (return 'error)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1254 (unless (search-forward-regexp "^[1-9][0-9]*$" (mh-line-end-position) t) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1255 (return 'error)) |
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1256 (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
|
1257 (string-to-number |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1258 (buffer-substring-no-properties (mh-line-beginning-position) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1259 (mh-line-end-position))) |
68188
dcf226991252
* mh-search.el (mh-index-next-result-function): Add format to
Bill Wohler <wohler@newt.com>
parents:
68163
diff
changeset
|
1260 nil)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1261 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1262 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1263 ;; 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
|
1264 ;; -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
|
1265 ;; 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
|
1266 ;; --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
|
1267 ;; 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
|
1268 ;; "--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
|
1269 ;; -- 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
|
1270 (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
|
1271 "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
|
1272 (let ((result ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1273 (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
|
1274 (when (cdr pattern) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1275 (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
|
1276 ,@(mh-pick-construct-regexp |
97411
9873b6187c96
(mh-pick-regexp-builder): Rename variant mu-mh to gnu-mh and be
Bill Wohler <wohler@newt.com>
parents:
95094
diff
changeset
|
1277 (if (and (mh-variant-p 'gnu-mh) (car pattern)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1278 (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
|
1279 (cdr pattern)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1280 (if (car pattern) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1281 (cond |
97411
9873b6187c96
(mh-pick-regexp-builder): Rename variant mu-mh to gnu-mh and be
Bill Wohler <wohler@newt.com>
parents:
95094
diff
changeset
|
1282 ((mh-variant-p 'gnu-mh) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1283 (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
|
1284 ((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
|
1285 (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
|
1286 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1287 (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
|
1288 "-search")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1289 "-rbrace")))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1290 (cdr result))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1291 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1292 (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
|
1293 "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
|
1294 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
|
1295 (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
|
1296 ((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
|
1297 `("-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
|
1298 ,@(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
|
1299 ((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
|
1300 `("-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
|
1301 ,@(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
|
1302 ((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
|
1303 `("-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
|
1304 "-rbrace")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1305 (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
|
1306 |
68465 | 1307 ;;; Grep |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1308 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1309 (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
|
1310 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1311 (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
|
1312 "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
|
1313 |
2cfa649fa39d
* mh-customize.el (mh-index): Rename group to mh-search and sort group
Bill Wohler <wohler@newt.com>
parents:
68188
diff
changeset
|
1314 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
|
1315 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
|
1316 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
|
1317 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
|
1318 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1319 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
|
1320 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
|
1321 (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
|
1322 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1323 (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
|
1324 "-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
|
1325 (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
|
1326 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1327 (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
|
1328 "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
|
1329 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
|
1330 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
|
1331 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
|
1332 (prog1 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1333 (block nil |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1334 (when (eobp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1335 (return nil)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1336 (let ((eol-pos (mh-line-end-position)) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1337 (bol-pos (mh-line-beginning-position)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1338 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
|
1339 (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
|
1340 (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
|
1341 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1342 (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
|
1343 (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
|
1344 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1345 (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
|
1346 (forward-char -1) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1347 (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
|
1348 (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
|
1349 (return 'error)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1350 (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
|
1351 folder-start (point))) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1352 (let ((n (ignore-errors (string-to-number |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1353 (buffer-substring-no-properties |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1354 (1+ (point)) msg-end))))) |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1355 (if n n (return 'error))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1356 match)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1357 (forward-line))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1358 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1359 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1360 |
68465 | 1361 ;;; Folder Utilities |
1362 | |
1363 ;;;###mh-autoload | |
1364 (defun mh-index-group-by-folder () | |
1365 "Partition the messages based on source folder. | |
77942
3209414ef99a
(mh-index-group-by-folder): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
1366 Returns an alist with the folder names in the car and the cdr |
68465 | 1367 being the list of messages originally from that folder." |
1368 (save-excursion | |
1369 (goto-char (point-min)) | |
1370 (let ((result-table (make-hash-table :test #'equal))) | |
71529
11d2aeb1c67a
(mh-search, mh-index-group-by-folder): Add "the" in loop construct to
Bill Wohler <wohler@newt.com>
parents:
71353
diff
changeset
|
1371 (loop for msg being the hash-keys of mh-index-msg-checksum-map |
68465 | 1372 do (push msg (gethash (car (gethash |
1373 (gethash msg mh-index-msg-checksum-map) | |
1374 mh-index-checksum-origin-map)) | |
1375 result-table))) | |
1376 (loop for x being the hash-keys of result-table | |
1377 collect (cons x (nreverse (gethash x result-table))))))) | |
1378 | |
1379 ;;;###mh-autoload | |
1380 (defun mh-index-insert-folder-headers () | |
1381 "Annotate the search results with original folder names." | |
1382 (let ((cur-msg (mh-get-msg-num nil)) | |
1383 (old-buffer-modified-flag (buffer-modified-p)) | |
1384 (buffer-read-only nil) | |
1385 current-folder last-folder) | |
1386 (goto-char (point-min)) | |
1387 (while (not (eobp)) | |
1388 (setq current-folder (car (gethash (gethash (mh-get-msg-num nil) | |
1389 mh-index-msg-checksum-map) | |
1390 mh-index-checksum-origin-map))) | |
1391 (when (and current-folder (not (equal current-folder last-folder))) | |
1392 (insert (if last-folder "\n" "") current-folder "\n") | |
1393 (setq last-folder current-folder)) | |
1394 (forward-line)) | |
1395 (when cur-msg | |
1396 (mh-notate-cur) | |
1397 (mh-goto-msg cur-msg t)) | |
1398 (set-buffer-modified-p old-buffer-modified-flag)) | |
1399 (mh-index-create-imenu-index)) | |
1400 | |
1401 ;;;###mh-autoload | |
1402 (defun mh-index-delete-folder-headers () | |
1403 "Delete the folder headers." | |
1404 (let ((cur-msg (mh-get-msg-num nil)) | |
1405 (old-buffer-modified-flag (buffer-modified-p)) | |
1406 (buffer-read-only nil)) | |
1407 (while (and (not cur-msg) (not (eobp))) | |
1408 (forward-line) | |
1409 (setq cur-msg (mh-get-msg-num nil))) | |
1410 (goto-char (point-min)) | |
1411 (while (not (eobp)) | |
1412 (if (or (char-equal (char-after) ?+) (char-equal (char-after) 10)) | |
1413 (delete-region (point) (progn (forward-line) (point))) | |
1414 (forward-line))) | |
1415 (when cur-msg (mh-goto-msg cur-msg t t)) | |
1416 (set-buffer-modified-p old-buffer-modified-flag))) | |
1417 | |
68530
52ef8d8ecd83
(which-func-mode): Shush compiler on Emacs 21 too.
Bill Wohler <wohler@newt.com>
parents:
68529
diff
changeset
|
1418 (mh-require 'which-func nil t) |
52ef8d8ecd83
(which-func-mode): Shush compiler on Emacs 21 too.
Bill Wohler <wohler@newt.com>
parents:
68529
diff
changeset
|
1419 |
68465 | 1420 ;; Shush compiler. |
70028
d81780942bb8
* mh-acros.el (struct, x, y): No need to wrap defvar with
Bill Wohler <wohler@newt.com>
parents:
69298
diff
changeset
|
1421 (defvar which-func-mode) ; < Emacs 22, XEmacs |
68465 | 1422 |
1423 ;;;###mh-autoload | |
1424 (defun mh-index-create-imenu-index () | |
1425 "Create alist of folder names and positions in index folder buffers." | |
1426 (save-excursion | |
1427 (if (boundp 'which-func-mode) | |
1428 (setq which-func-mode t)) | |
1429 (let ((alist ())) | |
1430 (goto-char (point-min)) | |
1431 (while (re-search-forward "^+" nil t) | |
1432 (save-excursion | |
1433 (beginning-of-line) | |
1434 (push (cons (buffer-substring-no-properties | |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1435 (point) (mh-line-end-position)) |
68465 | 1436 (set-marker (make-marker) (point))) |
1437 alist))) | |
1438 (setq imenu--index-alist (nreverse alist))))) | |
1439 | |
1440 ;;;###mh-autoload | |
1441 (defun mh-search-p () | |
1442 "Non-nil means that this folder was generated by searching." | |
1443 mh-index-data) | |
1444 | |
1445 ;; Shush compiler | |
70028
d81780942bb8
* mh-acros.el (struct, x, y): No need to wrap defvar with
Bill Wohler <wohler@newt.com>
parents:
69298
diff
changeset
|
1446 (defvar mh-speed-flists-inhibit-flag) ; XEmacs |
68465 | 1447 |
1448 ;;;###mh-autoload | |
1449 (defun mh-index-execute-commands () | |
1450 "Delete/refile the actual messages. | |
1451 The copies in the searched folder are then deleted/refiled to get | |
1452 the desired result. Before deleting the messages we make sure | |
1453 that the message being deleted is identical to the one that the | |
1454 user has marked in the index buffer." | |
1455 (save-excursion | |
1456 (let ((folders ()) | |
1457 (mh-speed-flists-inhibit-flag t)) | |
1458 (maphash | |
1459 (lambda (folder msgs) | |
1460 (push folder folders) | |
1461 (if (not (get-buffer folder)) | |
1462 ;; If source folder not open, just delete the messages... | |
1463 (apply #'mh-exec-cmd "rmm" folder (mh-coalesce-msg-list msgs)) | |
1464 ;; Otherwise delete the messages in the source buffer... | |
1465 (save-excursion | |
1466 (set-buffer folder) | |
1467 (let ((old-refile-list mh-refile-list) | |
1468 (old-delete-list mh-delete-list)) | |
1469 (setq mh-refile-list nil | |
1470 mh-delete-list msgs) | |
1471 (unwind-protect (mh-execute-commands) | |
1472 (setq mh-refile-list | |
1473 (mapcar (lambda (x) | |
1474 (cons (car x) | |
1475 (loop for y in (cdr x) | |
1476 unless (memq y msgs) collect y))) | |
1477 old-refile-list) | |
1478 mh-delete-list | |
1479 (loop for x in old-delete-list | |
1480 unless (memq x msgs) collect x)) | |
1481 (mh-set-folder-modified-p (mh-outstanding-commands-p)) | |
1482 (when (mh-outstanding-commands-p) | |
1483 (mh-notate-deleted-and-refiled))))))) | |
1484 (mh-index-matching-source-msgs (append (loop for x in mh-refile-list | |
1485 append (cdr x)) | |
1486 mh-delete-list) | |
1487 t)) | |
1488 folders))) | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1489 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1490 (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
|
1491 "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
|
1492 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
|
1493 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
|
1494 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
|
1495 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
|
1496 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
|
1497 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1498 (if (stringp string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1499 (insert string) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1500 (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
|
1501 (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
|
1502 (insert "_" s))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1503 (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
|
1504 (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
|
1505 (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
|
1506 (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
|
1507 (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
|
1508 (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
|
1509 (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
|
1510 (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
|
1511 (delete-char 1)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1512 (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
|
1513 (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
|
1514 (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
|
1515 (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
|
1516 (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
|
1517 (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
|
1518 (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
|
1519 (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
|
1520 (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
|
1521 (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
|
1522 (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
|
1523 ((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
|
1524 (t out))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1525 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1526 (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
|
1527 "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
|
1528 (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
|
1529 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1530 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1531 (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
|
1532 (goto-char (point-min)) |
71529
11d2aeb1c67a
(mh-search, mh-index-group-by-folder): Add "the" in loop construct to
Bill Wohler <wohler@newt.com>
parents:
71353
diff
changeset
|
1533 ;; Strip + from folder; use optional + in regexp. |
11d2aeb1c67a
(mh-search, mh-index-group-by-folder): Add "the" in loop construct to
Bill Wohler <wohler@newt.com>
parents:
71353
diff
changeset
|
1534 (looking-at (format "+?%s" (substring folder 1))))))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1535 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1536 (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
|
1537 "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
|
1538 (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
|
1539 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1540 (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
|
1541 "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
|
1542 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1543 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
|
1544 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
|
1545 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1546 Otherwise if the folder NAME was generated from a different |
71353
b5aec585f378
(mh-index-new-folder): Use -2 suffix instead of <2> suffix for folder
Bill Wohler <wohler@newt.com>
parents:
71170
diff
changeset
|
1547 search then check if NAME-2 can be used. Otherwise try NAME-3. |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1548 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
|
1549 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1550 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
|
1551 (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
|
1552 (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
|
1553 (let ((chosen-name |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1554 (loop for i from 1 |
71353
b5aec585f378
(mh-index-new-folder): Use -2 suffix instead of <2> suffix for folder
Bill Wohler <wohler@newt.com>
parents:
71170
diff
changeset
|
1555 for candidate = (if (equal i 1) name (format "%s-%s" name i)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1556 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
|
1557 (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
|
1558 search-regexp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1559 return candidate))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1560 ;; 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
|
1561 (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
|
1562 (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
|
1563 ;; Recreate folder... |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1564 (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
|
1565 (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
|
1566 (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
|
1567 (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
|
1568 (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
|
1569 chosen-name)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1570 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1571 (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
|
1572 "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
|
1573 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
|
1574 garbled." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1575 (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1576 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1577 (insert-file-contents |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1578 (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
|
1579 (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
|
1580 (forward-list 3) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1581 (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
|
1582 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1583 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1584 |
68465 | 1585 ;;; Sequence Support |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1586 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1587 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1588 (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
|
1589 "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
|
1590 (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
|
1591 (seq-list ())) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1592 (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
|
1593 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
|
1594 (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
|
1595 (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
|
1596 (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
|
1597 (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
|
1598 (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
|
1599 (ofolder (car pair)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1600 (omsg (cdr pair))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1601 (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
|
1602 (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
|
1603 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
|
1604 (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
|
1605 (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
|
1606 (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
|
1607 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
|
1608 "-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
|
1609 (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
|
1610 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1611 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1612 (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
|
1613 "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
|
1614 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
|
1615 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
|
1616 (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
|
1617 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
|
1618 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
|
1619 (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
|
1620 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
|
1621 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
|
1622 finally return map)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1623 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1624 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1625 (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
|
1626 "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
|
1627 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
|
1628 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
|
1629 ;; 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
|
1630 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1631 (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
|
1632 (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
|
1633 (let ((folders ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1634 (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
|
1635 (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
|
1636 (push folder folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1637 ;; 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
|
1638 (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
|
1639 "-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
|
1640 (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
|
1641 (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
|
1642 ;; 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
|
1643 (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
|
1644 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1645 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1646 (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
|
1647 (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
|
1648 folders)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1649 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1650 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1651 (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
|
1652 "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
|
1653 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
|
1654 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
|
1655 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1656 (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
|
1657 (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
|
1658 (let ((folders ()) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1659 (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
|
1660 (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
|
1661 (push folder folders) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1662 ;; 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
|
1663 (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
|
1664 "-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
|
1665 (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
|
1666 (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
|
1667 ;; 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
|
1668 (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
|
1669 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1670 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1671 (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
|
1672 (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
|
1673 folders)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1674 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1675 (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
|
1676 "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
|
1677 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1678 (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
|
1679 "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
|
1680 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
|
1681 `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
|
1682 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
|
1683 (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
|
1684 (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
|
1685 mh-unpropagated-sequences)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1686 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1687 (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
|
1688 "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
|
1689 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
|
1690 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
|
1691 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
|
1692 (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
|
1693 (dolist (msg msgs) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1694 (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
|
1695 (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
|
1696 (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
|
1697 (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
|
1698 (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
|
1699 (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
|
1700 (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
|
1701 table)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1702 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1703 (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
|
1704 "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
|
1705 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1706 (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
|
1707 "-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
|
1708 (goto-char (point-min)) |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1709 (string-equal (buffer-substring-no-properties |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1710 (point) (mh-line-end-position)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1711 checksum))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1712 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1713 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1714 |
68465 | 1715 ;;; Serialization of Index Data |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1716 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1717 (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
|
1718 "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
|
1719 (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1720 (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
|
1721 (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
|
1722 (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
|
1723 (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
|
1724 (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
|
1725 (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
|
1726 (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
|
1727 (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
|
1728 (print-length nil) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1729 (print-level nil)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1730 (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
|
1731 (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
|
1732 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
|
1733 (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
|
1734 (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
|
1735 (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
|
1736 (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
|
1737 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1738 (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
|
1739 "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
|
1740 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
|
1741 table keys." |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1742 (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
|
1743 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
|
1744 (current-buffer)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1745 (insert "\n")) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1746 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1747 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1748 (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
|
1749 "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
|
1750 (ignore-errors |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1751 (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
|
1752 (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
|
1753 (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
|
1754 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
|
1755 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1756 (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
|
1757 (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
|
1758 (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
|
1759 (lambda (data) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1760 (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
|
1761 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
|
1762 finally return table))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1763 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
|
1764 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
|
1765 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
|
1766 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
|
1767 (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
|
1768 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
|
1769 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
|
1770 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
|
1771 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
|
1772 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1773 (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
|
1774 "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
|
1775 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
|
1776 (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
|
1777 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
|
1778 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
|
1779 finally return table)) |
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 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1782 |
68465 | 1783 ;;; Checksum Routines |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1784 |
68465 | 1785 ;; A few different checksum programs are supported. The supported |
1786 ;; programs are: | |
1787 | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1788 ;; 1. md5sum |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1789 ;; 2. md5 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1790 ;; 3. openssl |
68465 | 1791 |
1792 ;; To add support for your favorite checksum program add a clause to | |
1793 ;; the cond statement in mh-checksum-choose. This should set the | |
1794 ;; variable mh-checksum-cmd to the command line needed to run the | |
1795 ;; checsum program and should set mh-checksum-parser to a function | |
1796 ;; which returns a cons cell containing the message number and | |
1797 ;; checksum string. | |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1798 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1799 (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
|
1800 (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
|
1801 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1802 (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
|
1803 "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
|
1804 (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
|
1805 (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
|
1806 (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
|
1807 (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
|
1808 (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
|
1809 ((executable-find "openssl") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1810 (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
|
1811 (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
|
1812 ((executable-find "md5") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1813 (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
|
1814 (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
|
1815 (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
|
1816 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1817 (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
|
1818 "Parse md5sum output." |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1819 (let ((begin (mh-line-beginning-position)) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1820 (end (mh-line-end-position)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1821 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
|
1822 (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
|
1823 (goto-char end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1824 (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
|
1825 (cond ((and first-space last-slash) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1826 (cons (string-to-number (buffer-substring-no-properties |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1827 (1+ last-slash) end)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1828 (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
|
1829 (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
|
1830 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1831 (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
|
1832 "Parse openssl output." |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1833 (let ((begin (mh-line-beginning-position)) |
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1834 (end (mh-line-end-position)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1835 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
|
1836 (goto-char end) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1837 (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
|
1838 (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
|
1839 (cond ((and last-slash last-space) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1840 (cons (string-to-number (buffer-substring-no-properties |
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1841 (1+ last-slash) (1- last-space))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1842 (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
|
1843 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1844 (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
|
1845 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1846 ;;;###mh-autoload |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1847 (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
|
1848 "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
|
1849 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
|
1850 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
|
1851 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
|
1852 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
|
1853 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
|
1854 (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
|
1855 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1856 ;; Clear temp buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1857 (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
|
1858 (erase-buffer) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1859 ;; 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
|
1860 (with-temp-buffer |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1861 (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
|
1862 "-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
|
1863 folder "all") |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1864 (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
|
1865 (let (msg checksum) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1866 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1867 (setq msg (buffer-substring-no-properties |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1868 (point) (mh-line-end-position))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1869 (forward-line) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1870 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1871 (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
|
1872 ((eolp) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1873 ;; 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
|
1874 (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
|
1875 (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
|
1876 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1877 ;; update maps |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1878 (setq checksum (buffer-substring-no-properties |
68529
7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
Bill Wohler <wohler@newt.com>
parents:
68465
diff
changeset
|
1879 (point) (mh-line-end-position))) |
68212
0c77c0b9a620
* mh-comp.el (mh-show-buffer-message-number): Replace (car
Bill Wohler <wohler@newt.com>
parents:
68199
diff
changeset
|
1880 (let ((msg (string-to-number msg))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1881 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1882 (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 (forward-line)))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1884 ;; 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
|
1885 (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
|
1886 (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
|
1887 (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
|
1888 (while (not (eobp)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1889 (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
|
1890 (msg (car intermediate)) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1891 (checksum (cdr intermediate))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1892 (when msg |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1893 ;; annotate |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1894 (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
|
1895 "-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
|
1896 ;; update maps |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1897 (save-excursion |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1898 (set-buffer folder) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1899 (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
|
1900 (forward-line))))) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1901 (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
|
1902 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1903 (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
|
1904 "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
|
1905 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
|
1906 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
|
1907 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
|
1908 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
|
1909 `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
|
1910 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1911 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
|
1912 folder buffer." |
69298
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1913 (cond ((gethash checksum mh-index-checksum-origin-map) |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1914 (when origin-map |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1915 (let* ((intermediate (gethash msg origin-map)) |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1916 (ofolder (car intermediate)) |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1917 (omsg (cdr intermediate))) |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1918 ;; This is most probably a duplicate. So eliminate it. |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1919 (call-process "rm" nil nil nil |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1920 (format "%s%s/%s" mh-user-path |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1921 (substring mh-current-folder 1) msg)) |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1922 (when (gethash ofolder mh-index-data) |
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1923 (remhash omsg (gethash ofolder mh-index-data)))))) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1924 (t |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1925 (setf (gethash msg mh-index-msg-checksum-map) checksum) |
69298
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1926 (when (and origin-map (gethash msg origin-map)) |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1927 (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
|
1928 (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
|
1929 |
69298
ba3b5c60823e
(mh-index-update-single-msg): Fix a bug in the
Satyaki Das <satyaki@theforce.stanford.edu>
parents:
68779
diff
changeset
|
1930 |
68163
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1931 (provide 'mh-search) |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1932 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1933 ;; Local Variables: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1934 ;; 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
|
1935 ;; 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
|
1936 ;; End: |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1937 |
3b7532a82079
* mh-search.el: New file containing contents of mh-index.el and
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1938 ;; 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
|
1939 ;;; mh-search ends here |