| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/gnus-spec.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:05 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-spec.el
;;; in Emacs version 24.3.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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\204
\302\301\303\304B\"\210\305\306!\210\307\310\311\312\313\314\315\316\317\320& \210\307\321\322\323\313\314\315\316\317\320& \207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require gnus custom-declare-variable gnus-use-correct-string-widths (featurep 'xemacs) "*If non-nil, use correct functions for dealing with wide characters." :version "22.1" :group gnus-format :type boolean gnus-make-format-preserve-properties (featurep 'xemacs) "*If non-nil, use a replacement `format' function which preserves\ntext properties. This is only needed on XEmacs, as Emacs does this anyway."] 10)
(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!\205 \303\304\305\306DDE\307BB\207" [string fboundp bidi-string-mark-left-to-right memq aref 1- length ('(8206 8207 8236))] 6]))
(defvar gnus-lrm-string (byte-code "\300\301\302\217\203 \303\304\305!\306\307#\207\310\207" [nil (string 8206) ((error)) propertize string 8206 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) (#$ . 1804))
(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 (#$ . 2165) (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@\211\203\357 \212\311\312\313\"! \314!\203k J\211\203k
\211 \205d ;\203` \315\202a \316!)\203k
q\210\311\312\317\"!J) \236A\211@\203\237 @\232\203\237 \311\312\320\"!\211 A@)L\210\202\353 ;\204\252 \202\276 \321\311\312\322\"!J\323\324\325!\"?#\203\323 A
\240\210\240\210\202\334
E B\311\312\320\"!
L\210\fB)\202) \307 \236\204\373 \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 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 x] 8 (#$ . 2897)])
(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 gnus-put-text-property (point) progn append ((point)) gnus-mouse-face-prop 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\311\312\313\314\315 \"!JFDF\207" [form type gnus-add-text-properties (point) progn append ((point)) quote gnus-face t face intern format "gnus-face-%d"] 11])
(defalias 'gnus-balloon-face-function #[(form type) "\302\303\304\305\306\"B\307\310!\203 \311\202 \312\313\314\315 \"!\257\207" [form type gnus-put-text-property (point) progn append ((point)) fboundp balloon-help-mode 'balloon-help '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 (#$ . 6179)])
(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])
(defalias 'gnus-string-width-function #[nil "\203 \301\207\302\303!\203 \303\207\304\207" [gnus-use-correct-string-widths gnus-correct-length fboundp string-width length] 2])
(defalias 'gnus-substring-function #[nil "\203 \301\207\302\303!\203 \301\207\304\207" [gnus-use-correct-string-widths gnus-correct-substring fboundp string-width substring] 2])
#@44 Return a form that limits EL to MAX-WIDTH.
(defalias 'gnus-tilde-max-form #[(el max-width) "\306!\307 \310 \f9\203? \311\312\n\fD E\313W\203( \f\314\n\fD EE\202: \311\315\fD\316 \f\313 F
E \f\313 FF\fF\202t \317\320\321\fDDC\311\312\n\322B E\313W\203_ \320\314\n\323B EE\202o \311\324\316 \320\313 F
E \320\313 FF\325BBBE+\207" [max-width substring-fun length-fun max el gnus-lrm-string abs gnus-string-width-function gnus-substring-function if > 0 - gnus-lrm-string-p concat let val eval (val) (val) (gnus-lrm-string-p val) (val)] 11 (#$ . 6991)])
#@46 Return a form that cuts CUT-WIDTH off of EL.
(defalias 'gnus-tilde-cut-form #[(el cut-width) "\305!\306 \307 \f9\2032 \310\311\n\fD E\312W\203) \f\312\313\n\fD EF\202- \f E\fF\202\\ \314\315\316\fDDC\310\311\n\317B E\312W\203S \315\312\313\n\320B EF\202W \315 E\321BBBE+\207" [cut-width substring-fun length-fun cut el abs gnus-string-width-function gnus-substring-function if > 0 - let val eval (val) (val) (val)] 10 (#$ . 7554)])
#@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 (#$ . 8002)])
#@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) "\305!\306W\307 \f9\2030 \310\311\312 \fDEDC\313\314\315\n\205\" \316\f\n?\205) \317F\fFE\202T \320\321\322\fDD\311\312 \323BEDD\313\324\315\n\205G \325\321\n?\205N \326F\327BBBE+\207" [pad-width length-fun side pad el abs 0 gnus-string-width-function let need - if (> need 0) concat (make-string need 32) (make-string need 32) let* val eval (val) (> need 0) (make-string need 32) (make-string need 32) (val)] 8 (#$ . 8261)])
(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 (gnus-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 \303 \304#\207@\305=\203 \306\207@\307=\203$ \310\211A@)!\207\311\312\313@\"!\314\211AA) \"A@\"\207" [sform spec-alist x 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]] 5])
#@345 A version of `format' which preserves text properties.
Required for XEmacs, where the built in `format' function strips all text
properties from both the format string and any inserted strings.
Only supports the format sequence %s, and %% for inserting
literal % characters. A pad width and an optional - (to right pad)
are supported for %s.
(defalias 'gnus-xmas-format #[(fstring &rest args) "\306G\307\310!r q\210\311\216\fc\210eb\210\312\n\313\314#\203\216 \315\225b\210\316\315!\317\230\2030 \320\321!\210\202 \204; \322\323\324 \f$\210\325\316\326!\206C \327! @\211 ;\203S \202X \330\331 \" \316\332!? !\315
GZ] \"\333\327!\210!\203x \334\335\"\"\210 c\210!\204\207 \334\335\"\"\210A-\202 \336 -\207" [args n re #1=#:temp-buffer fstring minlen "%%\\|%\\(-\\)?\\([1-9][0-9]*\\)?s" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward nil t 0 match-string "%%" delete-char -1 error wrong-number-of-arguments my-format string-to-number 2 "" format "%s" 1 replace-match insert-char 32 buffer-string arg str lpad padlen] 6 (#$ . 10778)])
(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 G H I J K\212\310 \210c\210eb\210\311\312\307\313#\203a\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\n\211 LA@)BC\324>\203\245 BA\202[ C\325=\203\264 B[A\202[ C\326>\203\302 BK\202[ C\327=\203\321 B[K\202[ C\330>\203\336 B\202[ C\331=\203\354 B[\202[ C\332=\203B;\203\376 B\202\333\334B\"\202[ C\335=\203B\202[ \336\337\n\"\210\202[ \307\204[ \307f\211J\340=\203I\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=\203x\312c\210\202; J\345=\203\207 \346DG\202\306D\203\246\343\333D;\203\230\347\202\231\350D\"!\351D\346DG\202\306\206\254JM\236A\211G\204\306J\352=\203\303\353G\202\306\354GG\211 LA@)A\203\332\355A!c\210K\204\347
\204\347\f\203S\346c\210G@ NG\211 LA@)\356U\203\357NDN\202G\211 LA@)\360U\203\361NDN\f\203#\362N\f\"N
\203.\363N
\"NK\203;\364NK\"NA\203H\365NA\"NNIBI)\202; c\210G@IBI\202; \366ed\"H)H\367\230\203s\307\202\370\312H\"\204\201HC\202H\334\230\203\217I@C\202H\371\230\203\235I@C\202H\372\230\203\277\313E;\203\266\373\361I@DD\202\361I@DC\202\370\374H\"\203\315I\237\202\370\375H\"\203\341I@H\321\307OD\202\370\376H\"\203\372\317\320H\"I@\317\321H\"E\202\370\377H\"\203\317\320H\"I@D\202\333HI\237BBCF;\2034F\205OE\203-F\202O\373FB\202OF;\203?F\202OF:\203N\201O FB\202O\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 x 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 gnus-add-text-properties eval] 4 (#$ . 14615)])
(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])
(provide 'gnus-spec)