[Emacs-diffs] Changes to emacs/lisp/mail/mh-pick.el

[Pavel Janík]

Index: emacs/lisp/mail/mh-pick.el
diff -c emacs/lisp/mail/mh-pick.el:1.6 emacs/lisp/mail/mh-pick.el:1.7
*** emacs/lisp/mail/mh-pick.el:1.6      Sun Jul 15 15:53:53 2001
--- emacs/lisp/mail/mh-pick.el  Thu Dec 20 13:24:24 2001
***************
*** 1,5 ****
  ;;; mh-pick.el --- make a search pattern and search for a message in mh-e
! ;; Time-stamp: <2001-07-14 13:09:34 pavel>
  
  ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
  
--- 1,5 ----
  ;;; 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.
  
***************
*** 26,32 ****
  
  ;;; Change Log:
  
! ;; $Id: mh-pick.el,v 1.6 2001/07/15 19:53:53 pj Exp $
  
  ;;; Code:
  
--- 26,32 ----
  
  ;;; Change Log:
  
! ;; $Id: mh-pick.el,v 1.7 2001/12/20 18:24:24 pj Exp $
  
  ;;; Code:
  
***************
*** 154,160 ****
    ;; 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.
    (set-buffer buffer)
    (let ((case-fold-search t))
      (cond ((eobp)
--- 154,160 ----
    ;; 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.
    (set-buffer buffer)
    (let ((case-fold-search t))
      (cond ((eobp)