;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'gnus)
(defvar gnus-summary-mark-positions nil)
(defvar gnus-group-mark-positions nil)
(defvar gnus-group-indentation "")
#@15 

(fn STRING)
(defalias 'gnus-lrm-string-p '(macro . #[257 "\300\301\302\303DDE\304BB\207" [memq aref 1- length ('(8206 8207 8236))] 7 (#$ . 215)]))
(defvar gnus-lrm-string (byte-code "\3001\301\302!0\202\210\202\203\303\301\302!\304\305#\207\306\207" [(error) string 8206 propertize 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) (#$ . 668))
(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)
#@55 Update the format specification near point.

(fn VAR)
(defalias 'gnus-update-format #[257 "\301\302\303\"\210\304\305\"!\211\236\306\211\203\307\"\301\310\311\"!\312\301!J\211\262\301\310\313\n\"!J\302\314\n\"?#L\210\301\310\311\"!J\262
EB\315\316!\210\317 \210\320 \210\321
!c\207" [gnus-format-specs 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] 12 (#$ . 1028) (byte-code "\212\300\301!\210\302\303\301\304#\210\305\306\301\304#\205\307\310!)C\207" [eval-defun nil re-search-forward "[ 	\n]" t re-search-backward "\\(gnus-[-a-z]+-line-format\\)" match-string 1] 4)])
#@113 Update all (necessary) format specifications.
Return a list of updated types.

(fn &optional FORCE &rest TYPES)
(defalias 'gnus-update-format-specifications #[384 "
\204\203\303 \303!\232\203	\304\n\236A\232\204\305\305\211\211\211\211\211A\262\242\211\262\203\314r\306\307\310\"!\311
!\203[\211J\211\262\203[\211\205S\312\313!\211\262!\205S\211\262
\203[q\210\210\306\307\314\"!J\262\n\236A\262@\203\205@\232\203\205\306\307\315\"!A@L\210\202\310;\204\216\202\241\316\306\307\317\"!J\320\321\322!\"?#\262\203\263A\240\210\240\210\202\272E\nB\306\307\315\"!L\210
B\262
)\202!\304\n\236\204\330\304	B\nB\207" [gnus-newsrc-file-version emacs-version gnus-format-specs gnus-continuum-version version nil intern format "gnus-%s-buffer" boundp buffer-live-p get-buffer "gnus-%s-line-format" "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format-alist" string-match "mode\\'" symbol-name] 14 (#$ . 1790)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\210\300\320\302\303\321DD\322\306\307\310\311&\210\300\323\302\303\324DD\325\306\307\310\311&\207" [custom-declare-variable gnus-mouse-face-0 funcall function #[0 "\300\207" [highlight] 1 #1=""] "The \"%(hello%)\" face." :group gnus-format :type face gnus-mouse-face-1 #[0 "\300\207" [highlight] 1 #1#] "The \"%1(hello%)\" face." gnus-mouse-face-2 #[0 "\300\207" [highlight] 1 #1#] "The \"%2(hello%)\" face." gnus-mouse-face-3 #[0 "\300\207" [highlight] 1 #1#] "The \"%3(hello%)\" face." gnus-mouse-face-4 #[0 "\300\207" [highlight] 1 #1#] "The \"%4(hello%)\" face."] 8)
#@18 

(fn FORM TYPE)
(defalias 'gnus-mouse-face-function #[514 "\300\301\302\303\304\"B\305\306=\203\307\202\310\311\312\313\"!JD\257\207" [put-text-property (point) progn append ((point)) 'mouse-face 0 gnus-mouse-face quote intern format "gnus-mouse-face-%d"] 11 (#$ . 3499)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\210\300\320\302\303\321DD\322\306\307\310\311&\210\300\323\302\303\324DD\325\306\307\310\311&\207" [custom-declare-variable gnus-face-0 funcall function #[0 "\300\207" [bold] 1 #1=""] "The \"%{hello%}\" face." :group gnus-format :type face gnus-face-1 #[0 "\300\207" [italic] 1 #1#] "The \"%1{hello%}\" face." gnus-face-2 #[0 "\300\207" [bold-italic] 1 #1#] "The \"%2{hello%}\" face." gnus-face-3 #[0 "\300\207" [bold] 1 #1#] "The \"%3{hello%}\" face." gnus-face-4 #[0 "\300\207" [bold] 1 #1#] "The \"%4{hello%}\" face."] 8)
#@18 

(fn FORM TYPE)
(defalias 'gnus-face-face-function #[514 "\300\301\302\303\304\"B\305\306\305\307\310\311\312\313\"!JD\314BB\315BBEF\207" [add-text-properties (point) progn append ((point)) cons 'face list quote intern format "gnus-face-%d" ('default) ('(gnus-face t))] 14 (#$ . 4468)])
#@18 

(fn FORM TYPE)
(defalias 'gnus-balloon-face-function #[514 "\300\301\302\303\304\"B\305\306\307\310\"!\257\207" [put-text-property (point) progn append ((point)) 'help-echo intern format "gnus-balloon-face-%d"] 10 (#$ . 4765)])
#@15 

(fn COLUMN)
(defalias 'gnus-spec-tab #[257 "\211\300V\203\301\302\303\304\305BB\306BBE\207\307
!\310\311\312E\313\314\310\315\316DE\317BBE\301\302\303\304\320BB\321BBEF\207" [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)] 11 (#$ . 5005)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-correct-length string-width nil make-obsolete "27.1"] 4)
#@35 

(fn STRING START &optional END)
(defalias 'gnus-correct-substring #[770 "\300\211\211\211G\301PW\203(W\203(\302H!\\\262T\262\202\262X\203M\203=X\203M\302H!\\\262T\262\202+\262\211SO\207" [0 "" char-width] 13 (#$ . 5552)])
#@63 Return a form that limits EL to MAX-WIDTH.

(fn EL MAX-WIDTH)
(defalias 'gnus-tilde-max-form #[514 "\301
!9\203=\302\303\304DE\305W\203#\306\307\304DEE\202:\302\310D\311\306\305FE\306\305FFF\207\312\313\314DDC\302\303\315E\305W\203Z\306\313\307\316EE\202l\302\317\311\306\313\305\nFE\306\313\305\nFF\320BBBE\207" [gnus-lrm-string abs if > string-width 0 gnus-correct-substring - gnus-lrm-string-p concat let val eval (string-width val) (string-width val) (gnus-lrm-string-p val) (val)] 14 (#$ . 5827)])
#@65 Return a form that cuts CUT-WIDTH off of EL.

(fn EL CUT-WIDTH)
(defalias 'gnus-tilde-cut-form #[514 "\300
!9\203+\301\302\303DE\304W\203$\305\304\306\303	DEF\202(\305EF\207\307\310\311DDC\301\302\312E\304W\203I\305\310\304\306\313	EF\202N\305\310E\314BBBE\207" [abs if > string-width 0 gnus-correct-substring - let val eval (string-width val) (string-width val) (val)] 13 (#$ . 6370)])
#@76 Return a form that is blank when EL is IGNORE-VALUE.

(fn EL IGNORE-VALUE)
(defalias 'gnus-tilde-ignore-form #[514 "
9\203\300\301E\302F\207\303\304\305DDC\300\301\304E\306BBE\207" [if equal #1="" let val eval (#1# val)] 8 (#$ . 6785)])
#@196 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.

(fn EL PAD-WIDTH)
(defalias 'gnus-pad-form #[514 "\300
!\301W9\203-\302\303\304\305DEDC\306\307\310\205\311	?\205'\312FFE\207\313\314\315DD\303\304\316BBDD\306\317\310\205D\320\314?\205L\321F\322BBBE\207" [abs 0 let need - string-width if (> need 0) concat (make-string need 32) (make-string need 32) let* val eval ((string-width val)) (> need 0) (make-string need 32) (make-string need 32) (val)] 12 (#$ . 7036)])
#@43 

(fn FORMAT SPEC-ALIST &optional INSERT)
(defalias 'gnus-parse-format #[770 "\301\302\303\"\203\304\"\202\305#)\207" [case-fold-search nil string-match "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*\\*" gnus-parse-complex-format gnus-parse-simple-format] 7 (#$ . 7657)])
#@26 

(fn FORMAT SPEC-ALIST)
(defalias 'gnus-parse-complex-format #[514 "\301\212\302 \210c\210eb\210\303\304\301\305#\203\306\307\301\305#\210\202eb\210\310c\210\303\311\301\305#\203y\312\224\2035\313\312!\2026\314\313\315!\316H\211\317U\204M\211\320U\204M\211\321U\203q\306\322\317U\203Y\323\202d\320U\203c\324\202d\325\326\327\260\305\211#\266\202\"\306\330!\266\202\"db\210\331c\210eb\210\301\303\332\301\305#\203\230\306\333\305\211#\210\305\262
\202\204)eb\210\303\334\301\305#\203\262\306\335\336\313\312!\"\305\211#\210\202\234eb\210\337p!
\203\313\340\341\342\343\"\344\"BB\202\321\345\343\"B\262
)\207" [case-fold-search 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]+\\)=" format "\"(tab %s)\"" read let (gnus-position) append gnus-complex-form-to-spec ((if gnus-position (put-text-property gnus-position (1+ gnus-position) 'gnus-position t))) progn] 11 (#$ . 7983)])
#@24 

(fn FORM SPEC-ALIST)
(defalias 'gnus-complex-form-to-spec #[514 "\300\301\302\303\304\"\"\"\207" [delq nil mapcar make-closure #[257 "\211;\203\301
\300\302#\207\211@\303=\203\304\207\211@\305=\203!\306
A@!\207\307\310\311@\"!\312AA\300\"A@\"\207" [V0 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 "\n\n(fn SFORM)"]] 8 (#$ . 9098)])
#@43 

(fn FORMAT SPEC-ALIST &optional INSERT)
(defalias 'gnus-parse-simple-format #[770 "\300\301\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\212\302 \210c\210eb\210\303\304\301\305#\203\376
\301\262\301\262\301\262\301\262\301\262\301\262\301\262\301\262
`S\262\306\307!\203c\310\311\312!!\262\313\224\203]\310\313\224T\313\225{!\262\300\225b\202\323\306\314!\203\322\312u\210\315p!\262@\262\nA@\262		\316\267\202\312\262\202A[\262\202A\262\202A[\262\202A\262\202A[\262\202A;\203\271\202\276\317\320\n\"\262\202A\262\202A\321\322\"\210\202A\301\204A\301f\211\262\323=\203\377\312u\210\301f\211\262\f\324=\203
\306\325!\203
\311\312!\262\312\225b\210\202
\324=\203
\306\325!\203
\326\311\312!!\262
\312\225b\210\312u\210`|\210\304c\210\327=\203/
\304c\210\202\330=\203<
\331D\202r
\n\203Y
\326\317\f;\203M
\332\202N
\333
\"!\334D\331D\202r
\211\206_
\236A\206r
\335=\203q
\336\202r
\337\262
A@\262\203\205
\340!c\210\204\222
\204\222
\203\360
\331c\210
@A@\341U\203\251
\342
D\262
\202\267
A@\343U\203\267
\344
D\262
\203\302
\345
\"\262
\203\316
\346
\"\262
\203\332
\347
\"\262
\203\346
\350
\n\"\262
\211B\262\210\202
c\210
@B\262\202\351ed\"\262)\352\230\203\301\202\264\353\304\"\204C\202\264\320\230\203,@C\202\264\354\230\203:@C\202\264\355\230\203\\\305\262\f\203S\356\344@DD\202\264\344@DC\202\264\357\360\"\203j\237\202\264\357\361\"\203~@\313\301OD\202\264\357\362\"\203\227\311\312\"@\311\313\"E\202\264\357\363\"\203\253\311\312\"@D\202\264\317\237BBC\262
\203\315\f\205\342\203\310\f\207\356
B\207\f;\203\326\f\207\f:\203\341\364
B\207\352\207" [0 nil gnus-set-work-buffer re-search-forward "%" t looking-at "\\([-.0-9]+\\)\\(,[-0-9]+\\)?" string-to-number match-string 1 2 "~" read #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pad 129 pad-left 129 pad-right 136 max-right 144 max 144 max-left 151 cut 159 cut-left 159 cut-right 166 ignore 174 form 195)) format "%s" 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-search "%c" "%d" insert string-match "\\`\\(%[cs]\\)+\\'" "\\`%[sc][^%]+\\'" "\\`\\([^%]+\\)%[sc]\\([^%]+\\)\\'" "\\`\\([^%]+\\)%[sc]\\'" concat] 26 (#$ . 9550)])
#@111 Eval the format variable FORMAT, using ALIST.
If PROPS, insert the result.

(fn FORMAT &optional ALIST PROPS)
(defalias 'gnus-eval-format #[769 "\300#
\203\301`\302\303\"\210`#\207\302
\303\"\207" [gnus-parse-format add-text-properties eval t] 9 (#$ . 12225)])
#@34 

(fn TYPE &optional INSERTABLE)
(defalias 'gnus-set-format #[513 "\300\301\302\"!\303\300\301\304\"!J\300\301\305\"!J#L\207" [intern format "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format" "gnus-%s-line-format-alist"] 9 (#$ . 12499)])
(defalias 'gnus-summary-line-format-spec #[0 "	\n\261\210\306`\f\307\310
G\311V\203\312\311\"\202#\261\210`\313$\210\314\315\261\207" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines put-text-property format "%4d: %-20s" 20 truncate-string-to-width mouse-face " " "\n" gnus-tmp-name gnus-tmp-closing-bracket gnus-mouse-face gnus-tmp-subject-or-nil] 9])
(provide 'gnus-spec)