;ELC ;;; Compiled ;;; in Emacs version 27.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" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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!\203kJ\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\317A \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\feb\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\235eb\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;<=>?@ABCDEF\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