-;; gnus-cus.el --- User friendly customization of Gnus
-;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; gnus-cus.el --- User friendly customization of Gnus
+;; Copyright (C) 1995,96 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
;; Keywords: help, news
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Commentary:
(require 'custom)
(require 'gnus-ems)
+(require 'browse-url)
+(eval-when-compile (require 'cl))
;; The following is just helper functions and data, not ment to be set
;; by the user.
"turquoise"))
(defvar gnus-face-dark-name-list
- '("dark salmon" "firebrick"
- "dark green" "dark orange" "dark khaki" "dark violet"
- "dark turquoise"))
+ '("RoyalBlue" "firebrick"
+ "dark green" "OrangeRed" "dark khaki" "dark violet"
+ "SteelBlue4"))
+; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
+; DarkOlviveGreen4
(custom-declare '()
'((tag . "GNUS")
(doc . "\
-The coffe-brewing, all singing, all dancing, kitchen sink newsreader.")
+The coffee-brewing, all singing, all dancing, kitchen sink newsreader.")
(type . group)
(data ((tag . "Visual")
(doc . "\
If `visual' is disabled, there will be no menus and few faces. Most of
the visual customization options below will be ignored. GNUS will use
less space and be faster as a result.")
- (default . t)
+ (default .
+ (summary-highlight group-highlight
+ article-highlight
+ summary-menu group-menu article-menu
+ tree-highlight menu highlight
+ browse-menu server-menu
+ page-marker))
(name . gnus-visual)
(type . toggle))
((tag . "WWW Browser")
WWW Browser to call when clicking on an URL button in the article buffer.
You can choose between one of the predefined browsers, or `Other'.")
- (name . gnus-button-url)
- (default . w3-fetch)
+ (name . browse-url-browser-function)
(calculate . (cond ((boundp 'browse-url-browser-function)
browse-url-browser-function)
((fboundp 'w3-fetch)
(default . w3-fetch))
((tag . "Netscape")
(type . const)
- (default . gnus-netscape-open-url))
+ (default . browse-url-netscape))
((prompt . "Other")
(doc . "\
You must specify the name of a Lisp function here. The lisp function
((tag . "Article Display")
(doc . "Controls how the article buffer will look.
-The list below contains various filters you can use to change the look
-of the article. If you leave the list empty, the article will appear
-exactly as it is stored on the disk. The list entries will hide or
-highlight various parts of the article, making it easier to find the
-information you want.")
+If you leave the list empty, the article will appear exactly as it is
+stored on the disk. The list entries will hide or highlight various
+parts of the article, making it easier to find the information you
+want.")
(name . gnus-article-display-hook)
(type . list)
(default . (gnus-article-hide-headers-if-wanted
+ gnus-article-hide-boring-headers
gnus-article-treat-overstrike
gnus-article-maybe-highlight))
(data ((type . repeat)
underscore will be displayed as a single underlined letter. This
technique was developed for old line printers (think about it), and is
still in use on some newsgroups, in particular the ClariNet
-hierearchy.
+hierarchy.
")
(type . const)
(default .
(default . gnus-article-display-x-face))
((tag . "Unquote Printable")
(doc . "\
-Tranform MIME quoted printable into 8-bit characters.
+Transform MIME quoted printable into 8-bit characters.
Quoted printable is often seen by strings like `=EF' where you would
expect a non-English letter.
(default . gnus-article-highlight-some))
((tag . "Highlight Headers")
(doc . "\
-Highlight headers as specified by `Article Header Highligting'.
+Highlight headers as specified by `Article Header Highlighting'.
")
(type . const)
(default .
((eq gnus-background-mode 'dark)
(list (list "From" nil
(custom-face-lookup
- "SkyeBlue" nil nil t t nil))
+ "light blue" nil nil t t nil))
(list "Subject" nil
(custom-face-lookup
"pink" nil nil t t nil))
(custom-face-lookup
"cyan" nil nil t nil nil)
(custom-face-lookup
- "green"
+ "forestgreen"
nil nil nil t nil))))
(t
(list (list "From" nil
nil nil t t nil))
(list "Newsgroups:.*," nil
(custom-face-lookup
- "red" nil nil t t nil))
+ "indianred" nil nil t t nil))
(list ""
(custom-face-lookup
"DarkGreen"
(type . face))
((tag . "Summary Line Highlighting")
(doc . "\
-Controls the higlighting of summary buffer lines.
+Controls the highlighting of summary buffer lines.
Below is a list of `Form'/`Face' pairs. When deciding how a a
particular summary line should be displayed, each form is
(custom-face-lookup "pink" nil nil nil nil nil))
(cons '(and (> score default) (= mark gnus-ancient-mark))
- (custom-face-lookup "SkyBlue" nil nil t nil nil))
+ (custom-face-lookup "dark blue" nil nil t nil nil))
(cons '(and (< score default) (= mark gnus-ancient-mark))
(custom-face-lookup "SkyBlue" nil nil nil t nil))
(cons '(= mark gnus-ancient-mark)
)))))
(defun gnus-custom-import-cite-face-list (custom alist)
- ;; Backward compatible groking of light and dark.
+ ;; Backward compatible grokking of light and dark.
(cond ((eq alist 'light)
(setq alist (mapcar 'gnus-make-face gnus-face-light-name-list)))
((eq alist 'dark)