| blob | 37a30b00a84b98ecb6d6c57a86f6d05873432dd1 |
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.
48 ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
49 ; DarkOlviveGreen4
64 If `visual' is disabled, there will be no menus and few faces. Most of
65 the visual customization options below will be ignored. Gnus will use
69 article-highlight
70 mouse-face
71 summary-menu group-menu article-menu
72 tree-highlight menu highlight
73 browse-menu server-menu
74 page-marker tree-menu binary-menu pick-menu
75 grouplens-menu))
80 WWW Browser to call when clicking on an URL button in the article buffer.
85 browse-url-browser-function)
100 You must specify the name of a Lisp function here. The lisp function
101 should open a WWW browser when called with an URL (a string).
107 Face used for group or summary buffer mouse highlighting.
108 The line beneath the mouse pointer will be highlighted with this
114 gnus-mouse-face
122 If you leave the list empty, the article will appear exactly as it is
123 stored on the disk. The list entries will hide or highlight various
124 parts of the article, making it easier to find the information you
132 gnus-article-hide-boring-headers
133 gnus-article-treat-overstrike
134 gnus-article-maybe-highlight
135 gnus-article-display-x-face)
137 gnus-article-hide-boring-headers
138 gnus-article-treat-overstrike
139 gnus-article-maybe-highlight)))
149 Convert use of overstrike into bold and underline.
151 Two identical letters separated by a backspace are displayed as a
152 single bold letter, while a letter followed by a backspace and an
153 underscore will be displayed as a single underlined letter. This
154 technique was developed for old line printers (think about it), and is
155 still in use on some newsgroups, in particular the ClariNet
156 hierarchy.
160 gnus-article-treat-overstrike))
163 Format too long lines.
169 Remove carriage returns from an article.
175 Look for an X-Face header and display it if present.
177 See also `X Face Command' for a definition of the external command
178 used for decoding and displaying the face.
184 Transform MIME quoted printable into 8-bit characters.
186 Quoted printable is often seen by strings like `=EF' where you would
187 expect a non-English letter.
191 gnus-article-de-quoted-unreadable))
194 Convert date header to universal time.
200 Convert date header to local timezone.
206 Replace date header with a header showing the articles age.
212 Highlight headers, citations, signature, and buttons.
218 Highlight headers, signature, and buttons if `Visual' is turned on.
222 gnus-article-maybe-highlight))
225 Highlight headers, signature, and buttons.
231 Highlight headers as specified by `Article Header Highlighting'.
235 gnus-article-highlight-headers))
238 Highlight the signature as specified by `Article Signature Face'.
242 gnus-article-highlight-signature))
245 Highlight the citations as specified by `Citation Faces'.
249 gnus-article-highlight-citation))
252 Hide unwanted headers, excess citation, and the signature.
258 Hide headers, but allow user to display them with `t' or `v'.
262 gnus-article-hide-headers-if-wanted))
265 Hide unwanted headers and possibly sort them as well.
266 Most likely you want to use `Hide Headers If Wanted' instead.
272 Hide the signature.
278 Hide excess citation.
280 Excess is defined by `Citation Hide Percentage' and `Citation Hide Absolute'.
284 gnus-article-hide-citation-maybe))
287 Hide all cited text.
293 Make URL's into clickable buttons.
299 Name of Lisp function to call.
301 Push the `Filter' button to select one of the predefined filters.
306 Face used for highlighting buttons in the article buffer.
308 An article button is a piece of text that you can activate by pressing
315 Face used for mouse highlighting in the article buffer.
317 Article buttons will be displayed in this face when the cursor is
330 Controls highlighting of article header.
332 Below is a list of article header names, and the faces used for
333 displaying the name and content of the header. The `Header' field
334 should contain the name of the header. The field actually contains a
335 regular expression that should match the beginning of the header line,
336 but if you don't know what a regular expression is, just write the
337 name of the header. The second field is the `Name' field, which
338 determines how the the header name (i.e. the part of the header left
339 of the `:') is displayed. The third field is the `Content' field,
340 which determines how the content (i.e. the part of the header right of
341 the `:') is displayed.
343 If you leave the last `Header' field in the list empty, the `Name' and
344 `Content' fields will determine how headers not listed above are
345 displayed.
347 If you only want to change the display of the name part for a specific
348 header, specify `None' in the `Content' field. Similarly, specify
349 `None' in the `Name' field if you only want to leave the name part
366 ""
369 nil))))
382 nil t nil))))))
403 Face used for attribution lines.
410 List of faces used for highlighting citations.
412 When there are citations from multiple articles in the same message,
413 Gnus will try to give each citation from each article its own face.
422 gnus-face-light-name-list))
425 gnus-face-dark-name-list))))
451 Controls the highlighting of summary buffer lines.
453 Below is a list of `Form'/`Face' pairs. When deciding how a a
454 particular summary line should be displayed, each form is
455 evaluated. The content of the face field after the first true form is
456 used. You can change how those summary lines are displayed, by
457 editing the face field.
459 It is also possible to change and add form fields, but currently that
460 requires an understanding of Lisp expressions. Hopefully this will
461 change in a future release. For now, you can use the following
462 variables in the Lisp expression:
464 score: The article's score
465 default: The default article score.
466 below: The score below which articles are automatically marked as read.
480 nil nil nil))
490 nil t nil))
499 nil nil))
503 nil t nil))
507 nil nil nil))
510 nil nil))
513 nil t nil))
530 t nil nil))
535 nil t nil))
544 t nil nil))
547 nil t nil))
555 t nil nil))
558 nil t nil))
562 nil nil nil))
581 Controls the highlighting of group buffer lines.
583 Below is a list of `Form'/`Face' pairs. When deciding how a a
584 particular group line should be displayed, each form is
585 evaluated. The content of the face field after the first true form is
586 used. You can change how those group lines are displayed by
587 editing the face field.
589 It is also possible to change and add form fields, but currently that
590 requires an understanding of Lisp expressions. Hopefully this will
591 change in a future release. For now, you can use the following
592 variables in the Lisp expression:
594 group: The name of the group.
595 unread: The number of unread articles in the group.
596 method: The select method used.
597 mailp: Whether it's a mail group or not.
598 level: The level of the group.
599 score: The score of the group.
625 ))
643 ))))
657 ;; Do not define `gnus-button-alist' before we have
658 ;; some `complexity' attribute so we can hide it from
659 ;; beginners.
660 )))))
663 ;; Backward compatible grokking of light and dark.
672 ;;; gnus-cus.el ends here