%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'gnus)
(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\303\304DDE\305BB\207" [string memq aref 1- length ('(8206 8207 8236))] 6]))
(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) (#$ . 973))
(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 (#$ . 1333) (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\242\211\203\353 \212\311\312\313\"! \314!\203k J\211\203k
\211 \205d \315\316!\211!\205d )\203k
q\210\311\312\317\"!J) \236A\211@\203\233 @\232\203\233 \311\312\320\"!A@L\210\202\347 ;\204\246 \202\272 \321\311\312\322\"!J\323\324\325!\"?#\203\317 A
\240\210\240\210\202\330
E B\311\312\320\"!
L\210\fB)\202) \307 \236\204\367 \307\nB B\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 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 type entry new-format types buffer] 8 (#$ . 2065)])
(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 put-text-property (point) progn append ((point)) 'mouse-face 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\307\311\312\313\314\315 \"!JD\316BB\317BBEF\207" [form type add-text-properties (point) progn append ((point)) cons 'face list quote intern format "gnus-face-%d" ('default) ('(gnus-face t))] 12])
(defalias 'gnus-balloon-face-function #[(form type) "\302\303\304\305\306\"B\307\310\311\312 \"!\257\207" [form type put-text-property (point) progn append ((point)) '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])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias gnus-correct-length string-width nil make-obsolete "27.1"] 4)
(defalias 'gnus-correct-substring #[(string start &optional end) "\306\211\211\211G\307P \n W\203+ \nW\203+ \310\nH!\\\nT\211\202 \n\n X\203N \203? X\203N \310\nH!\\\nT\211\202. \n\311
\fS#.\207" [string length seek wseek wend wstart 0 " " char-width substring start end] 8])
#@44 Return a form that limits EL to MAX-WIDTH.
(defalias 'gnus-tilde-max-form #[(el max-width) "\304!\n9\2039 \305\306\307\nD E\310W\203\" \311\n\312\307\nD EE\2024 \305\313\nD\314\311\n\310 F E\311\n\310 FF\nF\202j \315\316\317\nDDC\305\306\320 E\310W\203U \311\316\312\321 EE\202e \305\322\314\311\316\310 F E\311\316\310 FF\323BBBE)\207" [max-width max el 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)] 11 (#$ . 5728)])
#@46 Return a form that cuts CUT-WIDTH off of EL.
(defalias 'gnus-tilde-cut-form #[(el cut-width) "\303!\n9\203, \304\305\306\nD E\307W\203# \310\n\307\311\306\nD EF\202' \310\n E\nF\202R \312\313\314\nDDC\304\305\315 E\307W\203I \310\313\307\311\316 EF\202M \310\313 E\317BBBE)\207" [cut-width cut el abs if > string-width 0 gnus-correct-substring - let val eval (string-width val) (string-width val) (val)] 10 (#$ . 6282)])
#@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 (#$ . 6713)])
#@177 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) "\304!\305W 9\203- \306\307\310\n\311 DEDC\312\313\314 \205 \315 ?\205& \316F FE\202P \317\320\321 DD\307\310\n\322BBDD\312\323\314 \205C \324\320 ?\205J \325F\326BBBE*\207" [pad-width side pad el 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)] 8 (#$ . 6972)])
(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 (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 \302 \303#\207@\304=\203 \305\207@\306=\203! \307A@!\207\310\311\312@\"!\313AA \"A@\"\207" [sform spec-alist 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] 4]] 5])
(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 ; < = > ? @ A B C D E F\212\310 \210c\210eb\210\311\312\307\313#\203 \307\211?;\307\211<F\307\211\307\211`S;\314\315!\203} \316\317\320!!<\321\224\203w \316\321\224T\321\225{!F\306\225b\202\350 \314\322!\203\347 \320u\210\323p!\211@>\nA@=>\324\267\202\337 =<\202[ =[<\202[ =F\202[ =[F\202[ =\202[ =[\202[ =;\203\320 =\202\325 \325\326=\"\202[ =\202[ \327\330\n\"\210\202[ \307\204[ \307f\211E\331=\203\320u\210\307f\211?\332=\203+\314\333!\203+\317\320!?\320\225b\210\202+E\332=\203+\314\333!\203+\334\317\320!!\320\225b\210\320u\210;`|\210\312c\210E\335=\203C\312c\210\202; E\336=\203R \337DB\202\221?\203q\334\325?;\203c\340\202d\341?\"!\342D\337DB\202\221\206wEG\236A\211B\204\221E\343=\203\216\344B\202\221\345BBA@<\203\241\346<!c\210F\204\256
\204\256\f\203\337c\210B@ HBA@\347U\203\310\350HDH\202\327BA@\351U\203\327\352HDH\f\203\342\353H\f\"H
\203\355\354H
\"HF\203\372\355HF\"H<\203\356H<\"HHDBD)\202; c\210B@DBD\202; \357ed\"C)C\360\230\2032\307\202\326\361\312C\"\204@CC\202\326C\326\230\203ND@C\202\326C\362\230\203\\D@C\202\326C\363\230\203~\313@4\203u\364\352D@DD\202\326\352D@DC\202\326\361\365C\"\203\214D\237\202\326\361\366C\"\203\240D@\367C\321\"D\202\326\361\370C\"\203\271\317\320C\"D@\317\321C\"E\202\326\361\371C\"\203\315\317\320C\"D@D\202\326\325CD\237BBCA4\203\363A\205\f@\203\354A\202\f\364AB\202\fA;\203\376A\202\fA:\203 \372AB\202\f\360.\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 #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pad 154 pad-left 154 pad-right 161 max-right 169 max 169 max-left 176 cut 184 cut-left 184 cut-right 190 ignore 197 form 217)) 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-match "%c" "%d" insert "\\`\\(%[cs]\\)+\\'" "\\`%[sc][^%]+\\'" substring "\\`\\([^%]+\\)%[sc]\\([^%]+\\)\\'" "\\`\\([^%]+\\)%[sc]\\'" concat spec-beg pad-width value type user-defined dontinsert result elem fstring flist spec max-width spec-alist el] 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 add-text-properties eval] 4 (#$ . 12190)])
(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])
(defalias 'gnus-summary-line-format-spec #[nil " \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)
Zerion Mini Shell 1.0