cgit.sxemacs.org Git - gnus/blob - lisp/gnus-cus.el

   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
   7
   8 ;; This file is part of GNU Emacs.
   9
  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.
  14
  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.
  19
  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.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (require 'gnus-load)
  30 (require 'custom)
  31 (require 'gnus-ems)
  32 (require 'browse-url)
  33
  34 ;; The following is just helper functions and data, not meant to be set
  35 ;; by the user.
  36 (defun gnus-make-face (color)
  37   ;; Create entry for face with COLOR.
  38   (custom-face-lookup color nil nil nil nil nil))
  39
  40 (defvar gnus-face-light-name-list
  41   '("light blue" "light cyan" "light yellow" "light pink"
  42     "pale green" "beige" "orange" "magenta" "violet" "medium purple"
  43     "turquoise"))
  44
  45 (defvar gnus-face-dark-name-list
  46   '("dark blue" "firebrick" "dark green" "OrangeRed"
  47     "dark khaki" "dark violet" "SteelBlue4"))
  48 ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
  49 ; DarkOlviveGreen4
  50
  51 (custom-declare '()
  52   '((tag . "Gnus")
  53     (doc . "\
  54 The coffee-brewing, all singing, all dancing, kitchen sink newsreader.")
  55     (type . group)
  56     (data
  57      ((tag . "Visual")
  58       (doc . "\
  59 Gnus can be made colorful and fun or grey and dull as you wish.")
  60       (type . group)
  61       (data
  62        ((tag . "Visual")
  63         (doc . "Enable visual features.
  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
  66 less space and be faster as a result.")
  67         (default .
  68           (summary-highlight group-highlight
  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))
  76         (name . gnus-visual)
  77         (type . sexp))
  78        ((tag . "WWW Browser")
  79         (doc . "\
  80 WWW Browser to call when clicking on an URL button in the article buffer.
  81
  82 You can choose between one of the predefined browsers, or `Other'.")
  83         (name . browse-url-browser-function)
  84         (calculate . (cond ((boundp 'browse-url-browser-function)
  85                             browse-url-browser-function)
  86                            ((fboundp 'w3-fetch)
  87                             'w3-fetch)
  88                            ((eq window-system 'x)
  89                             'gnus-netscape-open-url)))
  90         (type . choice)
  91         (data
  92          ((tag . "W3")
  93           (type . const)
  94           (default . w3-fetch))
  95          ((tag . "Netscape")
  96           (type . const)
  97           (default . browse-url-netscape))
  98          ((prompt . "Other")
  99           (doc . "\
 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).
 102 ")
 103           (default . __uninitialized__)
 104           (type . symbol))))
 105        ((tag . "Mouse Face")
 106         (doc . "\
 107 Face used for group or summary buffer mouse highlighting.
 108 The line beneath the mouse pointer will be highlighted with this
 109 face.")
 110         (name . gnus-mouse-face)
 111         (calculate . (condition-case ()
 112                          (if (gnus-visual-p 'mouse-face 'highlight)
 113                              (if (boundp 'gnus-mouse-face)
 114                                  gnus-mouse-face
 115                                'highlight)
 116                            'default)
 117                        (error nil)))
 118         (type . face))
 119        ((tag . "Article Display")
 120         (doc . "Controls how the article buffer will look.
 121
 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
 125 want.")
 126         (name . gnus-article-display-hook)
 127         (type . list)
 128         (calculate
 129          . (if (and (string-match "xemacs" emacs-version)
 130                     (featurep 'xface))
 131                '(gnus-article-hide-headers-if-wanted
 132                 gnus-article-hide-boring-headers
 133                 gnus-article-treat-overstrike
 134                 gnus-article-maybe-highlight
 135                 gnus-article-display-x-face)
 136              '(gnus-article-hide-headers-if-wanted
 137               gnus-article-hide-boring-headers
 138               gnus-article-treat-overstrike
 139               gnus-article-maybe-highlight)))
 140         (data
 141          ((type . repeat)
 142           (header . nil)
 143           (data
 144            (tag . "Filter")
 145            (type . choice)
 146            (data
 147             ((tag . "Treat Overstrike")
 148              (doc . "\
 149 Convert use of overstrike into bold and underline.
 150
 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.
 157 ")
 158              (type . const)
 159              (default .
 160                gnus-article-treat-overstrike))
 161             ((tag . "Word Wrap")
 162              (doc . "\
 163 Format too long lines.
 164 ")
 165              (type . const)
 166              (default . gnus-article-word-wrap))
 167             ((tag . "Remove CR")
 168              (doc . "\
 169 Remove carriage returns from an article.
 170 ")
 171              (type . const)
 172              (default . gnus-article-remove-cr))
 173             ((tag . "Display X-Face")
 174              (doc . "\
 175 Look for an X-Face header and display it if present.
 176
 177 See also `X Face Command' for a definition of the external command
 178 used for decoding and displaying the face.
 179 ")
 180              (type . const)
 181              (default . gnus-article-display-x-face))
 182             ((tag . "Unquote Printable")
 183              (doc . "\
 184 Transform MIME quoted printable into 8-bit characters.
 185
 186 Quoted printable is often seen by strings like `=EF' where you would
 187 expect a non-English letter.
 188 ")
 189              (type . const)
 190              (default .
 191                gnus-article-de-quoted-unreadable))
 192             ((tag . "Universal Time")
 193              (doc . "\
 194 Convert date header to universal time.
 195 ")
 196              (type . const)
 197              (default . gnus-article-date-ut))
 198             ((tag . "Local Time")
 199              (doc . "\
 200 Convert date header to local timezone.
 201 ")
 202              (type . const)
 203              (default . gnus-article-date-local))
 204             ((tag . "Lapsed Time")
 205              (doc . "\
 206 Replace date header with a header showing the articles age.
 207 ")
 208              (type . const)
 209              (default . gnus-article-date-lapsed))
 210             ((tag . "Highlight")
 211              (doc . "\
 212 Highlight headers, citations, signature, and buttons.
 213 ")
 214              (type . const)
 215              (default . gnus-article-highlight))
 216             ((tag . "Maybe Highlight")
 217              (doc . "\
 218 Highlight headers, signature, and buttons if `Visual' is turned on.
 219 ")
 220              (type . const)
 221              (default .
 222                gnus-article-maybe-highlight))
 223             ((tag . "Highlight Some")
 224              (doc . "\
 225 Highlight headers, signature, and buttons.
 226 ")
 227              (type . const)
 228              (default . gnus-article-highlight-some))
 229             ((tag . "Highlight Headers")
 230              (doc . "\
 231 Highlight headers as specified by `Article Header Highlighting'.
 232 ")
 233              (type . const)
 234              (default .
 235                gnus-article-highlight-headers))
 236             ((tag . "Highlight Signature")
 237              (doc . "\
 238 Highlight the signature as specified by `Article Signature Face'.
 239 ")
 240              (type . const)
 241              (default .
 242                gnus-article-highlight-signature))
 243             ((tag . "Citation")
 244              (doc . "\
 245 Highlight the citations as specified by `Citation Faces'.
 246 ")
 247              (type . const)
 248              (default .
 249                gnus-article-highlight-citation))
 250             ((tag . "Hide")
 251              (doc . "\
 252 Hide unwanted headers, excess citation, and the signature.
 253 ")
 254              (type . const)
 255              (default . gnus-article-hide))
 256             ((tag . "Hide Headers If Wanted")
 257              (doc . "\
 258 Hide headers, but allow user to display them with `t' or `v'.
 259 ")
 260              (type . const)
 261              (default .
 262                gnus-article-hide-headers-if-wanted))
 263             ((tag . "Hide Headers")
 264              (doc . "\
 265 Hide unwanted headers and possibly sort them as well.
 266 Most likely you want to use `Hide Headers If Wanted' instead.
 267 ")
 268              (type . const)
 269              (default . gnus-article-hide-headers))
 270             ((tag . "Hide Signature")
 271              (doc . "\
 272 Hide the signature.
 273 ")
 274              (type . const)
 275              (default . gnus-article-hide-signature))
 276             ((tag . "Hide Excess Citations")
 277              (doc . "\
 278 Hide excess citation.
 279
 280 Excess is defined by `Citation Hide Percentage' and `Citation Hide Absolute'.
 281 ")
 282              (type . const)
 283              (default .
 284                gnus-article-hide-citation-maybe))
 285             ((tag . "Hide Citations")
 286              (doc . "\
 287 Hide all cited text.
 288 ")
 289              (type . const)
 290              (default . gnus-article-hide-citation))
 291             ((tag . "Add Buttons")
 292              (doc . "\
 293 Make URL's into clickable buttons.
 294 ")
 295              (type . const)
 296              (default . gnus-article-add-buttons))
 297             ((prompt . "Other")
 298              (doc . "\
 299 Name of Lisp function to call.
 300
 301 Push the `Filter' button to select one of the predefined filters.
 302 ")
 303              (type . symbol)))))))
 304        ((tag . "Article Button Face")
 305         (doc . "\
 306 Face used for highlighting buttons in the article buffer.
 307
 308 An article button is a piece of text that you can activate by pressing
 309 `RET' or `mouse-2' above it.")
 310         (name . gnus-article-button-face)
 311         (default . bold)
 312         (type . face))
 313        ((tag . "Article Mouse Face")
 314         (doc . "\
 315 Face used for mouse highlighting in the article buffer.
 316
 317 Article buttons will be displayed in this face when the cursor is
 318 above them.")
 319         (name . gnus-article-mouse-face)
 320         (default . highlight)
 321         (type . face))
 322        ((tag . "Article Signature Face")
 323         (doc . "\
 324 Face used for highlighting a signature in the article buffer.")
 325         (name . gnus-signature-face)
 326         (default . italic)
 327         (type . face))
 328        ((tag . "Article Header Highlighting")
 329         (doc . "\
 330 Controls highlighting of article header.
 331
 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 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.
 342
 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.
 346
 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
 350 alone.")
 351         (name . gnus-header-face-alist)
 352         (type . list)
 353         (calculate
 354          . (cond
 355             ((not (eq gnus-display-type 'color))
 356              '(("" bold italic)))
 357             ((eq gnus-background-mode 'dark)
 358              (list
 359               (list "From" nil
 360                     (custom-face-lookup "light blue" nil nil t t nil))
 361               (list "Subject" nil
 362                     (custom-face-lookup "pink" nil nil t t nil))
 363               (list "Newsgroups:.*," nil
 364                     (custom-face-lookup "yellow" nil nil t t nil))
 365               (list
 366                ""
 367                (custom-face-lookup "cyan" nil nil t nil nil)
 368                (custom-face-lookup "forestgreen" nil nil nil t
 369                                    nil))))
 370             (t
 371              (list
 372               (list "From" nil
 373                     (custom-face-lookup "MidnightBlue" nil nil t t nil))
 374               (list "Subject" nil
 375                     (custom-face-lookup "firebrick" nil nil t t nil))
 376               (list "Newsgroups:.*," nil
 377                     (custom-face-lookup "indianred" nil nil t t nil))
 378               (list ""
 379                     (custom-face-lookup
 380                      "DarkGreen" nil nil t nil nil)
 381                     (custom-face-lookup "DarkGreen" nil nil
 382                                         nil t nil))))))
 383         (data
 384          ((type . repeat)
 385           (header . nil)
 386           (data
 387            (type . list)
 388            (compact . t)
 389            (data
 390             ((type . string)
 391              (prompt . "Header")
 392              (tag . "Header "))
 393             "\n            "
 394             ((type . face)
 395              (prompt . "Name")
 396              (tag . "Name   "))
 397             "\n            "
 398             ((type . face)
 399              (tag . "Content"))
 400             "\n")))))
 401        ((tag . "Attribution Face")
 402         (doc . "\
 403 Face used for attribution lines.
 404 It is merged with the face for the cited text belonging to the attribution.")
 405         (name . gnus-cite-attribution-face)
 406         (default . underline)
 407         (type . face))
 408        ((tag . "Citation Faces")
 409         (doc . "\
 410 List of faces used for highlighting citations.
 411
 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.
 414 This should make it easier to see who wrote what.")
 415         (name . gnus-cite-face-list)
 416         (import . gnus-custom-import-cite-face-list)
 417         (type . list)
 418         (calculate . (cond ((not (eq gnus-display-type 'color))
 419                             '(italic))
 420                            ((eq gnus-background-mode 'dark)
 421                             (mapcar 'gnus-make-face
 422                                     gnus-face-light-name-list))
 423                            (t
 424                             (mapcar 'gnus-make-face
 425                                     gnus-face-dark-name-list))))
 426         (data
 427          ((type . repeat)
 428           (header . nil)
 429           (data (type . face)
 430                 (tag . "Face")))))
 431        ((tag . "Citation Hide Percentage")
 432         (doc . "\
 433 Only hide excess citation if above this percentage of the body.")
 434         (name . gnus-cite-hide-percentage)
 435         (default . 50)
 436         (type . integer))
 437        ((tag . "Citation Hide Absolute")
 438         (doc . "\
 439 Only hide excess citation if above this number of lines in the body.")
 440         (name . gnus-cite-hide-absolute)
 441         (default . 10)
 442         (type . integer))
 443        ((tag . "Summary Selected Face")
 444         (doc . "\
 445 Face used for highlighting the current article in the summary buffer.")
 446         (name . gnus-summary-selected-face)
 447         (default . underline)
 448         (type . face))
 449        ((tag . "Summary Line Highlighting")
 450         (doc . "\
 451 Controls the highlighting of summary buffer lines.
 452
 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.
 458
 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:
 463
 464 score:   The article's score
 465 default: The default article score.
 466 below:   The score below which articles are automatically marked as read.
 467 mark:    The article's mark.")
 468         (name . gnus-summary-highlight)
 469         (type . list)
 470         (calculate
 471          . (cond
 472             ((not (eq gnus-display-type 'color))
 473              '(((> score default) . bold)
 474                ((< score default) . italic)))
 475             ((eq gnus-background-mode 'dark)
 476              (list
 477               (cons
 478                '(= mark gnus-canceled-mark)
 479                (custom-face-lookup "yellow" "black" nil
 480                                    nil nil nil))
 481               (cons '(and (> score default)
 482                           (or (= mark gnus-dormant-mark)
 483                               (= mark gnus-ticked-mark)))
 484                     (custom-face-lookup
 485                      "pink" nil nil t nil nil))
 486               (cons '(and (< score default)
 487                           (or (= mark gnus-dormant-mark)
 488                               (= mark gnus-ticked-mark)))
 489                     (custom-face-lookup "pink" nil nil
 490                                         nil t nil))
 491               (cons '(or (= mark gnus-dormant-mark)
 492                          (= mark gnus-ticked-mark))
 493                     (custom-face-lookup
 494                      "pink" nil nil nil nil nil))
 495
 496               (cons
 497                '(and (> score default) (= mark gnus-ancient-mark))
 498                (custom-face-lookup "medium blue" nil nil t
 499                                    nil nil))
 500               (cons
 501                '(and (< score default) (= mark gnus-ancient-mark))
 502                (custom-face-lookup "SkyBlue" nil nil
 503                                    nil t nil))
 504               (cons
 505                '(= mark gnus-ancient-mark)
 506                (custom-face-lookup "SkyBlue" nil nil
 507                                    nil nil nil))
 508               (cons '(and (> score default) (= mark gnus-unread-mark))
 509                     (custom-face-lookup "white" nil nil t
 510                                         nil nil))
 511               (cons '(and (< score default) (= mark gnus-unread-mark))
 512                     (custom-face-lookup "white" nil nil
 513                                         nil t nil))
 514               (cons '(= mark gnus-unread-mark)
 515                     (custom-face-lookup
 516                      "white" nil nil nil nil nil))
 517
 518               (cons '(> score default) 'bold)
 519               (cons '(< score default) 'italic)))
 520             (t
 521              (list
 522               (cons
 523                '(= mark gnus-canceled-mark)
 524                (custom-face-lookup
 525                 "yellow" "black" nil nil nil nil))
 526               (cons '(and (> score default)
 527                           (or (= mark gnus-dormant-mark)
 528                               (= mark gnus-ticked-mark)))
 529                     (custom-face-lookup "firebrick" nil nil
 530                                         t nil nil))
 531               (cons '(and (< score default)
 532                           (or (= mark gnus-dormant-mark)
 533                               (= mark gnus-ticked-mark)))
 534                     (custom-face-lookup "firebrick" nil nil
 535                                         nil t nil))
 536               (cons
 537                '(or (= mark gnus-dormant-mark)
 538                     (= mark gnus-ticked-mark))
 539                (custom-face-lookup
 540                 "firebrick" nil nil nil nil nil))
 541
 542               (cons '(and (> score default) (= mark gnus-ancient-mark))
 543                     (custom-face-lookup "RoyalBlue" nil nil
 544                                         t nil nil))
 545               (cons '(and (< score default) (= mark gnus-ancient-mark))
 546                     (custom-face-lookup "RoyalBlue" nil nil
 547                                         nil t nil))
 548               (cons
 549                '(= mark gnus-ancient-mark)
 550                (custom-face-lookup
 551                 "RoyalBlue" nil nil nil nil nil))
 552
 553               (cons '(and (> score default) (/= mark gnus-unread-mark))
 554                     (custom-face-lookup "DarkGreen" nil nil
 555                                         t nil nil))
 556               (cons '(and (< score default) (/= mark gnus-unread-mark))
 557                     (custom-face-lookup "DarkGreen" nil nil
 558                                         nil t nil))
 559               (cons
 560                '(/= mark gnus-unread-mark)
 561                (custom-face-lookup "DarkGreen" nil nil
 562                                    nil nil nil))
 563
 564               (cons '(> score default) 'bold)
 565               (cons '(< score default) 'italic)))))
 566         (data
 567          ((type . repeat)
 568           (header . nil)
 569           (data (type . pair)
 570                 (compact . t)
 571                 (data ((type . sexp)
 572                        (width . 60)
 573                        (tag . "Form"))
 574                       "\n            "
 575                       ((type . face)
 576                        (tag . "Face"))
 577                       "\n")))))
 578
 579        ((tag . "Group Line Highlighting")
 580         (doc . "\
 581 Controls the highlighting of group buffer lines.
 582
 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.
 588
 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:
 593
 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.
 600 ticked: The number of ticked articles.")
 601         (name . gnus-group-highlight)
 602         (type . list)
 603         (calculate
 604          . (cond
 605             ((not (eq gnus-display-type 'color))
 606              '((mailp . bold)
 607                ((= unread 0) . italic)))
 608             ((eq gnus-background-mode 'dark)
 609              `(((and (not mailp) (eq level 1)) .
 610                 ,(custom-face-lookup "PaleTurquoise" nil nil t))
 611                ((and (not mailp) (eq level 2)) .
 612                 ,(custom-face-lookup "turquoise" nil nil t))
 613                ((and (not mailp) (eq level 3)) .
 614                 ,(custom-face-lookup "MediumTurquoise" nil nil t))
 615                ((and (not mailp) (>= level 4)) .
 616                 ,(custom-face-lookup "DarkTurquoise" nil nil t))
 617                ((and mailp (eq level 1)) .
 618                 ,(custom-face-lookup "aquamarine1" nil nil t))
 619                ((and mailp (eq level 2)) .
 620                 ,(custom-face-lookup "aquamarine2" nil nil t))
 621                ((and mailp (eq level 3)) .
 622                 ,(custom-face-lookup "aquamarine3" nil nil t))
 623                ((and mailp (>= level 4)) .
 624                 ,(custom-face-lookup "aquamarine4" nil nil t))
 625                ))
 626             (t
 627              `(((and (not mailp) (<= level 3)) .
 628                 ,(custom-face-lookup "ForestGreen" nil nil t))
 629                ((and (not mailp) (eq level 4)) .
 630                 ,(custom-face-lookup "DarkGreen" nil nil t))
 631                ((and (not mailp) (eq level 5)) .
 632                 ,(custom-face-lookup "CadetBlue4" nil nil t))
 633                ((and mailp (eq level 1)) .
 634                 ,(custom-face-lookup "DeepPink3" nil nil t))
 635                ((and mailp (eq level 2)) .
 636                 ,(custom-face-lookup "HotPink3" nil nil t))
 637                ((and mailp (eq level 3)) .
 638                 ,(custom-face-lookup "dark magenta" nil nil t))
 639                ((and mailp (eq level 4)) .
 640                 ,(custom-face-lookup "DeepPink4" nil nil t))
 641                ((and mailp (> level 4)) .
 642                 ,(custom-face-lookup "DarkOrchid4" nil nil t))
 643                ))))
 644         (data
 645          ((type . repeat)
 646           (header . nil)
 647           (data (type . pair)
 648                 (compact . t)
 649                 (data ((type . sexp)
 650                        (width . 60)
 651                        (tag . "Form"))
 652                       "\n            "
 653                       ((type . face)
 654                        (tag . "Face"))
 655                       "\n")))))
 656
 657        ;; Do not define `gnus-button-alist' before we have
 658        ;; some `complexity' attribute so we can hide it from
 659        ;; beginners.
 660        )))))
 661
 662 (defun gnus-custom-import-cite-face-list (custom alist)
 663   ;; Backward compatible grokking of light and dark.
 664   (cond ((eq alist 'light)
 665          (setq alist (mapcar 'gnus-make-face gnus-face-light-name-list)))
 666         ((eq alist 'dark)
 667          (setq alist (mapcar 'gnus-make-face gnus-face-dark-name-list))))
 668   (funcall (custom-super custom 'import) custom alist))
 669
 670 (provide 'gnus-cus)
 671
 672 ;;; gnus-cus.el ends here