1 ;;; mew-virtual.el --- Virtual mode for Mew
3 ;; Author: Kazu Yamamoto <Kazu@Mew.org>
4 ;; Created: Oct 2, 1996
5 ;; Revised: Aug 30, 1999
9 (defconst mew-virtual-version "mew-virtual.el version 0.18")
17 (defun mew-virtual-mode ()
18 "Mew Virtual mode:: major mode to visualize messages in a virtual folder.
19 For more information, see the document of 'mew-summary-mode'."
21 (setq major-mode 'mew-virtual-mode)
22 (setq mode-name "Virtual")
23 (setq mode-line-buffer-identification mew-mode-line-id)
24 (use-local-map mew-summary-mode-map)
25 (setq buffer-read-only t)
26 (setq truncate-lines t)
27 (setq selective-display t)
28 (setq selective-display-ellipses nil)
29 (mew-summary-setup-mode-line)
30 (mew-summary-setup-menu)
31 (mew-virtual-highlight-setup)
32 (mew-highlight-cursor-line)
33 (run-hooks 'mew-virtual-mode-hook))
35 (defun mew-virtual-folder-message ()
36 "Display the real folder of this message."
38 (looking-at "^ *\\([0-9]+\\).*\r\\(.*\\)$")
39 (message "%s" (mew-match 2)))
41 (defun mew-summary-virtual ()
42 "Create one Virtual mode with inputed pattern."
47 (mew-input-string "Virtual folder name %s(%s): "
50 (folders (mew-input-folders (buffer-name)))
51 (grep (mew-input-pick-pattern)))
52 (mew-folder-setup folder)
53 (mew-buffers-setup folder)
54 (mew-summary-scan-body mew-prog-imls
62 (provide 'mew-virtual)
66 ;; Copyright (C) 1996, 1997, 1998, 1999 Mew developing team.
67 ;; All rights reserved.
69 ;; Redistribution and use in source and binary forms, with or without
70 ;; modification, are permitted provided that the following conditions
73 ;; 1. Redistributions of source code must retain the above copyright
74 ;; notice, this list of conditions and the following disclaimer.
75 ;; 2. Redistributions in binary form must reproduce the above copyright
76 ;; notice, this list of conditions and the following disclaimer in the
77 ;; documentation and/or other materials provided with the distribution.
78 ;; 3. Neither the name of the team nor the names of its contributors
79 ;; may be used to endorse or promote products derived from this software
80 ;; without specific prior written permission.
82 ;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS'' AND
83 ;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
84 ;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
85 ;; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE TEAM OR CONTRIBUTORS BE
86 ;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
87 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
88 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
89 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
90 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
91 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
92 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
94 ;;; mew-virtual.el ends here