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> |
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))) |