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:10:28 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-spec.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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

(byte-code "\300\301!\204
�\302\301\303\304B\"\210\305\306!\210\307\310\311\312\313\314\315\316\317\320&	\210\307\321\322\323\313\314\315\316\317\320&	\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require gnus custom-declare-variable gnus-use-correct-string-widths (featurep 'xemacs) "*If non-nil, use correct functions for dealing with wide characters." :version "22.1" :group gnus-format :type boolean gnus-make-format-preserve-properties (featurep 'xemacs) "*If non-nil, use a replacement `format' function which preserves\ntext properties. This is only needed on XEmacs, as Emacs does this anyway."] 10)
(defvar gnus-summary-mark-positions nil)
(defvar gnus-group-mark-positions nil)
(defvar gnus-group-indentation "")
(defalias 'gnus-lrm-string-p '(macro . #[(string) "\301\302!\205�\303\304\305\306DDE\307BB\207" [string fboundp bidi-string-mark-left-to-right memq aref 1- length ('(8206 8207 8236))] 6]))
(defvar gnus-lrm-string (byte-code "\300\301\302\217\203�\303\304\305!\306\307#\207\310\207" [nil (string 8206) ((error)) propertize string 8206 invisible t ""] 4))
(defvar gnus-summary-line-format-spec nil)
(defvar gnus-summary-dummy-line-format-spec nil)
(defvar gnus-group-line-format-spec nil)
#@24 Alist of format specs.
(defvar gnus-format-specs (byte-code "\301B\302\303 BD\207" [emacs-version version gnus-version gnus-continuum-version] 3) (#$ . 1800))
(defvar gnus-default-format-specs gnus-format-specs)
(defvar gnus-article-mode-line-format-spec nil)
(defvar gnus-summary-mode-line-format-spec nil)
(defvar gnus-group-mode-line-format-spec nil)
#@45 Update the format specification near point.
(defalias 'gnus-update-format #[(var) "\306\307\310\"\210\311\312\"!\211\n\236\313\211\203�\314\n\"\306\315\316\"!\317\306!J\211\306\315\320\"!J\307\321\"?#L\210\306\315\316\"!J	\f
E\nB\322\323!\210\324 \210\325 \210\326
!c,\207" [var type gnus-format-specs entry value spec intern string-match "gnus-\$[-a-z]+\$-line" match-string 1 nil delq format "%s-spec" gnus-parse-format "%s-alist" "mode" pop-to-buffer "*Gnus Format*" erase-buffer lisp-interaction-mode gnus-pp-to-string] 8 (#$ . 2161) (list (save-excursion (eval-defun nil) (re-search-forward "[ 	\n]" nil t) (if (re-search-backward "\$gnus-[-a-z]+-line-format\$" nil t) (progn (match-string 1)))))])
#@79 Update all (necessary) format specifications.
Return a list of updated types.
(defalias 'gnus-update-format-specifications #[(&optional force &rest types) "\204�	\203�\306 \306	!\232\203�\n\307\236A\232\204�\310\310\211\211\211\211\211A@\211\203\357�\212\311\312\313\"!\314!\203k�J\211\203k�
\211\205d�;\203`�\315\202a�\316!)\203k�
q\210\311\312\317\"!J)\236A\211@\203\237�@\232\203\237�\311\312\320\"!\211A@)L\210\202\353�;\204\252�\202\276�\321\311\312\322\"!J\323\324\325!\"?#\203\323�A
\240\210\240\210\202\334�
EB\311\312\320\"!
L\210\fB)\202)�\307\236\204\373�\307\nBB\f-\207" [force gnus-newsrc-file-version emacs-version gnus-format-specs updated val gnus-continuum-version version nil intern format "gnus-%s-buffer" boundp get-buffer buffer-name "gnus-%s-line-format" "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format-alist" string-match "mode$" symbol-name type entry new-format types buffer x] 8 (#$ . 2893)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\305\306\307&\207" [custom-declare-variable gnus-mouse-face-0 'highlight "The \"%(hello%)\" face." :group gnus-format :type face gnus-mouse-face-1 'highlight "The \"%1(hello%)\" face." gnus-mouse-face-2 'highlight "The \"%2(hello%)\" face." gnus-mouse-face-3 'highlight "The \"%3(hello%)\" face." gnus-mouse-face-4 'highlight "The \"%4(hello%)\" face."] 8)
(defalias 'gnus-mouse-face-function #[(form type) "\302\303\304\305\306\"B\307	\310\232\203�\311\202�\312\313\314\315	\"!JD\257\207" [form type gnus-put-text-property (point) progn append ((point)) gnus-mouse-face-prop 0 gnus-mouse-face quote intern format "gnus-mouse-face-%d"] 9])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\305\306\307&\207" [custom-declare-variable gnus-face-0 'bold "The \"%{hello%}\" face." :group gnus-format :type face gnus-face-1 'italic "The \"%1{hello%}\" face." gnus-face-2 'bold-italic "The \"%2{hello%}\" face." gnus-face-3 'bold "The \"%3{hello%}\" face." gnus-face-4 'bold "The \"%4{hello%}\" face."] 8)
(defalias 'gnus-face-face-function #[(form type) "\302\303\304\305\306\"B\307\310\311\312\313\314\315	\"!JFDF\207" [form type gnus-add-text-properties (point) progn append ((point)) quote gnus-face t face intern format "gnus-face-%d"] 11])
(defalias 'gnus-balloon-face-function #[(form type) "\302\303\304\305\306\"B\307\310!\203�\311\202�\312\313\314\315	\"!\257\207" [form type gnus-put-text-property (point) progn append ((point)) fboundp balloon-help-mode 'balloon-help 'help-echo intern format "gnus-balloon-face-%d"] 8])
(defalias 'gnus-spec-tab #[(column) "\301V\203�\302\303\304\305\306BB\307BBE\207\310!\311\312\313E\314\315\311\316\317DE\320BBE\302\303\304\305\321BB\322BBEF)\207" [column 0 insert-char 32 max - ((current-column)) (0) abs if > (current-column) let ((end (point))) = move-to-column ((delete-region (point) end) (delete-region (1- (point)) end) (insert " ")) ((current-column)) (0)] 9])
#@37 Return the correct width of STRING.
(defalias 'gnus-correct-length #[(string) "\301\302\303\304\"\"\207" [string apply + mapcar char-width] 5 (#$ . 6175)])
(defalias 'gnus-correct-substring #[(string start &optional end) "\306\211\211\211G\307P\n	W\203+�	W\203+�\310\nH!\\\nT\211\202�\n\n	X\203N�\n\203?�\nX\203N�\310\nH!\\\nT\211\202.�\n
\fSO.\207" [string length seek wseek wend wstart 0 "�" char-width start end] 8])
(defalias 'gnus-string-width-function #[nil "\203�\301\207\302\303!\203�\303\207\304\207" [gnus-use-correct-string-widths gnus-correct-length fboundp string-width length] 2])
(defalias 'gnus-substring-function #[nil "\203�\301\207\302\303!\203�\301\207\304\207" [gnus-use-correct-string-widths gnus-correct-substring fboundp string-width substring] 2])
#@44 Return a form that limits EL to MAX-WIDTH.
(defalias 'gnus-tilde-max-form #[(el max-width) "\306!\307 \310 \f9\203?�\311\312\n\fDE\313W\203(�	\f\314\n\fDEE\202:�\311\315\fD\316	\f\313F
E	\f\313FF\fF\202t�\317\320\321\fDDC\311\312\n\322BE\313W\203_�	\320\314\n\323BEE\202o�\311\324\316	\320\313F
E	\320\313FF\325BBBE+\207" [max-width substring-fun length-fun max el gnus-lrm-string abs gnus-string-width-function gnus-substring-function if > 0 - gnus-lrm-string-p concat let val eval (val) (val) (gnus-lrm-string-p val) (val)] 11 (#$ . 6987)])
#@46 Return a form that cuts CUT-WIDTH off of EL.
(defalias 'gnus-tilde-cut-form #[(el cut-width) "\305!\306 \307 \f9\2032�\310\311\n\fDE\312W\203)�	\f\312\313\n\fDEF\202-�	\fE\fF\202\\�\314\315\316\fDDC\310\311\n\317BE\312W\203S�	\315\312\313\n\320BEF\202W�	\315E\321BBBE+\207" [cut-width substring-fun length-fun cut el abs gnus-string-width-function gnus-substring-function if > 0 - let val eval (val) (val) (val)] 10 (#$ . 7550)])
#@54 Return a form that is blank when EL is IGNORE-VALUE.
(defalias 'gnus-tilde-ignore-form #[(el ignore-value) "9\203�\302\303	E\304F\207\305\306\307DDC\302\303\306	E\310BBE\207" [el ignore-value if equal #1="" let val eval (#1# val)] 6 (#$ . 7998)])
#@176 Return a form that pads EL to PAD-WIDTH accounting for multi-column
characters correctly. This is because `format' may pad to columns or to
characters when given a pad value.
(defalias 'gnus-pad-form #[(el pad-width) "\305!\306W\307 \f9\2030�\310\311\312	\fDEDC\313\314\315\n\205\"�\316\f\n?\205)�\317F\fFE\202T�\320\321\322\fDD\311\312	\323BEDD\313\324\315\n\205G�\325\321\n?\205N�\326F\327BBBE+\207" [pad-width length-fun side pad el abs 0 gnus-string-width-function let need - if (> need 0) concat (make-string need 32) (make-string need 32) let* val eval (val) (> need 0) (make-string need 32) (make-string need 32) (val)] 8 (#$ . 8257)])
(defalias 'gnus-parse-format #[(format spec-alist &optional insert) "\304\305\306	\"\203�\307	\n\"\202�\310	\n#)\207" [case-fold-search format spec-alist insert nil string-match "\\`\$.*\$%[0-9]?[{(«]\$.*\$%[0-9]?[»})]\$.*\n?\$\\'\\|%[-0-9]*=\\|%[-0-9]*\\*" gnus-parse-complex-format gnus-parse-simple-format] 4])
(defalias 'gnus-parse-complex-format #[(format spec-alist) "\306\212\307 \210	c\210eb\210\310\311\306\312#\203�\313\314\306\312#\210\202\f�eb\210\315c\210\310\316\306\312#\203{�\317\224\2036�\320\317!\2027�\321\320\322!\323H\n\324U\204P�\n\325U\204P�\n\326U\203s�\313\327\n\324U\203\\�\330\202g�\n\325U\203f�\331\202g�\332\333\334\260\312\211#\210\202w�\313\335!\210*\202#�db\210\336c\210eb\210\306\310\337\306\312#\203\231�\313\340\312\211#\210\312\202\206�)eb\210\310\341\306\312#\203\263�\313\301\342\320\317!\"\312\211#\210\202\235�eb\210\343p!\203\315�\344\345\346\347
*\"\350\"BB\202\324�\351\347
*\"B+\207" [cursor-spec format delim number case-fold-search form nil gnus-set-work-buffer re-search-forward "\"" t replace-match "\\\"" "(\"" "%\$[0-9]+\$?\$[«»{}()]\$" 1 match-string "0" 2 0 40 123 171 "\"(" "mouse" "face" "balloon" " " " \"" "\")\"" "\")" "%\$[-0-9]+\$?\\*" "\"(point)\"" "%\$[-0-9]+\$=" "\"(tab %s)\"" read let (gnus-position) append gnus-complex-form-to-spec ((if gnus-position (gnus-put-text-property gnus-position (1+ gnus-position) 'gnus-position t))) progn spec-alist] 6])
(defalias 'gnus-complex-form-to-spec #[(form spec-alist) "\301\302\303\304\"\"\207" [form delq nil mapcar #[(sform) ";\203�\303	\304#\207@\305=\203�\306\207@\307=\203$�\310\211A@)!\207\311\312\313@\"!\314\211AA)	\"A@\"\207" [sform spec-alist x gnus-parse-simple-format t point (setq gnus-position (point)) tab gnus-spec-tab intern format "gnus-%s-face-function" gnus-complex-form-to-spec] 5]] 5])
#@345 A version of `format' which preserves text properties.

Required for XEmacs, where the built in `format' function strips all text
properties from both the format string and any inserted strings.

Only supports the format sequence %s, and %% for inserting
literal % characters. A pad width and an optional - (to right pad)
are supported for %s.
(defalias 'gnus-xmas-format #[(fstring &rest args) "\306G\307\310!rq\210\311\216\fc\210eb\210\312\n\313\314#\203\216�\315\225b\210\316\315!\317\230\2030�\320\321!\210\202�\204;�\322\323\324	\f$\210\325\316\326!\206C�\327!@\211;\203S�\202X�\330\331\" \316\332!?!\315
 GZ]\"\333\327!\210!\203x�\334\335\"\"\210 c\210!\204\207�\334\335\"\"\210A-\202�\336 -\207" [args n re #1=#:temp-buffer fstring minlen "%%\\|%\$-\$?\$[1-9][0-9]*\$?s" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward nil t 0 match-string "%%" delete-char -1 error wrong-number-of-arguments my-format string-to-number 2 "" format "%s" 1 replace-match insert-char 32 buffer-string arg str lpad padlen] 6 (#$ . 10774)])
(defalias 'gnus-parse-simple-format #[(format spec-alist &optional insert) "\306\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJK\212\310 \210c\210eb\210\311\312\307\313#\203a\307\211D@\307\211AK\307\211\307\211`S@\314\315!\203}�\316\317\320!!A\321\224\203w�\316\321\224T\321\225{!K\306\225b\202\314\322!\203\320u\210\323p!\211@C\n\211LA@)BC\324>\203\245�BA\202[�C\325=\203\264�B[A\202[�C\326>\203\302�BK\202[�C\327=\203\321�B[K\202[�C\330>\203\336�B\202[�C\331=\203\354�B[\202[�C\332=\203B;\203\376�B\202\333\334B\"\202[�C\335=\203B\202[�\336\337\n\"\210\202[�\307\204[�\307f\211J\340=\203I\320u\210\307f\211D\341=\203`\314\342!\203`\317\320!D\320\225b\210\202`J\341=\203`\314\342!\203`\343\317\320!!\320\225b\210\320u\210@`|\210\312c\210J\344=\203x\312c\210\202;�J\345=\203\207\346DG\202\306D\203\246\343\333D;\203\230\347\202\231\350D\"!\351D\346DG\202\306\206\254JM\236A\211G\204\306J\352=\203\303\353G\202\306\354GG\211LA@)A\203\332\355A!c\210K\204\347
\204\347\f\203S\346c\210G@NG\211LA@)\356U\203\357NDN\202G\211LA@)\360U\203\361NDN\f\203#\362N\f\"N
\203.\363N
\"NK\203;\364NK\"NA\203H\365NA\"NNIBI)\202;�	c\210G@IBI\202;�\366ed\"H)H\367\230\203s\307\202\370\312H\"\204\201HC\202H\334\230\203\217I@C\202H\371\230\203\235I@C\202H\372\230\203\277\313E;\203\266\373\361I@DD\202\361I@DC\202\370\374H\"\203\315I\237\202\370\375H\"\203\341I@H\321\307OD\202\370\376H\"\203\372\317\320H\"I@\317\321H\"E\202\370\377H\"\203\317\320H\"I@D\202\333HI\237BBCF;\2034F\205OE\203-F\202O\373FB\202OF;\203?F\202OF:\203N\201O�FB\202O\367.\207" [extended-spec elem-type tilde tilde-form ignore-value cut-width 0 nil gnus-set-work-buffer re-search-forward "%" t looking-at "\$[-.0-9]+\$\$,[-0-9]+\$?" string-to-number match-string 1 2 "~" read (pad pad-left) pad-right (max-right max) max-left (cut cut-left) cut-right ignore format "%s" form error "Unknown tilde type: %s" 117 38 "&\$[^;]+\$;" intern 37 64 115 "gnus-user-format-function-%s" "gnus-user-format-function-%c" gnus-tmp-header 108 (#1="" 115) ("*" 115) number-to-string 99 char-to-string 100 int-to-string gnus-tilde-ignore-form gnus-tilde-cut-form gnus-tilde-max-form gnus-pad-form buffer-substring-no-properties #1# string-match "%c" "%d" insert "\\`\$%[cs]\$+\\'" "\\`%[sc][^%]+\\'" "\\`\$[^%]+\$%[sc]\$[^%]+\$\\'" "\\`\$[^%]+\$%[sc]\\'" spec-beg pad-width value type user-defined dontinsert result elem fstring flist spec max-width x spec-alist el concat] 19])
#@76 Eval the format variable FORMAT, using ALIST.
If PROPS, insert the result.
(defalias 'gnus-eval-format #[(format &optional alist props) "\304	\n#\n\203�\305`\306!\210`\n#\202�\306!)\207" [format alist props form gnus-parse-format gnus-add-text-properties eval] 4 (#$ . 14611)])
(defalias 'gnus-set-format #[(type &optional insertable) "\302\303\304\"!\305\302\303\306\"!J\302\303\307\"!J	#L\207" [type insertable intern format "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format" "gnus-%s-line-format-alist"] 7])
(provide 'gnus-spec)