Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:09:51 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-fun.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!\204
�\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\312\313\314\315\316\317\320\321\322\323&	\210\312\324\325\326\316\317\320\321\322\327&	\210\312\330\331\332\316\317\320\321\322\333&	\210\312\334\335\336\316\317\320\321\322\337&	\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require mm-util gnus-ems gnus-util gnus custom-declare-variable gnus-x-face-directory (expand-file-name "x-faces" gnus-directory) "*Directory where X-Face PBM files are stored." :version "22.1" :group gnus-fun :type directory gnus-convert-pbm-to-x-face-command "pbmtoxbm %s | compface" "Command for converting a PBM to an X-Face." string gnus-convert-image-to-x-face-command "convert -scale 48x48! %s xbm:- | xbm2xface.pl" "Command for converting an image to an X-Face.\nThe command must take a image filename (use \"%s\") as input.\nThe output must be the X-Face header data on stdout." (choice (const :tag "giftopnm, netpbm (GIF input only)" "giftopnm %s | ppmnorm | pnmscale -width 48 -height 48 | ppmtopgm | pgmtopbm | pbmtoxbm | compface") (const :tag "convert" "convert -scale 48x48! %s xbm:- | xbm2xface.pl") (string)) gnus-convert-image-to-face-command "convert -scale 48x48! %s -colors %d png:-" "Command for converting an image to a Face.\n\nThe command must take an image filename (first format argument\n\"%s\") and the number of colors (second format argument: \"%d\")\nas input.  The output must be the Face header data on stdout in\nPNG format." (choice (const :tag "djpeg, netpbm (JPG input only)" "djpeg %s | ppmnorm | pnmscale -width 48 -height 48 | ppmquant %d | pnmtopng") (const :tag "convert" "convert -scale 48x48! %s -colors %d png:-") (string))] 10)
#@59 Like `shell-command-to-string' except not mingling ERROR.
(defalias 'gnus-shell-command-to-string #[(command) "\304\305\306!!\307\216\310	\311\311D\311\n&\210)rq\210\312 +\207" [standard-output shell-file-name shell-command-switch command get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) call-process nil buffer-string] 7 (#$ . 2288)])
#@73 Return X-Face header data chosen randomly from `gnus-x-face-directory'.
(defalias 'gnus-random-x-face #[nil "\304!\205 �\305\306\307#\310	G!	8\211\205�\311\312\313\n!\"!*\207" [gnus-x-face-directory files file gnus-convert-pbm-to-x-face-command file-exists-p directory-files t "\\.pbm$" random gnus-shell-command-to-string format shell-quote-argument] 6 (#$ . 2682) nil])
(autoload 'message-goto-eoh "message" nil t)
#@61 Insert a random X-Face header from `gnus-x-face-directory'.
(defalias 'gnus-insert-random-x-face-header #[nil "\302 \212\303 \210\203�\304\261\202�\305\306	\"*\207" [data gnus-x-face-directory gnus-random-x-face message-goto-eoh "X-Face: " message "No face returned by `gnus-random-x-face'.  Does %s/*.pbm exist?"] 3 (#$ . 3111) nil])
#@141 Insert an X-Face header based on an image file.

Depending on `gnus-convert-image-to-x-face-command' it may accept
different input formats.
(defalias 'gnus-x-face-from-file #[(file) "\302!\205�\303\304	\305\306!!\"!\207" [file gnus-convert-image-to-x-face-command file-exists-p gnus-shell-command-to-string format shell-quote-argument expand-file-name] 6 (#$ . 3459) "fImage file name: "])
#@136 Return a Face header based on an image file.

Depending on `gnus-convert-image-to-face-command' it may accept
different input formats.
(defalias 'gnus-face-from-file #[(file) "\306!\205e�\307\310\311\204K�	\312V\203K�\313\314\315
\316\317!!	#!)\211G\320V\203E�	\211\321W\2037�\312\2028�\322Z\323\324\325\nG	$\210\202\f�\326\211\203�\205d�\327\330!rq\210\331\216\332 \210\nc\210\333 ++\207" [file quant attempt done coding-system-for-read gnus-convert-image-to-face-command file-exists-p nil "" 16 1 binary gnus-shell-command-to-string format shell-quote-argument expand-file-name 726 10 2 gnus-message 9 "Length %d; trying quant %d" t generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte gnus-face-encode #1#] 7 (#$ . 3859) "fImage file name: "])
(defalias 'gnus-face-encode #[nil "\301\302ed\"\210eb\210\303\304\305\306#\203�\307\310!\210\202\n�eb\210d`ZV\203/�u\210\311c\210\312\202�\313 )\207" [step 72 base64-encode-region search-forward "\n" nil t replace-match "" "\n " 76 buffer-string] 4])
#@83 Convert FACE (which is base64-encoded) to a PNG.
The PNG is returned as a string.
(defalias 'gnus-convert-face-to-png #[(face) "\302\303!rq\210\304\216\305 \210	c\210\306\307\310\217\210\311 +\207" [#1=#:temp-buffer face generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte nil (byte-code "\300ed\"\207" [base64-decode-region] 3) ((error)) buffer-string] 3 (#$ . 4976)])
#@104 Convert FILE to a Face.
FILE should be a PNG file that's 48x48 and smaller than or equal to
726 bytes.
(defalias 'gnus-convert-png-to-face #[(file) "\302\303!rq\210\304\216\305 \210\306	!\210\307 \310V\203�\311\312\307 \"\210\313 +\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte insert-file-contents buffer-size 726 error "The file is %d bytes long, which is too long" gnus-face-encode] 3 (#$ . 5434)])
(custom-declare-face 'gnus-x-face '((t (:foreground "black" :background "white"))) "Face to show X-Face.\nThe colors from this face are used as the foreground and background\ncolors of the displayed X-Faces." :group 'gnus-article-headers)
#@45 Display the X-Face DATA in the From header.
(defalias 'gnus-display-x-face-in-from #[(data) "\303\304!\210\305\306\307!\204�\306\300!\205X�\310	!\211\205X�\212\214\311 \210\312\313!\210o\203-�\314c\210\315u\210\316\307\317\306\307!\203E�\320\321\322	P\307\323\307\n\236A%\202O�\320\321\300\323\300\n\236A%\305\307#\"\210\324\307!*)\207" [pbm data gnus-face-properties-alist require gnus-art nil gnus-image-type-available-p xface uncompface article-narrow-to-head gnus-article-goto-header "from" "From: [no `from' set]\n" -17 gnus-add-image gnus-put-image apply gnus-create-image "X-Face: " t gnus-add-wash-type] 10 (#$ . 6197)])
#@59 Grab a picture off the camera and make it into an X-Face.
(defalias 'gnus-grab-cam-x-face #[nil "\302\303!\210\304\305\306\307\310#\211\204�\311\312!\210\202�@\313\314!r	q\210\315\216\302\316\317\"p\"\210\320!\210\321 ,\207" [file #1=#:temp-buffer shell-command "xawtv-remote snap ppm" nil directory-files "/tftpboot/sparky/tmp" t "snap.*ppm" sleep-for 1 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | ppmnorm 2>/dev/null | pnmscale -width 48 | ppmtopgm | pgmtopbm -threshold -value 0.92 | pbmtoxbm | compface" delete-file buffer-string] 4 (#$ . 6836) nil])
#@59 Grab a picture off the camera and make it into an X-Face.
(defalias 'gnus-grab-cam-face #[nil "\303\304!\210\305\211\306\307\310\311#\211\204�\312\313!\210\202�	@\303\314\315	\"!\210\314\316\317 \"\320\321!)\322	!\210*\207" [result file gnus-convert-image-to-face-command shell-command "xawtv-remote snap ppm" nil directory-files "/tftpboot/sparky/tmp" t "snap.*ppm" sleep-for 1 format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | pnmscale -width 48 -height 48 | ppmtopgm > /tmp/gnus.face.ppm" "cat '%%s' | ppmquant %%d | ppmchange %s | pnmtopng" gnus-fun-ppm-change-string gnus-face-from-file "/tmp/gnus.face.ppm" delete-file] 4 (#$ . 7535) nil])
(defalias 'gnus-fun-ppm-change-string #[nil "\305\306\307\310!8\311Q\312\313\314\fW\203+�\301	\211\211\211\211\211&\nBT\211\202�*\315\316\n\317#+\207" [possibilities format values i --dotimes-limit-- ("%02x0000" "00%02x00" "0000%02x" "%02x%02x00" "00%02x%02x" "%02x00%02x") "'#%02x%02x%02x' '#" random 6 "'" nil 255 0 mapconcat identity " "] 9])
(defalias 'gnus-funcall-no-warning #[(function &rest args) "\302!\205\n�\303	\"\207" [function args fboundp apply] 3])
(provide 'gnus-fun)