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