JezK

Edit File: mh-inc.elc

;ELC���
;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:50 2026
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mh-e/mh-inc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(require 'mh-e)
#@35 Help text for `mh-inc-spool-map'.
(defvar mh-inc-spool-map-help nil (#$ . 570))
(define-key mh-inc-spool-map "?" #[nil "\203�\301!\207\302\303!\207" [mh-inc-spool-map-help mh-help mh-ephem-message "There are no keys defined yet; customize `mh-inc-spool-list'"] 2 nil nil])
#@73 Make all commands and defines keys for contents of `mh-inc-spool-list'.
(defalias 'mh-inc-spool-make #[nil "\306	\2053�	\306\n:\2031�\n@\211@A@\3078\n\310
\n\"\210\311\f
\"\210+\nA\211\202�*\306\207" [mh-inc-spool-map-help mh-inc-spool-list #1=#:--cl-var-- elem key folder nil 2 mh-inc-spool-generator mh-inc-spool-def-key spool] 5 (#$ . 852)])
(defalias 'mh-inc-spool-make-no-autoload 'mh-inc-spool-make)
#@54 Create a command to inc into FOLDER from SPOOL file.
(defalias 'mh-inc-spool-generator #[(folder spool) "\305\306!\305\307!\211\nL\210L\210\310\311\nP!\211\312\313\314\315\n#\316\317\320\321	EE\257M+\207" [spool1 folder1 folder spool #1=#:v make-symbol "folder" "spool" intern "mh-inc-spool-" lambda nil format "Inc spool file %s into folder %s." (interactive) mh-inc-folder concat "+"] 11 (#$ . 1276)])
#@75 Define a KEY in `mh-inc-spool-map' to inc FOLDER and collect help string.
(defalias 'mh-inc-spool-def-key #[(key folder) "\303U?\205!�\304	\305\306\"\307\310\nP!#\210\311\312\313\314!\315\n\316\260\317#\207" [key mh-inc-spool-map folder 0 define-key format "%c" intern "mh-inc-spool-" add-to-list mh-inc-spool-map-help "[" char-to-string "] inc " " folder\n" t] 7 (#$ . 1694)])
(provide 'mh-inc)