1 |
;;; mh-pick.el --- make a search pattern and search for a message in mh-e |
;;; 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> |
;; Time-stamp: <2001-12-20 18:55:31 pavel> |
3 |
|
|
4 |
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc. |
5 |
|
|
154 |
;; Return the next piece of a pick argument that can be extracted from the |
;; Return the next piece of a pick argument that can be extracted from the |
155 |
;; BUFFER. |
;; BUFFER. |
156 |
;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat") |
;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat") |
157 |
;; or NIL if no pieces remain. |
;; or nil if no pieces remain. |
158 |
(set-buffer buffer) |
(set-buffer buffer) |
159 |
(let ((case-fold-search t)) |
(let ((case-fold-search t)) |
160 |
(cond ((eobp) |
(cond ((eobp) |