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-xface.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-xface.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-xface.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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) (#$ . 714))
(byte-code "\301B\302\301!\204�\303\301\304\305!\205�\305\306!\"\210\301\207" [current-load-list mh-uncompface-executable default-boundp set-default fboundp executable-find "uncompface"] 4)
#@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 (#$ . 1131)])
#@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 (#$ . 1377)])
#@43 Convert base64 encoded DATA to png image.
(defalias 'mh-face-to-png #[(data) "\302\303!rq\210\304\216\305\306!\210	c\210\306\307\310\217\210\311 +\207" [#1=#:temp-buffer data generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-buffer-multibyte nil (byte-code "\300ed\"\207" [base64-decode-region] 3) ((error)) buffer-string] 3 (#$ . 2273)])
#@51 Run DATA through `uncompface' to generate bitmap.
(defalias 'mh-uncompface #[(data) "\303\304!rq\210\305\216\306\307!\210	c\210\n\205&�\310ed\n\311\312%\313\232\205&�\314 \210\315 +\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)) set-buffer-multibyte nil call-process-region t (t nil) 0 mh-icontopbm buffer-string] 6 (#$ . 2684)])
#@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 (#$ . 3138)])
#@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") (#$ . 3450))
#@35 List of directories to search in.
(defvar mh-picon-existing-directory-list 'unset (#$ . 3871))
(byte-code "\304B\305\304!\204�\306\304\307\310\311\"\"\210\312B\305\312!\204C�\306\312\313\314\211	:\203>�	@\314\315\316\217\2037�\nB	A\211\202%�\237+\"\210\317\320\321\"\207" [current-load-list #:--cl-var-- type #:--cl-var-- mh-picon-cache default-boundp set-default make-hash-table :test equal mh-picon-image-types (xpm xbm gif) nil (byte-code "\301\302!\205	�\302!\207" [type fboundp image-type-available-p] 2) ((error)) autoload message-tokenize-header "sendmail"] 6)
#@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 \"!#.\f\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-$quote\ 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\"\210A\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-$quote\ 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] 8) mh-picon-file-contents puthash cached-value host-list match #6=#:--cl-x-- #7=#:--cl-h-- #8=#:--cl-store--] 6)] 2 (#$ . 4459)])
#@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 (#$ . 6282)])
#@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 (#$ . 6610)])
#@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) ";\203+�\303\304!r	q\210\305\216\306\307!\210\310\311\"\205 �\312\313\314\"!\315!\210\n\316 ,D\207\307\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)) set-buffer-multibyte nil string-match ".*\\.\$...\$$" intern match-string 1 insert-file-contents-literally buffer-string] 4 (#$ . 7031)])
#@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) (#$ . 7665))
#@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 (#$ . 7992)])
#@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 (#$ . 8308)])
(byte-code "\301B\303\301!\204�\304\301\305\"\210\302B\303\302!\204>�\304\302\306\307!\211\203'�\310\202<�\306\311!\211\2033�\312\202<�\306\313!\211\205<�\314\"\210\315B\303\315!\204Q�\304\315\316\n\317\"A\"\210\320B\303\320!\204`�\304\320\305\"\210\321B\303\321!\204o�\304\321\305\"\210\322B\303\322!\204~�\304\322\305\"\210\323B\303\323!\204\215�\304\323\305\"\210\305\207" [current-load-list mh-wget-executable mh-wget-choice default-boundp set-default nil executable-find "wget" wget "fetch" fetch "curl" curl mh-wget-option assoc ((curl . "-o") (fetch . "-o") (wget . "-O")) mh-x-image-temp-file mh-x-image-url mh-x-image-marker mh-x-image-url-cache-file] 5)
#@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 (#$ . 9242)])
#@48 Directory where X-Image-URL images are cached.
(defvar mh-x-image-cache-directory nil (#$ . 10089))
#@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 (#$ . 10196)])
#@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 (#$ . 10449)])
#@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 (#$ . 11299)])
#@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 (#$ . 11668)])
#@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 (#$ . 11885)])
#@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 (#$ . 12113)])
#@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!!rq\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 (#$ . 12554)])
#@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\211r\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 (#$ . 13464)])
(provide 'mh-xface)

${this.title}

Code Editor : mh-xface.elc