Mercurial > emacs
comparison lisp/mail/mh-pick.el @ 42206:0f4506820432
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) |