| blob | a83d578bec18fe241b181fbf5c6bb23c44a28c48 |
1 ;;; gnus-cus.el --- User friendly customization of Gnus
2 ;; Copyright (C) 1995,96 Free Software Foundation, Inc.
3 ;;
4 ;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
5 ;; Keywords: help, news
6 ;; Version: 0.1
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
25 ;;; Commentary:
27 ;;; Code:
34 ;; The following is just helper functions and data, not meant to be set
35 ;; by the user.
37 ;; Create entry for face with COLOR.
47 ;; Not all servers have dark blue in rgb.txt.
49 "dark blue"
53 ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
54 ; DarkOlviveGreen4
69 If `visual' is disabled, there will be no menus and few faces. Most of
70 the visual customization options below will be ignored. Gnus will use
74 article-highlight
75 mouse-face
76 summary-menu group-menu article-menu
77 tree-highlight menu highlight
78 browse-menu server-menu
79 page-marker tree-menu binary-menu pick-menu
80 grouplens-menu))
85 WWW Browser to call when clicking on an URL button in the article buffer.
90 browse-url-browser-function)
105 You must specify the name of a Lisp function here. The lisp function
106 should open a WWW browser when called with an URL (a string).
112 Face used for group or summary buffer mouse highlighting.
113 The line beneath the mouse pointer will be highlighted with this
119 gnus-mouse-face
127 If you leave the list empty, the article will appear exactly as it is
128 stored on the disk. The list entries will hide or highlight various
129 parts of the article, making it easier to find the information you
137 gnus-article-hide-boring-headers
138 gnus-article-treat-overstrike
139 gnus-article-maybe-highlight
140 gnus-article-display-x-face)
142 gnus-article-hide-boring-headers
143 gnus-article-treat-overstrike
144 gnus-article-maybe-highlight)))
154 Convert use of overstrike into bold and underline.
156 Two identical letters separated by a backspace are displayed as a
157 single bold letter, while a letter followed by a backspace and an
158 underscore will be displayed as a single underlined letter. This
159 technique was developed for old line printers (think about it), and is
160 still in use on some newsgroups, in particular the ClariNet
161 hierarchy.
165 gnus-article-treat-overstrike))
168 Format too long lines.
174 Remove carriage returns from an article.
180 Look for an X-Face header and display it if present.
182 See also `X Face Command' for a definition of the external command
183 used for decoding and displaying the face.
189 Transform MIME quoted printable into 8-bit characters.
191 Quoted printable is often seen by strings like `=EF' where you would
192 expect a non-English letter.
196 gnus-article-de-quoted-unreadable))
199 Convert date header to universal time.
205 Convert date header to local timezone.
211 Replace date header with a header showing the articles age.
217 Highlight headers, citations, signature, and buttons.
223 Highlight headers, signature, and buttons if `Visual' is turned on.
227 gnus-article-maybe-highlight))
230 Highlight headers, signature, and buttons.
236 Highlight headers as specified by `Article Header Highlighting'.
240 gnus-article-highlight-headers))
243 Highlight the signature as specified by `Article Signature Face'.
247 gnus-article-highlight-signature))
250 Highlight the citations as specified by `Citation Faces'.
254 gnus-article-highlight-citation))
257 Hide unwanted headers, excess citation, and the signature.
263 Hide headers, but allow user to display them with `t' or `v'.
267 gnus-article-hide-headers-if-wanted))
270 Hide unwanted headers and possibly sort them as well.
271 Most likely you want to use `Hide Headers If Wanted' instead.
277 Hide the signature.
283 Hide excess citation.
285 Excess is defined by `Citation Hide Percentage' and `Citation Hide Absolute'.
289 gnus-article-hide-citation-maybe))
292 Hide all cited text.
298 Make URL's into clickable buttons.
304 Name of Lisp function to call.
306 Push the `Filter' button to select one of the predefined filters.
311 Face used for highlighting buttons in the article buffer.
313 An article button is a piece of text that you can activate by pressing
320 Face used for mouse highlighting in the article buffer.
322 Article buttons will be displayed in this face when the cursor is
335 Controls highlighting of article header.
337 Below is a list of article header names, and the faces used for
338 displaying the name and content of the header. The `Header' field
339 should contain the name of the header. The field actually contains a
340 regular expression that should match the beginning of the header line,
341 but if you don't know what a regular expression is, just write the
342 name of the header. The second field is the `Name' field, which
343 determines how the the header name (i.e. the part of the header left
344 of the `:') is displayed. The third field is the `Content' field,
345 which determines how the content (i.e. the part of the header right of
346 the `:') is displayed.
348 If you leave the last `Header' field in the list empty, the `Name' and
349 `Content' fields will determine how headers not listed above are
350 displayed.
352 If you only want to change the display of the name part for a specific
353 header, specify `None' in the `Content' field. Similarly, specify
354 `None' in the `Name' field if you only want to leave the name part
371 ""
374 nil))))
387 nil t nil))))))
408 Face used for attribution lines.
415 List of faces used for highlighting citations.
417 When there are citations from multiple articles in the same message,
418 Gnus will try to give each citation from each article its own face.
427 gnus-face-light-name-list))
430 gnus-face-dark-name-list))))
456 Controls the highlighting of summary buffer lines.
458 Below is a list of `Form'/`Face' pairs. When deciding how a a
459 particular summary line should be displayed, each form is
460 evaluated. The content of the face field after the first true form is
461 used. You can change how those summary lines are displayed, by
462 editing the face field.
464 It is also possible to change and add form fields, but currently that
465 requires an understanding of Lisp expressions. Hopefully this will
466 change in a future release. For now, you can use the following
467 variables in the Lisp expression:
469 score: The article's score
470 default: The default article score.
471 below: The score below which articles are automatically marked as read.
485 nil nil nil))
495 nil t nil))
504 nil nil))
508 nil t nil))
512 nil nil nil))
515 nil nil))
518 nil t nil))
535 t nil nil))
540 nil t nil))
549 t nil nil))
552 nil t nil))
560 t nil nil))
563 nil t nil))
567 nil nil nil))
586 Controls the highlighting of group buffer lines.
588 Below is a list of `Form'/`Face' pairs. When deciding how a a
589 particular group line should be displayed, each form is
590 evaluated. The content of the face field after the first true form is
591 used. You can change how those group lines are displayed by
592 editing the face field.
594 It is also possible to change and add form fields, but currently that
595 requires an understanding of Lisp expressions. Hopefully this will
596 change in a future release. For now, you can use the following
597 variables in the Lisp expression:
599 group: The name of the group.
600 unread: The number of unread articles in the group.
601 method: The select method used.
602 mailp: Whether it's a mail group or not.
603 level: The level of the group.
604 score: The score of the group.
630 ))
644 ;; Not all servers have dark magenta in rgb.txt.
647 "dark magenta"
649 nil nil t))
654 ))))
668 ;; Do not define `gnus-button-alist' before we have
669 ;; some `complexity' attribute so we can hide it from
670 ;; beginners.
671 )))))
674 ;; Backward compatible grokking of light and dark.
683 ;;; gnus-cus.el ends here