| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/mh-e/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'mh-e) #@35 Help text for `mh-inc-spool-map'. (defvar mh-inc-spool-map-help nil (#$ . 100)) (define-key mh-inc-spool-map "?" #[0 "\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 #[0 "\302 \205. \302:\203+ @\262\211@A@\3038\304\"\210\305\"\266A\262\202 \302\266\202\207" [mh-inc-spool-map-help mh-inc-spool-list nil 2 mh-inc-spool-generator mh-inc-spool-def-key] 8 (#$ . 380)]) (defalias 'mh-inc-spool-make-no-autoload 'mh-inc-spool-make) #@73 Create a command to inc into FOLDER from SPOOL file. (fn FOLDER SPOOL) (defalias 'mh-inc-spool-generator #[514 "\300\301\302P!K\303\304\305\306\307\"\310\"\311\312\313 #\314&\"\207" [defalias intern "mh-inc-spool-" make-byte-code 0 "\302\301\303\300P\"\207" vconcat vector [mh-inc-folder "+"] 4 format "Inc spool file %s into folder %s." nil] 13 (#$ . 762)]) #@92 Define a KEY in `mh-inc-spool-map' to inc FOLDER and collect help string. (fn KEY FOLDER) (defalias 'mh-inc-spool-def-key #[514 "\302U?\2050 \303\304\305\"\306\307P!#\210\310\311!\312\313\260\211 \235\203' \202. \314 C\"\211\262\207" [mh-inc-spool-map mh-inc-spool-map-help 0 define-key format "%c" intern "mh-inc-spool-" "[" char-to-string "] inc " " folder\n" append] 8 (#$ . 1137)]) (provide 'mh-inc)