- (setq mh-inc-spool-map-help (concat mh-inc-spool-map-help "["
- (char-to-string key)
- "] inc " folder " folder\n"))))
-
-;; Avoid compiler warning
-(defvar mh-inc-spool-list)
-
-(defun mh-inc-spool-make ()
- "Make all commands and defines keys for contents of `mh-inc-spool-list'."
- (when mh-inc-spool-list
- (setq mh-inc-spool-map-help nil)
- (loop for elem in mh-inc-spool-list
- do (let ((spool (nth 0 elem))
- (folder (nth 1 elem))
- (key (nth 2 elem)))
- (progn
- (mh-inc-spool-generator folder spool)
- (mh-inc-spool-def-key key folder))))))
-
-;;;###mh-autoload
-(defun mh-inc-spool-list-set (symbol value)
- "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'."
- (set-default symbol value)
- (mh-inc-spool-make))
+ (add-to-list 'mh-inc-spool-map-help
+ (concat "[" (char-to-string key) "] inc " folder " folder\n")
+ t)))