HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/gnus-spec.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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;\203`\315\202a\316!)\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
EB\311\312\320\"!
L\210\fB)\202)\307\236\204\367\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] 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])
#@37 Return the correct width of STRING.
(defalias 'gnus-correct-length #[(string) "\301\302\303\304\"\"\207" [string apply + mapcar char-width] 5 (#$ . 5295)])
(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])
#@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	FE\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	FE\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 (#$ . 5748)])
#@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 (#$ . 6302)])
#@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 (#$ . 6733)])
#@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) "\304!\305W9\203-\306\307\310\n\311DEDC\312\313\314	\205\315	?\205&\316FFE\202P\317\320\321DD\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 (#$ . 6992)])
(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@ABCDEFGHIJK\212\310 \210c\210eb\210\311\312\307\313#\203Q\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\nA@BC\324>\203\241BA\202[C\325=\203\260B[A\202[C\326>\203\276BK\202[C\327=\203\315B[K\202[C\330>\203\332B\202[C\331=\203\350B[\202[C\332=\203B;\203\372B\202\377\333\334B\"\202[C\335=\203B\202[\336\337\n\"\210\202[\307\204[\307f\211J\340=\203E\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=\203t\312c\210\202;J\345=\203\203\346DG\202\302D\203\242\343\333D;\203\224\347\202\225\350D\"!\351D\346DG\202\302\206\250JL\236A\211G\204\302J\352=\203\277\353G\202\302\354GGA@A\203\322\355A!c\210K\204\337
\204\337\f\203C\346c\210G@MGA@\356U\203\371\357MDM\202GA@\360U\203\361MDM\f\203\362M\f\"M
\203\363M
\"MK\203+\364MK\"MA\2038\365MA\"MMIBI)\202;	c\210G@IBI\202;\366ed\"H)H\367\230\203c\307\202\370\312H\"\204qHC\202H\334\230\203I@C\202H\371\230\203\215I@C\202H\372\230\203\257\313E;\203\246\373\361I@DD\202\361I@DC\202\370\374H\"\203\275I\237\202\370\375H\"\203\321I@H\321\307OD\202\370\376H\"\203\352\317\320H\"I@\317\321H\"E\202\370\377H\"\203\376\317\320H\"I@D\202\333HI\237BBCF;\203$F\205?E\203F\202?\373FB\202?F;\203/F\202?F:\203>\201NFB\202?\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 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 add-text-properties eval] 4 (#$ . 12139)])
(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)