Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
mh-e /
Delete
Unzip
Name
Size
Permission
Date
Action
mh-acros.el
12.51
KB
-rw-r--r--
2013-01-01 15:37
mh-alias.elc
18.13
KB
-rw-r--r--
2023-06-07 04:11
mh-buffers.elc
1.75
KB
-rw-r--r--
2023-06-07 04:11
mh-comp.elc
33.48
KB
-rw-r--r--
2023-06-07 04:11
mh-compat.el
12.6
KB
-rw-r--r--
2013-01-01 15:37
mh-e.elc
111.98
KB
-rw-r--r--
2023-06-07 04:11
mh-folder.elc
62.34
KB
-rw-r--r--
2023-06-07 04:11
mh-funcs.elc
12.59
KB
-rw-r--r--
2023-06-07 04:11
mh-gnus.el
6.01
KB
-rw-r--r--
2013-01-01 15:37
mh-identity.elc
7.81
KB
-rw-r--r--
2023-06-07 04:11
mh-inc.elc
2.04
KB
-rw-r--r--
2023-06-07 04:11
mh-junk.elc
15.12
KB
-rw-r--r--
2023-06-07 04:11
mh-letter.elc
28.79
KB
-rw-r--r--
2023-06-07 04:11
mh-limit.elc
10.39
KB
-rw-r--r--
2023-06-07 04:11
mh-loaddefs.el
103.35
KB
-rw-r--r--
2023-06-07 03:59
mh-mime.elc
55.16
KB
-rw-r--r--
2023-06-07 04:11
mh-print.elc
8.54
KB
-rw-r--r--
2023-06-07 04:11
mh-scan.elc
16.41
KB
-rw-r--r--
2023-06-07 04:11
mh-search.elc
58.98
KB
-rw-r--r--
2023-06-07 04:11
mh-seq.elc
37.53
KB
-rw-r--r--
2023-06-07 04:11
mh-show.elc
197.17
KB
-rw-r--r--
2023-06-07 04:11
mh-speed.elc
15.75
KB
-rw-r--r--
2023-06-07 04:11
mh-thread.elc
43.96
KB
-rw-r--r--
2023-06-07 04:11
mh-tool-bar.elc
26.55
KB
-rw-r--r--
2023-06-07 04:11
mh-utils.elc
27.35
KB
-rw-r--r--
2023-06-07 04:11
mh-xface.elc
13.57
KB
-rw-r--r--
2023-06-07 04:11
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:11:50 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mh-e/mh-xface.el ;;; in Emacs version 24.3.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\302\303\304\"\207" [require mh-e autoload message-fetch-field "message"] 3) #@73 Determine at run time what function should be called to display X-Face. (defvar mh-show-xface-function (byte-code "\301Y\203 \302\207\303\207" [emacs-major-version 21 mh-face-display-function ignore] 2) (#$ . 654)) (defvar mh-uncompface-executable (byte-code "\300\301!\205 \301\302!\207" [fboundp executable-find "uncompface"] 2)) #@17 Display X-Face. (defalias 'mh-show-xface #[nil "\205 \205 \n\204 \204 \f\205 \207" [window-system mh-show-use-xface-flag mh-decode-mime-flag mh-mhl-format-file mh-clean-message-header-flag mh-show-xface-function] 1 (#$ . 995)]) #@141 Display a Face, X-Face, or X-Image-URL header field. If more than one of these are present, then the first one found in this order is used. (defalias 'mh-face-display-function #[nil "\214eb\210\306\307d\310#\210e`}\210\310\311\312\310\"\311\313\310\"\311\314\310\"\315\211 \2030 \316 !\317\202S \n\203= \320\n!\321\202S \203F \303\202S \322 \211 @ A@) \205\214 eb\210\306\323d\310#\205\214 \303=\203o \324 !\210\202\213 \325\326!\203\213 \326\327\f \310\330\331\332\315\310#\333\334\332\315\310#&\335\"\210\315.\207" [case-fold-search face x-face url raw type re-search-forward "\n\n" t message-fetch-field "face" "x-face" "x-image-url" nil mh-face-to-png png mh-uncompface pbm mh-picon-get-image "^from:" mh-x-image-url-display fboundp insert-image create-image :foreground face-foreground mh-show-xface :background face-background " " #1=#:--cl-var--] 13 (#$ . 1240)]) #@43 Convert base64 encoded DATA to png image. (defalias 'mh-face-to-png #[(data) "\302\303!rq\210\304\216\305\306!\203 \306\307!\210 c\210\307\310\311\217\210\312 +\207" [#1=#:temp-buffer data generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fboundp set-buffer-multibyte nil (byte-code "\300ed\"\207" [base64-decode-region] 3) ((error)) buffer-string] 3 (#$ . 2136)]) #@51 Run DATA through `uncompface' to generate bitmap. (defalias 'mh-uncompface #[(data) "\303\304!rq\210\305\216\306\307!\203 \307\310!\210 c\210\n\205, \311ed\n\312\313%\314\232\205, \315 \210\316 +\207" [#1=#:temp-buffer data mh-uncompface-executable generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fboundp set-buffer-multibyte nil call-process-region t (t nil) 0 mh-icontopbm buffer-string] 6 (#$ . 2570)]) #@35 Elisp substitute for `icontopbm'. (defalias 'mh-icontopbm #[nil "eb\210d\301\302\303\304#\203% \212db\210\305\306\307!\310\"c\210\305\306\311!\310\"c\210)\202 e|\210eb\210\312c)\207" [end re-search-forward "0x\\(..\\)\\(..\\)," nil t string-to-number match-string 1 16 2 "P4\n48 48\n"] 4 (#$ . 3047)]) #@113 List of directories where picons reside. The directories are searched for in the order they appear in the list. (defvar mh-picon-directory-list '("~/.picons" "~/.picons/users" "~/.picons/usenix" "~/.picons/news" "~/.picons/domains" "~/.picons/misc" "/usr/share/picons/" "/usr/share/picons/users" "/usr/share/picons/usenix" "/usr/share/picons/news" "/usr/share/picons/domains" "/usr/share/picons/misc") (#$ . 3359)) #@35 List of directories to search in. (defvar mh-picon-existing-directory-list 'unset (#$ . 3780)) (defvar mh-picon-cache (make-hash-table :test 'equal)) (defvar mh-picon-image-types (byte-code "\303\304\211:\203 @\304\305\306\217\203 \nBA\211\202 \n\237+\207" [#:--cl-var-- type #:--cl-var-- (xpm xbm gif) nil (byte-code "\301\302!\205 \302!\207" [type fboundp image-type-available-p] 2) ((error))] 4)) (autoload 'message-tokenize-header "sendmail") #@51 Find the best possible match and return contents. (defalias 'mh-picon-get-image #[nil "\300\301\215\207" [--cl-block-mh-picon-get-image-- (byte-code "\306 \210\214\307\310\311\217\307\211\312\217@\211\205 \313\314 \"\205 \315\316 \"\227\211\205) \315\317 \"\227\320\321 \n# \322\f \" \n\205A \323\324\325\n\326\"\" \307 \203T \327\330 \"\210\202^ \204^ \327\330\307\"\210\331\332\215 \f !\333 \334 !!#. \207" [from-field from host user canonical-address mh-picon-cache mh-picon-set-directory-list nil (byte-code "\300\301\302!!@\207" [message-tokenize-header mh-get-header-field "from:"] 3) ((error)) ((error)) string-match "\\([^+]*\\)\\(+.*\\)?@\\(.*\\)" match-string 3 1 format "%s@%s" gethash delete "" split-string "\\." throw --cl-block-mh-picon-get-image-- --cl-block-loop-- (byte-code "\306 :\203r @ \306\211 \306\211 \f:\203j \f@\307\310\n $\311!\2037 \312\313\"\210\307\310\n $\311!\203M \312\313\"\210\307\310\n $\311!\203c \312\313\"\210\fA\211\202 - A\211\202 *\314D \306 :\203@ \306:\203@ \306 :\203\376 \315\n# \306\211 \306 :\203\364 @\307\316 # \311 !\203\326 \312\313 \"\210\307\317 # \311 !\203\353 \312\313 \"\210 A\211 \202\271 ,A\211\202\237 *A\211\202\216 *A\211\202~ *\306\207" [mh-picon-existing-directory-list #1=#:--cl-var-- dir mh-picon-image-types #2=#:--cl-var-- type nil format "%s/%s.%s" file-exists-p throw --cl-block-loop-- "unknown" mh-picon-generate-path "%s.%s" "%s/face.%s" file1 file2 file3 canonical-address user host #3=#:--cl-var-- u #4=#:--cl-var-- host-list x y #5=#:--cl-var-- z1 z2] 6) puthash mh-picon-file-contents cached-value host-list match #6=#:v #7=#:v] 6)] 2 (#$ . 4248)]) #@54 Update `mh-picon-existing-directory-list' if needed. (defalias 'mh-picon-set-directory-list #[nil "\305=\205* \306\211 \n:\203% \n@\307 !\203 \fB\nA\211\202 \f\237+\211\207" [mh-picon-existing-directory-list mh-picon-directory-list #1=#:--cl-var-- x #2=#:--cl-var-- unset nil file-directory-p] 3 (#$ . 6010)]) #@180 Generate the image file path. HOST-LIST is the parsed host address of the email address, USER the username and DIRECTORY is the directory relative to which the path is generated. (defalias 'mh-picon-generate-path #[(host-list user directory) "\306 \307\n:\203 \n@\310\311 #\nA\211\202 \310\312\f $+\207" [acc host-list #1=#:--cl-var-- elem directory user "" nil format "%s/%s" "%s/%s%s"] 6 (#$ . 6338)]) #@189 Return details about FILE. A list of consisting of a symbol for the type of the file and the file contents as a string is returned. If FILE is nil, then both elements of the list are nil. (defalias 'mh-picon-file-contents #[(file) ";\2031 \303\304!r q\210\305\216\306\307!\203 \307\310!\210\311\312\"\205& \313\314\315\"!\316!\210\n\317 ,D\207\310\211D\207" [file #1=#:temp-buffer type generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fboundp set-buffer-multibyte nil string-match ".*\\.\\(...\\)$" intern match-string 1 insert-file-contents-literally buffer-string] 4 (#$ . 6759)]) #@48 Function to use to scale image to proper size. (defvar mh-x-image-scaling-function (byte-code "\300\301!\203 \302\207\300\303!\203 \300\304!\203 \300\305!\203 \306\207\307\207" [executable-find "convert" mh-x-image-scale-with-convert "anytopnm" "pnmscale" "pnmtopng" mh-x-image-scale-with-pnm ignore] 2) (#$ . 7416)) #@69 Scale image in INPUT file and write to OUTPUT file using pnm tools. (defalias 'mh-x-image-scale-with-pnm #[(input output) "\303\304\305 #!\211\306\232?\205 \307 !)\207" [input output res shell-command-to-string format "anytopnm < %s | pnmscale -xysize 96 48 | pnmtopng > %s" "" delete-file] 6 (#$ . 7743)]) #@71 Scale image in INPUT file and write to OUTPUT file using ImageMagick. (defalias 'mh-x-image-scale-with-convert #[(input output) "\302\303\304\211\211\305\306 &\207" [input output call-process "convert" nil "-geometry" "96x48"] 9 (#$ . 8059)]) (defvar mh-wget-executable nil) (defvar mh-wget-choice (byte-code "\301\302!\211\203\n \303\207\301\304!\211\203 \305\207\301\306!\211\205 \307\207" [mh-wget-executable executable-find "wget" wget "fetch" fetch "curl" curl] 2)) (defvar mh-wget-option (byte-code "\301\302\"A\207" [mh-wget-choice assoc ((curl . "-o") (fetch . "-o") (wget . "-O"))] 3)) (defvar mh-x-image-temp-file nil) (defvar mh-x-image-url nil) (defvar mh-x-image-marker nil) (defvar mh-x-image-url-cache-file nil) #@102 Display image from location URL. If the URL isn't present in the cache then it is fetched with wget. (defalias 'mh-x-image-url-display #[(url) "\306!\307 !\310 `\311\223\312\304!\210 \313!?\206} \n\314=\203( \315 \"\202} ?\206} \316=\206} \n\317=\206} \204F \311\211\223\202} \n\320=\203Z \321 \311\"\210\322 \323$\202} \324=\203q \325\326\327\"!\204q \321 \317\"\202} \n\311=\205} \322 \323$+\207" [url cache-filename state marker mh-x-image-marker mh-wget-executable mh-x-image-url-cache-canonicalize mh-x-image-get-download-state make-marker nil make-local-variable mh-x-image-url-sane-p ok mh-x-image-display ignore never try-again mh-x-image-set-download-state mh-x-image-url-fetch-image mh-x-image-scale-and-display ask y-or-n-p format "Fetch %s? " mh-x-image-scaling-function mh-fetch-x-image-url] 5 (#$ . 8801)]) #@48 Directory where X-Image-URL images are cached. (defvar mh-x-image-cache-directory nil (#$ . 9648)) #@114 Set the DIRECTORY where X-Image-URL images are cached. This is only done if `mh-x-image-cache-directory' is nil. (defalias 'mh-set-x-image-cache-directory #[(directory) "?\205 \211\207" [mh-x-image-cache-directory directory] 2 (#$ . 9754)]) #@405 Canonicalize URL. Replace the ?/ character with a ?! character and append .png. Also replaces special characters with `mh-url-hexify-string' since not all characters, such as :, are valid within Windows filenames. In addition, replaces * with %2a. See URL `http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iitemnamelimits/GetValidCharacters.asp'. (defalias 'mh-x-image-url-cache-canonicalize #[(url) "\303\304\305\306\307\310\311\312!r q\210\313\216\nc\210\314\315\316\"\210\317 +!##\207" [mh-x-image-cache-directory #1=#:temp-buffer url format "%s/%s.png" mh-replace-regexp-in-string "*" "%2a" mh-url-hexify-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mh-replace-string "/" "!" buffer-string] 10 (#$ . 10006)]) #@58 Check the state of FILE by following any symbolic links. (defalias 'mh-x-image-get-download-state #[(file) "\302!\204 \303\304\305\211\211%\210\306 !\203 \307\310\311 !!!\207\302 !\204$ \305\207\312\207" [mh-x-image-cache-directory file file-exists-p call-process "mkdir" nil file-symlink-p intern file-name-nondirectory file-chase-links ok] 6 (#$ . 10856)]) #@42 Setup a symbolic link from FILE to DATA. (defalias 'mh-x-image-set-download-state #[(file data) "\203\f \302\303! \304#\207\305 !\207" [data file make-symbolic-link symbol-name t delete-file] 4 (#$ . 11225)]) #@37 Check if URL is something sensible. (defalias 'mh-x-image-url-sane-p #[(url) "G\211\302W\203 \303\202% \304\302O\305\232\204 \303\202% \306V\203$ \303\202% \307)\207" [url len 5 nil 0 "http:" 100 t] 4 (#$ . 11442)]) #@26 Display IMAGE at MARKER. (defalias 'mh-x-image-display #[(image marker) "r\305!q\210\306\307 \310\216\311 !\2051 \312 !?\2051 \f=\2051 b\210\313\314!\2030 \314\315 \316\"!\210\317,\207" [marker buffer-modified-flag inhibit-read-only image mh-x-image-marker marker-buffer t buffer-modified-p ((set-buffer-modified-p buffer-modified-flag)) file-readable-p file-symlink-p fboundp insert-image create-image png nil] 4 (#$ . 11670)]) #@230 Fetch and display the image specified by URL. After the image is fetched, it is stored in CACHE-FILE. It will be displayed in a buffer and position specified by MARKER. The actual display is carried out by the SENTINEL function. (defalias 'mh-x-image-url-fetch-image #[(url cache-file marker sentinel) "\203G \306\307 !!\310\311!\203 \311\312!\206 \313\314\315!!r q\210\316\305!\210\f\316\317!\210\316\320!\210\n)\321\322\323 \n&\"*\207\324\f\325\"\207" [mh-wget-executable mh-temp-fetch-buffer filename buffer cache-file mh-x-image-url-cache-file get-buffer-create generate-new-buffer-name fboundp make-temp-file "mhe-fetch" expand-file-name make-temp-name "~/mhe-fetch" make-local-variable mh-x-image-marker mh-x-image-temp-file set-process-sentinel start-process "*mh-x-image-url-fetch*" mh-x-image-set-download-state try-again marker mh-wget-option url sentinel] 8 (#$ . 12111)]) #@91 When the wget PROCESS terminates scale and display image. The argument CHANGE is ignored. (defalias 'mh-x-image-scale-and-display #[(process change) "\306!\307=\205R \310\211\211\211 r\311!\211q\210 )\312=\2034 \313\314!\210\315\n\316\"\210\202M \n\"\210\317\n!\203H \320\n\f\"\210\202M \315\n\316\"\210\310\321\322\217,\207" [process wget-buffer cache-filename temp-file marker mh-x-image-marker process-status exit nil process-buffer ignore message "The \"convert\" program is needed to display X-Image-URL" mh-x-image-set-download-state try-again file-exists-p mh-x-image-display (byte-code "\304\211\223\210\305 !\210\306\n!\210\307 !\207" [marker process wget-buffer temp-file nil delete-process kill-buffer delete-file] 3) ((error)) mh-x-image-url-cache-file mh-x-image-temp-file mh-x-image-scaling-function] 4 (#$ . 13021)]) (provide 'mh-xface)