;ELC   
;;; Compiled by jmorzins@kamp-krusty.mit.edu on Mon Oct  3 10:37:22 2005
;;; from file /afs/sipb/contrib/emacs/packages/mh-e-7.82/mh-inc.el
;;; in Emacs version 21.4.1
;;; with bytecomp version 2.85.4.1
;;; 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 "`mh-inc.el' was compiled for Emacs 19.29 or later"))

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


(require 'cl)
#@42 Keymap for MH-E's mh-inc-spool commands.
(defvar mh-inc-spool-map (make-sparse-keymap) (#$ . 644))
#@38 Help text to for `mh-inc-spool-map'.
(defvar mh-inc-spool-map-help nil (#$ . 749))
(define-key mh-inc-spool-map "?" '(lambda nil (interactive) (if mh-inc-spool-map-help (let ((mh-help-messages (list (list nil mh-inc-spool-map-help)))) (mh-help)) (mh-ephem-message "There are no keys defined yet.  Customize `mh-inc-spool-list'"))))
#@54 Create a command to inc into FOLDER from SPOOL file.
(defalias 'mh-inc-spool-generator #[(folder spool) "\305\306!\305\307!\211\nL\210L\210\310\311\nP!\211\312\313\314\315\n#\316\317\320\321	EE\257M+\207" [spool1 folder1 folder spool #1=#:G2811 make-symbol "folder" "spool" intern "mh-inc-spool-" lambda nil format "Inc spool file %s into folder %s" (interactive) mh-inc-folder concat "+"] 11 (#$ . 1087)])
#@75 Define a KEY in `mh-inc-spool-map' to inc FOLDER and collect help string.
(defalias 'mh-inc-spool-def-key #[(key folder) "\304U?\205  \305	\306\307\"\310\311\nP!#\210\312\313!\314\n\315\260\211\207" [key mh-inc-spool-map folder mh-inc-spool-map-help 0 define-key format "%c" intern "mh-inc-spool-" "[" char-to-string "] inc " " folder\n"] 6 (#$ . 1508)])
#@73 Make all commands and defines keys for contents of `mh-inc-spool-list'.
(defalias 'mh-inc-spool-make #[nil "\2053 \306\306\n:\2031 \n@\211@A@\3078\n\310\n\"\210\311\f\"\210+\nA\211\202 *\306\207" [mh-inc-spool-list mh-inc-spool-map-help #1=#:G2813 elem key folder nil 2 mh-inc-spool-generator mh-inc-spool-def-key spool] 5 (#$ . 1875)])
#@176 Set-default SYMBOL to VALUE to update the `mh-inc-spool-list' variable.
Also rebuilds the user commands.
This is called after 'customize is used to alter `mh-inc-spool-list'.
(defalias 'mh-inc-spool-list-set #[(symbol value) "\302	\"\210\303 \207" [symbol value set-default mh-inc-spool-make] 3 (#$ . 2235)])
(provide 'mh-inc)