/[emacs]/emacs/lisp/mail/mh-pick.el
ViewVC logotype

Diff of /emacs/lisp/mail/mh-pick.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pj, Sun Jul 15 19:53:53 2001 UTC revision 1.7 by pj, Thu Dec 20 18:24:24 2001 UTC
# Line 1  Line 1 
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    
# Line 154  Add the messages found to the sequence n Line 154  Add the messages found to the sequence n
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)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26