Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
mh-e /
[ HOME SHELL ]
Name
Size
Permission
Action
mh-acros.el
10.99
KB
-rw-r--r--
mh-alias.elc
18.18
KB
-rw-r--r--
mh-buffers.elc
1.6
KB
-rw-r--r--
mh-comp.elc
37.95
KB
-rw-r--r--
mh-compat.elc
11.16
KB
-rw-r--r--
mh-e.elc
115.38
KB
-rw-r--r--
mh-folder.elc
63.95
KB
-rw-r--r--
mh-funcs.elc
12.52
KB
-rw-r--r--
mh-gnus.elc
4.31
KB
-rw-r--r--
mh-identity.elc
8.23
KB
-rw-r--r--
mh-inc.elc
1.93
KB
-rw-r--r--
mh-junk.elc
18.5
KB
-rw-r--r--
mh-letter.elc
28.46
KB
-rw-r--r--
mh-limit.elc
10.22
KB
-rw-r--r--
mh-loaddefs.el
96.35
KB
-rw-r--r--
mh-mime.elc
59.66
KB
-rw-r--r--
mh-print.elc
8.47
KB
-rw-r--r--
mh-scan.elc
18.29
KB
-rw-r--r--
mh-search.elc
58.68
KB
-rw-r--r--
mh-seq.elc
37.52
KB
-rw-r--r--
mh-show.elc
102.1
KB
-rw-r--r--
mh-speed.elc
15.86
KB
-rw-r--r--
mh-thread.elc
64.89
KB
-rw-r--r--
mh-tool-bar.elc
26.55
KB
-rw-r--r--
mh-utils.elc
27.5
KB
-rw-r--r--
mh-xface.elc
13.15
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mh-print.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require mh-e mh-scan ps-print] 2) #@326 Specify how buffer's text color is printed. Valid values are: nil - Do not print colors. t - Print colors. black-white - Print colors on black/white printer. See also `ps-black-white-faces'. Any other value is treated as t. This variable is initialized from `ps-print-color-p'. (defvar mh-ps-print-color-option ps-print-color-p (#$ . 497)) #@124 Function to use to spool a buffer. Sensible choices are the functions `ps-spool-buffer' and `ps-spool-buffer-with-faces'. (defvar mh-ps-print-func 'ps-spool-buffer-with-faces (#$ . 891)) #@795 Print RANGE\<mh-folder-mode-map>. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. This command will print inline text attachments but will not decrypt messages. However, when a message is displayed in an MH-Show buffer, then that buffer is used verbatim for printing with the caveat that only text attachments, if opened inline, are printed. Therefore, encrypted messages can be printed by showing and decrypting them first. MH-E uses the "ps-print" package to do the printing, so you can customize the printing further by going to the `ps-print' customization group. This command does not use the options `mh-lpr-command-format' or `mh-print-background-flag'. See also the commands \[mh-ps-print-toggle-color] and \[mh-ps-print-toggle-faces]. (defalias 'mh-ps-print-msg #[(range) "\301\302\"\207" [range mh-ps-print-range nil] 3 (#$ . 1086) (list (mh-interactive-range "Print"))]) #@135 Print RANGE to FILE. This is the function that actually does the work. If FILE is nil, then the messages are spooled to the printer. (defalias 'mh-ps-print-range #[(range file) "\247\203 \306\307\211#\203\355 \310\216\311 !\210)\312 \n #\210)\202\355 :\203f @\247\203f A\247\203f \212@b\210\313 \210`AX\203b m\204b \314\f!\203\\ \315\307!\316\216\311 !\210)\312 \n #\210)\317y\210\2029 )\202\355 \203u 9\203u \320!\202\202 ;\203\201 \321 \"\202\202 \322 \211 \323\211 \203\256 @\211 \324\307 #\210*A\211\204\221 *\212eb\210\313 \210`dX\203\354 m\204\354 \314\f!\203\346 \315\307! \325 \"\203\345 \326\216\311 !\210)\312 \n #\210))\317y\210\202\266 +\327 !\207" [range msg mh-note-printed mh-cmd-note mh-scan-valid-regexp mh-current-folder mh-goto-msg t #[nil "\300\207" [nil] 1] mh-ps-spool-msg mh-notate beginning-of-line looking-at mh-get-msg-num #[nil "\300\207" [nil] 1] 1 mh-seq-to-msgs mh-translate-range make-hash-table nil puthash gethash #[nil "\300\207" [nil] 1] ps-despool #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v file] 5 (#$ . 2026)]) #@12 Spool MSG. (defalias 'mh-ps-spool-msg #[(msg) "\306 \307 !\210\f\203 \310p!\210\311\216\312 \"\232?\205\" \313!* \314\216\212\2036 \315 \"\210)\316\203A \202B !,\207" [mh-current-folder folder mh-in-show-buffer-saved-window mh-show-buffer mh-bury-show-buffer-flag msg selected-window switch-to-buffer-other-window bury-buffer #[nil "\301!\207" [mh-in-show-buffer-saved-window select-window] 2] mh-msg-filename get-buffer-create #[nil "\205 \301!\207" [buffer kill-buffer] 2] mh-display-msg mh-ps-spool-buffer buffer-file-name mh-temp-buffer buffer] 3 (#$ . 3146)]) #@15 Spool BUFFER. (defalias 'mh-ps-spool-buffer #[(buffer) "rq\210 \306\307\310!\311Q\306\307\312!\311QD\313\306\307\314!\311QD ,\207" [buffer mh-ps-print-color-option ps-right-header ps-left-header ps-print-color-p mh-ps-print-func "(" mh-get-header-field "Subject:" ")" "From:" "/pagenumberstring load" "Date:"] 6 (#$ . 3742)]) #@803 Print RANGE to FILE\<mh-folder-mode-map>. Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. This command will print inline text attachments but will not decrypt messages. However, when a message is displayed in an MH-Show buffer, then that buffer is used verbatim for printing with the caveat that only text attachments, if opened inline, are printed. Therefore, encrypted messages can be printed by showing and decrypting them first. MH-E uses the "ps-print" package to do the printing, so you can customize the printing further by going to the `ps-print' customization group. This command does not use the options `mh-lpr-command-format' or `mh-print-background-flag'. See also the commands \[mh-ps-print-toggle-color] and \[mh-ps-print-toggle-faces]. (defalias 'mh-ps-print-msg-file #[(range file) "\302 \"\207" [range file mh-ps-print-range] 3 (#$ . 4080) (list (mh-interactive-range "Print") (mh-ps-print-preprint 1))]) #@94 Provide a better default file name for `ps-print-preprint'. Pass along the prefix ARG to it. (defalias 'mh-ps-print-preprint #[(arg) "\302\303\304\305 \306\"\"\307 !)\207" [buffer-file-name arg format "mh-%s" substring buffer-name 1 ps-print-preprint] 5 (#$ . 5060)]) #@158 Toggle whether printing is done with faces or not. When faces are enabled, the printed message will look very similar to the message in the MH-Show buffer. (defalias 'mh-ps-print-toggle-faces #[nil "\301=\203\f \302\303\304!\207\301\303\305!\207" [mh-ps-print-func ps-spool-buffer-with-faces ps-spool-buffer message "Printing without faces" "Printing with faces"] 2 (#$ . 5336) nil]) #@449 Toggle whether color is used in printing messages. Colors are emulated on black-and-white printers with shades of gray. This might produce illegible output, even if your screen colors only use shades of gray. If this is the case, try using this command to toggle between color, no color, and a black and white representation of the colors and see which works best. You change this setting permanently by customizing the option `ps-print-color-p'. (defalias 'mh-ps-print-toggle-color #[nil "\301=\203\f \302\303\304!\207\302=\203 \305\303\306!\207\301\303\307!\207" [mh-ps-print-color-option nil black-white message "Colors will be printed as black & white" t "Colors will be printed" "Colors will not be printed"] 2 (#$ . 5731) nil]) #@341 Print RANGE the old fashioned way\<mh-folder-mode-map>. The message is formatted with "mhl" (see option `mh-mhl-format-file') and printed with the "lpr" command (see option `mh-lpr-command-format'). Check the documentation of `mh-interactive-range' to see how RANGE is read in interactive use. Consider using \[mh-ps-print-msg] instead. (defalias 'mh-print-msg #[(range) "\306\307!\210\310 \247\203) \311 \312\211#\203\375 \313\n\314\312#\210\315\310 \f#\210\nB)\202\375 :\203r @\247\203r A\247\203r \212 @b\210\316 \210` AX\203n m\204n \317 !\203h \320\312!\313\n\314\312#\210\315\310 \f#\210\nB)\321y\210\202B )\202\375 \203\201 9\203\201 \322 !\202\217 ;\203\216 \323, \"\202\217 \324 -\211 .\310\211 /\203\273 /@\211 0- 1\3250\3121#\210*/A\211/\204\236 *\212eb\210\316 \210`dX\203\374 m\204\374 \317 !\203\366 \320\312! 2\3262-\"\203\365 2\313\n\314\312#\210\315\310 \f#\210\nB))\321y\210\202\303 +\237\211G\321V\203Y\327\330\331\332!!\333# 3\3344 <\203$\334\335,3#\202/ 9\205/\334\336, #\" 5\334\33735# 67\203L\3408\310\3416$\210\202X\3428\310\211\211\3416&\210+\310\211 /\203\275/@\334\343\344\3459\":\203z\334\346:\"\202{\347\350\n!$ ;\3344\334\351,\n#\" 5\334\352;5# <7\203\247\3408\310\341<$\210\202\263\3428\310\211\211\341<&\210+/A\211/\204b+\306\353!\207" [msgs range msg mh-note-printed mh-cmd-note mh-scan-valid-regexp message "Printing..." nil mh-goto-msg t mh-add-msgs-to-seq printed mh-notate beginning-of-line looking-at mh-get-msg-num 1 mh-seq-to-msgs mh-translate-range make-hash-table puthash gethash mapconcat identity mh-list-to-string mh-coalesce-msg-list " " format "Folder: %s, Messages: %s" "Folder: %s, Sequence: %s" "scan %s | %s" mh-exec-cmd-daemon "-c" call-process "%s %s %s" expand-file-name "mhl" " -form %s" "" mh-msg-filename "%s/%s" "%s | %s" "Printing...done" mh-current-folder #1=#:seq-hash-table #2=#:msgs --dolist-tail-- #3=#:v #4=#:v v msgs-string mh-lpr-command-format lpr-command scan-command mh-print-background-flag shell-file-name mh-lib-progs mh-mhl-format-file mhl-command print-command] 8 (#$ . 6479) (list (mh-interactive-range "Print"))]) (provide 'mh-print)
Close
