;ELC ;;; compiled by kwzh@gnu.ai.mit.edu on Sat Jul 20 02:09:11 1996 ;;; from file /home/gd/gnu/emacs/19.0/lisp/gnus-cus.el ;;; emacs version 19.31.94.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-cus.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!‡" [require custom gnus-ems browse-url] 2) (defalias 'gnus-make-face #[(color) "À ‰‰‰‰&‡" [custom-face-lookup color nil] 7]) (byte-code "ÀÁ!„ÂÁ BÀÄ!„, Æ=ƒ\"ÇÈ!ƒ\"È‚#ÉÊËÌÍÎϯÄ BÐÑÒ\"‡" [boundp gnus-face-light-name-list ("light blue" "light cyan" "light yellow" "light pink" "pale green" "beige" "orange" "magenta" "violet" "medium purple" "turquoise") current-load-list gnus-face-dark-name-list window-system x x-color-defined-p "dark blue" "royal blue" "firebrick" "dark green" "OrangeRed" "dark khaki" "dark violet" "SteelBlue4" custom-declare nil ((tag . "Gnus") (doc . "The coffee-brewing, all singing, all dancing, kitchen sink newsreader.") (type . group) (data ((tag . "Visual") (doc . "Gnus can be made colorful and fun or grey and dull as you wish.") (type . group) (data ((tag . "Visual") (doc . "Enable visual features.\nIf `visual' is disabled, there will be no menus and few faces. Most of\nthe visual customization options below will be ignored. Gnus will use\nless space and be faster as a result.") (default summary-highlight group-highlight article-highlight mouse-face summary-menu group-menu article-menu tree-highlight menu highlight browse-menu server-menu page-marker tree-menu binary-menu pick-menu grouplens-menu) (name . gnus-visual) (type . sexp)) ((tag . "WWW Browser") (doc . "WWW Browser to call when clicking on an URL button in the article buffer.\n\nYou can choose between one of the predefined browsers, or `Other'.") (name . browse-url-browser-function) (calculate cond ((boundp (quote browse-url-browser-function)) browse-url-browser-function) ((fboundp (quote w3-fetch)) (quote w3-fetch)) ((eq window-system (quote x)) (quote gnus-netscape-open-url))) (type . choice) (data ((tag . "W3") (type . const) (default . w3-fetch)) ((tag . "Netscape") (type . const) (default . browse-url-netscape)) ((prompt . "Other") (doc . "You must specify the name of a Lisp function here. The lisp function\nshould open a WWW browser when called with an URL (a string).\n") (default . __uninitialized__) (type . symbol)))) ((tag . "Mouse Face") (doc . "Face used for group or summary buffer mouse highlighting.\nThe line beneath the mouse pointer will be highlighted with this\nface.") (name . gnus-mouse-face) (calculate condition-case nil (if (gnus-visual-p (quote mouse-face) (quote highlight)) (if (boundp (quote gnus-mouse-face)) gnus-mouse-face (quote highlight)) (quote default)) (error (quote default))) (type . face)) ((tag . "Article Display") (doc . "Controls how the article buffer will look.\n\nIf you leave the list empty, the article will appear exactly as it is\nstored on the disk. The list entries will hide or highlight various\nparts of the article, making it easier to find the information you\nwant.") (name . gnus-article-display-hook) (type . list) (calculate if (and (string-match "xemacs" emacs-version) (featurep (quote xface))) (quote (gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight gnus-article-display-x-face)) (quote (gnus-article-hide-headers-if-wanted gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-maybe-highlight))) (data ((type . repeat) (header) (data (tag . "Filter") (type . choice) (data ((tag . "Treat Overstrike") (doc . "Convert use of overstrike into bold and underline.\n\nTwo identical letters separated by a backspace are displayed as a\nsingle bold letter, while a letter followed by a backspace and an\nunderscore will be displayed as a single underlined letter. This\ntechnique was developed for old line printers (think about it), and is\nstill in use on some newsgroups, in particular the ClariNet\nhierarchy.\n") (type . const) (default . gnus-article-treat-overstrike)) ((tag . "Word Wrap") (doc . "Format too long lines.\n") (type . const) (default . gnus-article-word-wrap)) ((tag . "Remove CR") (doc . "Remove carriage returns from an article.\n") (type . const) (default . gnus-article-remove-cr)) ((tag . "Display X-Face") (doc . "Look for an X-Face header and display it if present.\n\nSee also `X Face Command' for a definition of the external command\nused for decoding and displaying the face.\n") (type . const) (default . gnus-article-display-x-face)) ((tag . "Unquote Printable") (doc . "Transform MIME quoted printable into 8-bit characters.\n\nQuoted printable is often seen by strings like `=EF' where you would\nexpect a non-English letter.\n") (type . const) (default . gnus-article-de-quoted-unreadable)) ((tag . "Universal Time") (doc . "Convert date header to universal time.\n") (type . const) (default . gnus-article-date-ut)) ((tag . "Local Time") (doc . "Convert date header to local timezone.\n") (type . const) (default . gnus-article-date-local)) ((tag . "Lapsed Time") (doc . "Replace date header with a header showing the articles age.\n") (type . const) (default . gnus-article-date-lapsed)) ((tag . "Highlight") (doc . "Highlight headers, citations, signature, and buttons.\n") (type . const) (default . gnus-article-highlight)) ((tag . "Maybe Highlight") (doc . "Highlight headers, signature, and buttons if `Visual' is turned on.\n") (type . const) (default . gnus-article-maybe-highlight)) ((tag . "Highlight Some") (doc . "Highlight headers, signature, and buttons.\n") (type . const) (default . gnus-article-highlight-some)) ((tag . "Highlight Headers") (doc . "Highlight headers as specified by `Article Header Highlighting'.\n") (type . const) (default . gnus-article-highlight-headers)) ((tag . "Highlight Signature") (doc . "Highlight the signature as specified by `Article Signature Face'.\n") (type . const) (default . gnus-article-highlight-signature)) ((tag . "Citation") (doc . "Highlight the citations as specified by `Citation Faces'.\n") (type . const) (default . gnus-article-highlight-citation)) ((tag . "Hide") (doc . "Hide unwanted headers, excess citation, and the signature.\n") (type . const) (default . gnus-article-hide)) ((tag . "Hide Headers If Wanted") (doc . "Hide headers, but allow user to display them with `t' or `v'.\n") (type . const) (default . gnus-article-hide-headers-if-wanted)) ((tag . "Hide Headers") (doc . "Hide unwanted headers and possibly sort them as well.\nMost likely you want to use `Hide Headers If Wanted' instead.\n") (type . const) (default . gnus-article-hide-headers)) ((tag . "Hide Signature") (doc . "Hide the signature.\n") (type . const) (default . gnus-article-hide-signature)) ((tag . "Hide Excess Citations") (doc . "Hide excess citation.\n\nExcess is defined by `Citation Hide Percentage' and `Citation Hide Absolute'.\n") (type . const) (default . gnus-article-hide-citation-maybe)) ((tag . "Hide Citations") (doc . "Hide all cited text.\n") (type . const) (default . gnus-article-hide-citation)) ((tag . "Add Buttons") (doc . "Make URL's into clickable buttons.\n") (type . const) (default . gnus-article-add-buttons)) ((prompt . "Other") (doc . "Name of Lisp function to call.\n\nPush the `Filter' button to select one of the predefined filters.\n") (type . symbol))))))) ((tag . "Article Button Face") (doc . "Face used for highlighting buttons in the article buffer.\n\nAn article button is a piece of text that you can activate by pressing\n`RET' or `mouse-2' above it.") (name . gnus-article-button-face) (default . bold) (type . face)) ((tag . "Article Mouse Face") (doc . "Face used for mouse highlighting in the article buffer.\n\nArticle buttons will be displayed in this face when the cursor is\nabove them.") (name . gnus-article-mouse-face) (default . highlight) (type . face)) ((tag . "Article Signature Face") (doc . "Face used for highlighting a signature in the article buffer.") (name . gnus-signature-face) (default . italic) (type . face)) ((tag . "Article Header Highlighting") (doc . "Controls highlighting of article header.\n\nBelow is a list of article header names, and the faces used for\ndisplaying the name and content of the header. The `Header' field\nshould contain the name of the header. The field actually contains a\nregular expression that should match the beginning of the header line,\nbut if you don't know what a regular expression is, just write the\nname of the header. The second field is the `Name' field, which\ndetermines how the the header name (i.e. the part of the header left\nof the `:') is displayed. The third field is the `Content' field,\nwhich determines how the content (i.e. the part of the header right of\nthe `:') is displayed. \n\nIf you leave the last `Header' field in the list empty, the `Name' and\n`Content' fields will determine how headers not listed above are\ndisplayed. \n\nIf you only want to change the display of the name part for a specific\nheader, specify `None' in the `Content' field. Similarly, specify\n`None' in the `Name' field if you only want to leave the name part\nalone.") (name . gnus-header-face-alist) (type . list) (calculate cond ((not (eq gnus-display-type (quote color))) (quote (("" bold italic)))) ((eq gnus-background-mode (quote dark)) (list (list "From" nil (custom-face-lookup "light blue" nil nil t t nil)) (list "Subject" nil (custom-face-lookup "pink" nil nil t t nil)) (list "Newsgroups:.*," nil (custom-face-lookup "yellow" nil nil t t nil)) (list "" (custom-face-lookup "cyan" nil nil t nil nil) (custom-face-lookup "forestgreen" nil nil nil t nil)))) (t (list (list "From" nil (custom-face-lookup "MidnightBlue" nil nil t t nil)) (list "Subject" nil (custom-face-lookup "firebrick" nil nil t t nil)) (list "Newsgroups:.*," nil (custom-face-lookup "indianred" nil nil t t nil)) (list "" (custom-face-lookup "DarkGreen" nil nil t nil nil) (custom-face-lookup "DarkGreen" nil nil nil t nil))))) (data ((type . repeat) (header) (data (type . list) (compact . t) (data ((type . string) (prompt . "Header") (tag . "Header ")) "\n " ((type . face) (prompt . "Name") (tag . "Name ")) "\n " ((type . face) (tag . "Content")) "\n"))))) ((tag . "Attribution Face") (doc . "Face used for attribution lines.\nIt is merged with the face for the cited text belonging to the attribution.") (name . gnus-cite-attribution-face) (default . underline) (type . face)) ((tag . "Citation Faces") (doc . "List of faces used for highlighting citations. \n\nWhen there are citations from multiple articles in the same message,\nGnus will try to give each citation from each article its own face.\nThis should make it easier to see who wrote what.") (name . gnus-cite-face-list) (import . gnus-custom-import-cite-face-list) (type . list) (calculate cond ((not (eq gnus-display-type (quote color))) (quote (italic))) ((eq gnus-background-mode (quote dark)) (mapcar (quote gnus-make-face) gnus-face-light-name-list)) (t (mapcar (quote gnus-make-face) gnus-face-dark-name-list))) (data ((type . repeat) (header) (data (type . face) (tag . "Face"))))) ((tag . "Citation Hide Percentage") (doc . "Only hide excess citation if above this percentage of the body.") (name . gnus-cite-hide-percentage) (default . 50) (type . integer)) ((tag . "Citation Hide Absolute") (doc . "Only hide excess citation if above this number of lines in the body.") (name . gnus-cite-hide-absolute) (default . 10) (type . integer)) ((tag . "Summary Selected Face") (doc . "Face used for highlighting the current article in the summary buffer.") (name . gnus-summary-selected-face) (default . underline) (type . face)) ((tag . "Summary Line Highlighting") (doc . "Controls the highlighting of summary buffer lines. \n\nBelow is a list of `Form'/`Face' pairs. When deciding how a a\nparticular summary line should be displayed, each form is\nevaluated. The content of the face field after the first true form is\nused. You can change how those summary lines are displayed, by\nediting the face field. \n\nIt is also possible to change and add form fields, but currently that\nrequires an understanding of Lisp expressions. Hopefully this will\nchange in a future release. For now, you can use the following\nvariables in the Lisp expression:\n\nscore: The article's score\ndefault: The default article score.\nbelow: The score below which articles are automatically marked as read. \nmark: The article's mark.") (name . gnus-summary-highlight) (type . list) (calculate cond ((not (eq gnus-display-type (quote color))) (quote (((> score default) . bold) ((< score default) . italic)))) ((eq gnus-background-mode (quote dark)) (list (cons (quote (= mark gnus-canceled-mark)) (custom-face-lookup "yellow" "black" nil nil nil nil)) (cons (quote (and (> score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)))) (custom-face-lookup "pink" nil nil t nil nil)) (cons (quote (and (< score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)))) (custom-face-lookup "pink" nil nil nil t nil)) (cons (quote (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) (custom-face-lookup "pink" nil nil nil nil nil)) (cons (quote (and (> score default) (= mark gnus-ancient-mark))) (custom-face-lookup "medium blue" nil nil t nil nil)) (cons (quote (and (< score default) (= mark gnus-ancient-mark))) (custom-face-lookup "SkyBlue" nil nil nil t nil)) (cons (quote (= mark gnus-ancient-mark)) (custom-face-lookup "SkyBlue" nil nil nil nil nil)) (cons (quote (and (> score default) (= mark gnus-unread-mark))) (custom-face-lookup "white" nil nil t nil nil)) (cons (quote (and (< score default) (= mark gnus-unread-mark))) (custom-face-lookup "white" nil nil nil t nil)) (cons (quote (= mark gnus-unread-mark)) (custom-face-lookup "white" nil nil nil nil nil)) (cons (quote (> score default)) (quote bold)) (cons (quote (< score default)) (quote italic)))) (t (list (cons (quote (= mark gnus-canceled-mark)) (custom-face-lookup "yellow" "black" nil nil nil nil)) (cons (quote (and (> score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)))) (custom-face-lookup "firebrick" nil nil t nil nil)) (cons (quote (and (< score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)))) (custom-face-lookup "firebrick" nil nil nil t nil)) (cons (quote (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) (custom-face-lookup "firebrick" nil nil nil nil nil)) (cons (quote (and (> score default) (= mark gnus-ancient-mark))) (custom-face-lookup "RoyalBlue" nil nil t nil nil)) (cons (quote (and (< score default) (= mark gnus-ancient-mark))) (custom-face-lookup "RoyalBlue" nil nil nil t nil)) (cons (quote (= mark gnus-ancient-mark)) (custom-face-lookup "RoyalBlue" nil nil nil nil nil)) (cons (quote (and (> score default) (/= mark gnus-unread-mark))) (custom-face-lookup "DarkGreen" nil nil t nil nil)) (cons (quote (and (< score default) (/= mark gnus-unread-mark))) (custom-face-lookup "DarkGreen" nil nil nil t nil)) (cons (quote (/= mark gnus-unread-mark)) (custom-face-lookup "DarkGreen" nil nil nil nil nil)) (cons (quote (> score default)) (quote bold)) (cons (quote (< score default)) (quote italic))))) (data ((type . repeat) (header) (data (type . pair) (compact . t) (data ((type . sexp) (width . 60) (tag . "Form")) "\n " ((type . face) (tag . "Face")) "\n"))))) ((tag . "Group Line Highlighting") (doc . "Controls the highlighting of group buffer lines. \n\nBelow is a list of `Form'/`Face' pairs. When deciding how a a\nparticular group line should be displayed, each form is\nevaluated. The content of the face field after the first true form is\nused. You can change how those group lines are displayed by\nediting the face field. \n\nIt is also possible to change and add form fields, but currently that\nrequires an understanding of Lisp expressions. Hopefully this will\nchange in a future release. For now, you can use the following\nvariables in the Lisp expression:\n\ngroup: The name of the group.\nunread: The number of unread articles in the group.\nmethod: The select method used.\nmailp: Whether it's a mail group or not.\nlevel: The level of the group.\nscore: The score of the group.\nticked: The number of ticked articles.") (name . gnus-group-highlight) (type . list) (calculate cond ((not (eq gnus-display-type (quote color))) (quote ((mailp . bold) ((= unread 0) . italic)))) ((eq gnus-background-mode (quote dark)) (\` (((and (not mailp) (eq level 1)) \, (custom-face-lookup "PaleTurquoise" nil nil t)) ((and (not mailp) (eq level 2)) \, (custom-face-lookup "turquoise" nil nil t)) ((and (not mailp) (eq level 3)) \, (custom-face-lookup "MediumTurquoise" nil nil t)) ((and (not mailp) (>= level 4)) \, (custom-face-lookup "DarkTurquoise" nil nil t)) ((and mailp (eq level 1)) \, (custom-face-lookup "aquamarine1" nil nil t)) ((and mailp (eq level 2)) \, (custom-face-lookup "aquamarine2" nil nil t)) ((and mailp (eq level 3)) \, (custom-face-lookup "aquamarine3" nil nil t)) ((and mailp (>= level 4)) \, (custom-face-lookup "aquamarine4" nil nil t))))) (t (\` (((and (not mailp) (<= level 3)) \, (custom-face-lookup "ForestGreen" nil nil t)) ((and (not mailp) (eq level 4)) \, (custom-face-lookup "DarkGreen" nil nil t)) ((and (not mailp) (eq level 5)) \, (custom-face-lookup "CadetBlue4" nil nil t)) ((and mailp (eq level 1)) \, (custom-face-lookup "DeepPink3" nil nil t)) ((and mailp (eq level 2)) \, (custom-face-lookup "HotPink3" nil nil t)) ((and mailp (eq level 3)) \, (custom-face-lookup (if (and (eq window-system (quote x)) (x-color-defined-p "dark magenta")) "dark magenta" "maroon") nil nil t)) ((and mailp (eq level 4)) \, (custom-face-lookup "DeepPink4" nil nil t)) ((and mailp (> level 4)) \, (custom-face-lookup "DarkOrchid4" nil nil t)))))) (data ((type . repeat) (header) (data (type . pair) (compact . t) (data ((type . sexp) (width . 60) (tag . "Form")) "\n " ((type . face) (tag . "Face")) "\n")))))))))] 7) (defalias 'gnus-custom-import-cite-face-list #[(custom alist) "Á=ƒÂÃ\f\"‚Å=ƒÂÃ\"ÇÉ\"\"‡" [alist light mapcar gnus-make-face gnus-face-light-name-list dark gnus-face-dark-name-list custom-super custom import] 3]) (provide (quote gnus-cus))