/[emacs]/emacs/lisp/mh-e/mh-e.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-e.el

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

revision 1.15 by wohler, Wed Aug 25 05:57:29 2004 UTC revision 1.16 by wl, Fri Mar 25 08:21:31 2005 UTC
# Line 1  Line 1 
1  ;;; mh-e.el --- GNU Emacs interface to the MH mail system  ;;; mh-e.el --- GNU Emacs interface to the MH mail system
2    
3  ;; Copyright (C) 1985, 86, 87, 88, 90, 92, 93, 94, 95, 97, 1999,  ;; Copyright (C) 1985, 86, 87, 88, 90, 92, 93, 94, 95, 97, 1999,
4  ;;  2000, 01, 02, 03, 2004 Free Software Foundation, Inc.  ;;  2000, 01, 02, 03, 2004, 2005 Free Software Foundation, Inc.
5    
6  ;; Author: Bill Wohler <wohler@newt.com>  ;; Author: Bill Wohler <wohler@newt.com>
7  ;; Maintainer: Bill Wohler <wohler@newt.com>  ;; Maintainer: Bill Wohler <wohler@newt.com>
# Line 2306  If INTERNAL-FLAG is non-nil, then do not Line 2306  If INTERNAL-FLAG is non-nil, then do not
2306  (defun mh-define-sequence (seq msgs)  (defun mh-define-sequence (seq msgs)
2307    "Define the SEQ to contain the list of MSGS.    "Define the SEQ to contain the list of MSGS.
2308  Do not mark pseudo-sequences or empty sequences.  Do not mark pseudo-sequences or empty sequences.
2309  Signals an error if SEQ is an illegal name."  Signals an error if SEQ is an invalid name."
2310    (if (and msgs    (if (and msgs
2311             (mh-valid-seq-p seq)             (mh-valid-seq-p seq)
2312             (not (mh-folder-name-p seq)))             (not (mh-folder-name-p seq)))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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