;ELC   
;;; Compiled by rms@psilocin.ai.mit.edu on Sat Aug  8 17:48:50 1998
;;; from file /gd/gnu/emacs/lisp/mail/rmailmsc.el
;;; in Emacs version 20.2.98.3
;;; with bytecomp version 2.48
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rmailmsc.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@184 Set the inbox list of the current RMAIL file to FILE-NAME.
You can specify one file name, or several names separated by commas.
If FILE-NAME is empty, remove any existing inbox list.
(defalias 'set-rmail-inbox-list #[(file-name) "\306=\204\n \307\310!\210\212\311 \312\211\203! \313\314\315\316\n\317#\320Q!\203O \312~\210eb\210\321\322!\210\323\324\312\325#\210\326y\210\327\330!\203B `\331y\210`|\210\f\332\230\204N \333\334\f\335#\210)+\311 \336!\207" [major-mode standard-output names buffer-read-only file-name rmail-inbox-list rmail-mode error "set-rmail-inbox-list works only for an Rmail file" rmail-parse-file-inboxes nil y-or-n-p "Replace " mapconcat identity ", " "? " search-forward "\n" re-search-backward "^Mail" t 0 looking-at "Mail:" 1 "" insert-before-markers "Mail: " "\n" rmail-show-message rmail-current-message] 7 (#$ . 610) "sSet mailbox list to (comma-separated list of filenames): "])