Gecko [ 122.154.134.11 ]

Name	Size	Permission
mh-acros.el	12.65 KB	-rw-r--r--
mh-alias.elc	17.61 KB	-rw-r--r--
mh-buffers.elc	2.74 KB	-rw-r--r--
mh-comp.elc	33.6 KB	-rw-r--r--
mh-compat.el	12.07 KB	-rw-r--r--
mh-e.elc	113.81 KB	-rw-r--r--
mh-folder.elc	61.68 KB	-rw-r--r--
mh-funcs.elc	12.23 KB	-rw-r--r--
mh-gnus.el	6.07 KB	-rw-r--r--
mh-identity.elc	7.9 KB	-rw-r--r--
mh-inc.elc	2.11 KB	-rw-r--r--
mh-junk.elc	15.3 KB	-rw-r--r--
mh-letter.elc	27.93 KB	-rw-r--r--
mh-limit.elc	10.43 KB	-rw-r--r--
mh-loaddefs.el	103.32 KB	-rw-r--r--
mh-mime.elc	55.16 KB	-rw-r--r--
mh-print.elc	8.59 KB	-rw-r--r--
mh-scan.elc	16.45 KB	-rw-r--r--
mh-search.elc	59.54 KB	-rw-r--r--
mh-seq.elc	37.48 KB	-rw-r--r--
mh-show.elc	130.77 KB	-rw-r--r--
mh-speed.elc	16.67 KB	-rw-r--r--
mh-thread.elc	43.78 KB	-rw-r--r--
mh-tool-bar.elc	26.7 KB	-rw-r--r--
mh-utils.elc	28.26 KB	-rw-r--r--
mh-xface.elc	14 KB	-rw-r--r--

Code Editor : mh-inc.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:26 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mh-e/mh-inc.el
;;; in Emacs version 23.1.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 'mh-e)
#@35 Help text for `mh-inc-spool-map'.
(defvar mh-inc-spool-map-help nil (#$ . 624))
(define-key mh-inc-spool-map "?" '(lambda nil (interactive) (if mh-inc-spool-map-help (mh-help mh-inc-spool-map-help) (mh-ephem-message "There are no keys defined yet; customize `mh-inc-spool-list'"))))
#@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 (#$ . 913)])
(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=#:--cl-var-- make-symbol "folder" "spool" intern "mh-inc-spool-" lambda nil format "Inc spool file %s into folder %s." (interactive) mh-inc-folder concat "+"] 11 (#$ . 1337)])
#@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 (#$ . 1764)])
(provide 'mh-inc)

${this.title}

Code Editor : mh-inc.elc