%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.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 (#$ . 426)) (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 (#$ . 708)]) (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 (#$ . 1132)]) #@75 Define a KEY in `mh-inc-spool-map' to inc FOLDER and collect help string. (defalias 'mh-inc-spool-def-key #[(key folder) "\305U?\2050 \306 \307\310\"\311\312\nP!#\210\313\314!\315\n\316\260\211\f\235\203( \f\202/ \317\fC\"\211)\207" [key mh-inc-spool-map folder #1=#:x mh-inc-spool-map-help 0 define-key format "%c" intern "mh-inc-spool-" "[" char-to-string "] inc " " folder\n" append] 7 (#$ . 1550)]) (provide 'mh-inc)