;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\262EB\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\210B\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\202 eb\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!\306A@!\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\342D\262\202\267A@\343U\203\267\344D\262\203\302\345\"\262\203\316\346\"\262\203\332\347\"\262\203\346\350\n\"\262\211B\262\210\202c\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)