Mercurial > emacs
view lisp/mail/mh-pick.el @ 8863:b5a4f7db03c7
(Fforward_comment): Do increment from, when reaching
single-char comment end going forward.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 17 Sep 1994 19:49:03 +0000 |
parents | a1b8926f7ece |
children | c9c652970786 |
line wrap: on
line source
;;; mh-pick --- make a search pattern and search for a message in mh-e ;; Time-stamp: <93/08/22 22:56:53 gildea> ;; Copyright 1993 Free Software Foundation, Inc. ;; This file is part of mh-e. ;; mh-e is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; mh-e is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with mh-e; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;; Internal support for mh-e package. ;;; Code: (provide 'mh-pick) (require 'mh-e) (defvar mh-pick-mode-map (make-sparse-keymap) "Keymap for searching folder.") (defvar mh-pick-mode-hook nil "Invoked in `mh-pick-mode' on a new pattern.") (defvar mh-searching-folder nil "Folder this pick is searching.") (defun mh-search-folder (folder) "Search FOLDER for messages matching a pattern." (interactive (list (mh-prompt-for-folder "Search" mh-current-folder t))) (switch-to-buffer-other-window "pick-pattern") (if (or (zerop (buffer-size)) (not (y-or-n-p "Reuse pattern? "))) (mh-make-pick-template) (message "")) (setq mh-searching-folder folder)) (defun mh-make-pick-template () ;; Initialize the current buffer with a template for a pick pattern. (erase-buffer) (insert "From: \n" "To: \n" "Cc: \n" "Date: \n" "Subject: \n" "---------\n") (mh-pick-mode) (goto-char (point-min)) (end-of-line)) (put 'mh-pick-mode 'mode-class 'special) (defun mh-pick-mode () "Mode for creating search templates in mh-e.\\<mh-pick-mode-map> After each field name, enter the pattern to search for. To search the entire message, supply the pattern in the \"body\" of the template. When you have finished, type \\[mh-do-pick-search] to do the search. \\{mh-pick-mode-map} Turning on mh-pick-mode calls the value of the variable mh-pick-mode-hook if that value is non-nil." (interactive) (kill-all-local-variables) (make-local-variable 'mh-searching-folder) (use-local-map mh-pick-mode-map) (setq major-mode 'mh-pick-mode) (mh-set-mode-name "MH-Pick") (run-hooks 'mh-pick-mode-hook)) (defun mh-do-pick-search () "Find messages that match the qualifications in the current pattern buffer. Messages are searched for in the folder named in mh-searching-folder. Add messages found to the sequence named `search'." (interactive) (let ((pattern-buffer (buffer-name)) (searching-buffer mh-searching-folder) range msgs (pattern nil) (new-buffer nil)) (save-excursion (cond ((get-buffer searching-buffer) (set-buffer searching-buffer) (setq range (format "%d-%d" mh-first-msg-num mh-last-msg-num))) (t (mh-make-folder searching-buffer) (setq range "all") (setq new-buffer t)))) (message "Searching...") (goto-char (point-min)) (while (setq pattern (mh-next-pick-field pattern-buffer)) (setq msgs (mh-seq-from-command searching-buffer 'search (nconc (cons "pick" pattern) (list searching-buffer range "-sequence" "search" "-list")))) (setq range "search")) (message "Searching...done") (if new-buffer (mh-scan-folder searching-buffer msgs) (switch-to-buffer searching-buffer)) (delete-other-windows) (mh-notate-seq 'search ?% (1+ mh-cmd-note)))) (defun mh-seq-from-command (folder seq seq-command) ;; In FOLDER, make a sequence named SEQ by executing COMMAND. ;; COMMAND is a list. The first element is a program name ;; and the subsequent elements are its arguments, all strings. (let ((msg) (msgs ()) (case-fold-search t)) (save-excursion (save-window-excursion (if (eq 0 (apply 'mh-exec-cmd-quiet nil seq-command)) (while (setq msg (car (mh-read-msg-list))) (setq msgs (cons msg msgs)) (forward-line 1)))) (set-buffer folder) (setq msgs (nreverse msgs)) ; Put in ascending order (setq mh-seq-list (cons (mh-make-seq seq msgs) mh-seq-list)) msgs))) (defun mh-next-pick-field (buffer) ;; Return the next piece of a pick argument that can be extracted from the ;; BUFFER. Returns nil if no pieces remain. (set-buffer buffer) (let ((case-fold-search t)) (cond ((eobp) nil) ((re-search-forward "^\\([a-z][^: \t\n]*\\):[ \t]*\\([a-z0-9].*\\)$" nil t) (let* ((component (format "--%s" (downcase (buffer-substring (match-beginning 1) (match-end 1))))) (pat (buffer-substring (match-beginning 2) (match-end 2)))) (forward-line 1) (list component pat))) ((re-search-forward "^-*$" nil t) (forward-char 1) (let ((body (buffer-substring (point) (point-max)))) (if (and (> (length body) 0) (not (equal body "\n"))) (list "-search" body) nil))) (t nil)))) ;;; Build the pick-mode keymap: (define-key mh-pick-mode-map "\C-c\C-c" 'mh-do-pick-search) (define-key mh-pick-mode-map "\C-c\C-f\C-b" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-f\C-c" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-f\C-f" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-f\C-s" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-f\C-t" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-fb" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-fc" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-ff" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field) (define-key mh-pick-mode-map "\C-c\C-w" 'mh-check-whom)