;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:19:33 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-spec.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-spec.el' was compiled for Emacs 19.29 or later")) (byte-code "!!\f B! B!& B B B B B B B B B B B B B B B B B B B B B B B B Bć" [require gnus boundp gnus-summary-mark-positions nil current-load-list gnus-group-mark-positions gnus-group-indentation "" gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-tmp-opening-bracket gnus-tmp-lines gnus-tmp-name gnus-tmp-closing-bracket gnus-tmp-subject-or-nil gnus-tmp-subject gnus-tmp-marked gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-process-marked gnus-tmp-number-of-unread gnus-tmp-group-name gnus-tmp-group gnus-tmp-article-number gnus-tmp-unread-and-unselected gnus-tmp-news-method gnus-tmp-news-server gnus-mouse-face gnus-mouse-face-prop] 2) (defalias 'gnus-summary-line-format-spec #[nil " \n `  GV O  #\f` $ѱ" [gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation gnus-put-text-property gnus-tmp-opening-bracket format "%4d: %-20s" gnus-tmp-lines gnus-tmp-name 20 0 gnus-tmp-closing-bracket gnus-mouse-face-prop gnus-mouse-face " " gnus-tmp-subject-or-nil "\n"] 9]) (byte-code "!\n! B" [boundp gnus-summary-line-format-spec gnus-byte-code current-load-list] 2) (defalias 'gnus-summary-dummy-line-format-spec #[nil "c`c` \f$DZ" ["* " gnus-put-text-property ": :" gnus-mouse-face-prop gnus-mouse-face " " gnus-tmp-subject "\n"] 5]) (byte-code "!\n! B" [boundp gnus-summary-dummy-line-format-spec gnus-byte-code current-load-list] 2) (defalias 'gnus-group-line-format-spec #[nil " \n \"`ɱ`S\n $" [gnus-tmp-marked-mark gnus-tmp-subscribed gnus-tmp-process-marked gnus-group-indentation format "%5s: " gnus-tmp-number-of-unread gnus-put-text-property gnus-tmp-group "\n" gnus-mouse-face-prop gnus-mouse-face] 7]) (byte-code "!\n! B" [boundp gnus-group-line-format-spec gnus-byte-code current-load-list] 2) #@24 Alist of format specs. (defvar gnus-format-specs (byte-code " B\fEE\nEF" [version emacs-version group "%M%S%p%P%5y: %(%g%)%l\n" gnus-group-line-format-spec summary-dummy "* %(: :%) %S\n" gnus-summary-dummy-line-format-spec summary "%U%R%z%I%(%[%4L: %-20,20n%]%) %s\n" gnus-summary-line-format-spec] 6) (#$ . 2430)) (byte-code "! B! B!  B‡" [boundp gnus-article-mode-line-format-spec nil current-load-list gnus-summary-mode-line-format-spec gnus-group-mode-line-format-spec] 2) #@45 Update the format specification near point. (defalias 'gnus-update-format #[(var) " \" \"!\n &\" \"! !J\n \"!J \"?#L \"!J \n EB!  !c," [intern string-match "gnus-\\([-a-z]+\\)-line" var match-string 1 type gnus-format-specs entry nil value spec delq format "%s-spec" gnus-parse-format "%s-alist" "mode" pop-to-buffer "*Gnus Format*" erase-buffer lisp-interaction-mode pp-to-string] 8 (#$ . 2977) (list (save-excursion (eval-defun nil) (re-search-forward "[ \n]" nil t) (when (re-search-backward "\\(gnus-[-a-z]+-line-format\\)" nil t) (match-string 1))))]) #@47 Update all (necessary) format specifications. (defalias 'gnus-update-format-specifications #[(&optional force &rest types) " Aĉ A @\"!  !U JU !U !!U !q\"!J* A@@\"!A@L;=ւ\"!J!\"?#A  E B\"! L), ? B B" [force emacs-version version gnus-format-specs nil val type entry new-format types intern format "gnus-%s-buffer" buffer boundp get-buffer buffer-name "gnus-%s-line-format" "gnus-%s-line-format-spec" gnus-parse-format "gnus-%s-line-format-alist" article-mode summary-mode string-match "mode$" symbol-name] 8 (#$ . 3606)]) (byte-code "! B! B!  B!- B!: B" [boundp gnus-mouse-face-0 highlight current-load-list gnus-mouse-face-1 gnus-mouse-face-2 gnus-mouse-face-3 gnus-mouse-face-4] 2) (defalias 'gnus-mouse-face-function #[(form type) "\f\"BȚɂ\"!JD" [gnus-put-text-property (point) progn append form ((point)) gnus-mouse-face-prop type 0 gnus-mouse-face quote intern format "gnus-mouse-face-%d"] 9]) (byte-code "! B! B!! B!. B!; B" [boundp gnus-face-0 bold current-load-list gnus-face-1 italic gnus-face-2 bold-italic gnus-face-3 gnus-face-4] 2) (defalias 'gnus-face-face-function #[(form type) "\f\"B \"!JD" [gnus-put-text-property (point) progn append form ((point)) (quote face) quote intern format "gnus-face-%d" type] 9]) #@44 Return a form that limits EL to MAX-WIDTH. (defalias 'gnus-tilde-max-form #[(el max-width) " ! 9* D\nE W \nEE% \nF FP DDC\nE WF\nEEK\nFBBBE)" [abs max-width max el if > length 0 substring - (length el) let val eval (length val) (length val) (val)] 9 (#$ . 5136)]) #@46 Return a form that cuts CUT-WIDTH off of EL. (defalias 'gnus-tilde-cut-form #[(el cut-width) " ! 9* D\nE W! \nEF% \nE FP DDC\nE WG\nEFK\nEBBBE)" [abs cut-width cut el if > length 0 substring - (length el) let val eval (length val) (length val) (val)] 10 (#$ . 5446)]) #@54 Return a form that is blank when EL is IGNORE-VALUE. (defalias 'gnus-tilde-ignore-form #[(el ignore-value) "9 EFDDC EBBE" [el if equal ignore-value "" let val eval ("" val)] 6 (#$ . 5759)]) (defalias 'gnus-parse-format #[(format spec-alist &optional insert) "\n\"\f\n\f\"\n\f#" [string-match "\\`\\(.*\\)%[0-9]?[{(]\\(.*\\)%[0-9]?[})]\\(.*\n?\\)\\'" format gnus-parse-complex-format spec-alist gnus-parse-simple-format insert] 4]) (defalias 'gnus-parse-complex-format #[(format spec-alist) " ceb##\nebc#mʔ4!5!HULUeUYԂZװ!i!*!dbcebp!\"*B" [gnus-set-work-buffer format re-search-forward "\"" nil t replace-match "\\\"" "(\"" "%\\([0-9]+\\)?\\([{}()]\\)" 1 match-string "0" 2 0 delim number 40 123 "\"(" "mouse" "face" " " " \"" "\")\"" "\")" read form progn gnus-complex-form-to-spec spec-alist] 6]) (defalias 'gnus-complex-form-to-spec #[(form spec-alist) "\f\"\"" [delq nil mapcar #[(sform) "; \n#@\"!AA\n\"A@\"" [sform gnus-parse-simple-format spec-alist t intern format "gnus-%s-face-function" gnus-complex-form-to-spec] 4] form] 5]) (defalias 'gnus-parse-simple-format #[(format spec-alist &optional insert) " \n \f  ceb# `S!{!!ݔuݔTݕ{!b!up!@\n A@ \n> Y\n= [Y\n> Y\n= [Y\n> Y\n= [Y\n= ;  \"Y\n= Y \"YYgU+ug u`|c=Cc:=R\fDv g \"!DDv2AvA@!c c@5A@U5D5A@U5D5 5 \"55\"55\"55B):\nc@B: ) \"C瘃'@C@7@CA\\\fBSC@DC@DCD\"lE\"@ODF\"\"@\"EG\"\"@DBBC B \f B B ;  :H B." [0 nil elem-type tilde tilde-form ignore-value cut-width spec-beg pad-width value type user-defined dontinsert result elem fstring flist spec max-width gnus-set-work-buffer format 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 "%s" form error "Unknown tilde type: %s" 117 37 64 115 intern "gnus-user-format-function-%c" gnus-tmp-header spec-alist ("*" 115) number-to-string el 99 char-to-string 100 int-to-string gnus-tilde-ignore-form gnus-tilde-cut-form gnus-tilde-max-form buffer-string "" string-match "%c" "%d" insert princ "\\`\\(%[cs]\\)+\\'" "\\`%[sc][^%]+\\'" "\\`\\([^%]+\\)%[sc]\\([^%]+\\)\\'" "\\`\\([^%]+\\)%[sc]\\'" concat] 18]) #@76 Eval the format variable FORMAT, using ALIST. If PROPS, insert the result. (defalias 'gnus-eval-format #[(format &optional alist props) " \n # `\f!` #\f!)" [gnus-parse-format format alist props form gnus-add-text-properties eval] 4 (#$ . 8597)]) #@45 Byte-compile the user-defined format specs. (defalias 'gnus-compile #[nil "! ʼn \" g A @@=8 \"AA@<AA@@=AA@EM!AA!B B!\"-" [gnus-xemacs error "Can't compile specs under XEmacs" gnus-format-specs (unresolved callargs redefine) nil gnus-tmp-func entry byte-compile-warnings entries gnus-message 7 "Compiling format specs..." version delq byte-code lambda byte-compile gnus-byte-code emacs-version gnus-dribble-enter " " "Compiling user specs...done"] 5 (#$ . 8862) nil]) (provide (quote gnus-spec))