Mercurial > emacs

comparison lisp/mail/mh-pick.el @ 42206:0f4506820432

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc fix.
author Pavel Janík <Pavel@Janik.cz>
date Thu, 20 Dec 2001 19:01:00 +0000
parents 67b464da13ec
children 2568d5a27317
comparison
equal deleted inserted replaced
42205:7308bbc423d5 42206:0f4506820432
1 ;;; mh-pick.el --- make a search pattern and search for a message in mh-e 1 ;;; mh-pick.el --- make a search pattern and search for a message in mh-e
2 ;; Time-stamp: <2001-07-14 13:09:34 pavel> 2 ;; Time-stamp: <2001-12-20 18:55:31 pavel>
3 3
4 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. 4 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
5 5
6 ;; This file is part of GNU Emacs. 6 ;; This file is part of GNU Emacs.
7 7
24 24
25 ;; Internal support for mh-e package. 25 ;; Internal support for mh-e package.
26 26
27 ;;; Change Log: 27 ;;; Change Log:
28 28
29 ;; $Id: mh-pick.el,v 1.5 1996/01/14 07:34:30 erik Exp $ 29 ;; $Id: mh-pick.el,v 1.6 2001/07/15 19:53:53 pj Exp $
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (provide 'mh-pick) 33 (provide 'mh-pick)
34 (require 'mh-e) 34 (require 'mh-e)
152 152
153 (defun mh-next-pick-field (buffer) 153 (defun mh-next-pick-field (buffer)
154 ;; Return the next piece of a pick argument that can be extracted from the 154 ;; Return the next piece of a pick argument that can be extracted from the
155 ;; BUFFER. 155 ;; BUFFER.
156 ;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat") 156 ;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat")
157 ;; or NIL if no pieces remain. 157 ;; or nil if no pieces remain.
158 (set-buffer buffer) 158 (set-buffer buffer)
159 (let ((case-fold-search t)) 159 (let ((case-fold-search t))
160 (cond ((eobp) 160 (cond ((eobp)
161 nil) 161 nil)
162 ((re-search-forward "^\\([a-z][^: \t\n]*\\):[ \t]*\\([a-z0-9].*\\)$" nil t) 162 ((re-search-forward "^\\([a-z][^: \t\n]*\\):[ \t]*\\([a-z0-9].*\\)$" nil t)