-;;; mh-pick --- make a search pattern and search for a message in mh-e
-;; Time-stamp: <95/08/19 16:45:16 gildea>
+;;; mh-pick.el --- make a search pattern and search for a message in mh-e
+;; Time-stamp: <2001-12-20 18:55:31 pavel>
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
-;; This file is part of mh-e, part of GNU Emacs.
+;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;;; Change Log:
-;; $Id: mh-pick.el,v 1.4 1995/11/03 02:30:09 kwzh Exp erik $
+;; $Id: mh-pick.el,v 1.6 2001/07/15 19:53:53 pj Exp $
;;; Code:
;; Return the next piece of a pick argument that can be extracted from the
;; BUFFER.
;; Return a list like ("--fieldname" "pattern") or ("-search" "bodypat")
- ;; or NIL if no pieces remain.
+ ;; or nil if no pieces remain.
(set-buffer buffer)
(let ((case-fold-search t))
(cond ((eobp)
(define-key mh-pick-mode-map "\C-c\C-fr" '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)
+
+;;; mh-pick.el ends here