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

   1 ;;; gnus-art.el --- article mode commands for Gnus
   2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
   3 ;;        Free Software Foundation, Inc.
   4
   5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   6 ;; Keywords: news
   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 (eval-when-compile (require 'cl))
  30
  31 (require 'gnus)
  32 (require 'gnus-sum)
  33 (require 'gnus-spec)
  34 (require 'gnus-int)
  35 (require 'gnus-win)
  36 (require 'mm-bodies)
  37 (require 'mail-parse)
  38 (require 'mm-decode)
  39 (require 'mm-view)
  40 (require 'wid-edit)
  41 (require 'mm-uu)
  42
  43 (autoload 'gnus-msg-mail "gnus-msg" nil t)
  44 (autoload 'gnus-button-mailto "gnus-msg")
  45 (autoload 'gnus-button-reply "gnus-msg" nil t)
  46
  47 (defgroup gnus-article nil
  48   "Article display."
  49   :link '(custom-manual "(gnus)The Article Buffer")
  50   :group 'gnus)
  51
  52 (defgroup gnus-article-treat nil
  53   "Treating article parts."
  54   :link '(custom-manual "(gnus)Article Hiding")
  55   :group 'gnus-article)
  56
  57 (defgroup gnus-article-hiding nil
  58   "Hiding article parts."
  59   :link '(custom-manual "(gnus)Article Hiding")
  60   :group 'gnus-article)
  61
  62 (defgroup gnus-article-highlight nil
  63   "Article highlighting."
  64   :link '(custom-manual "(gnus)Article Highlighting")
  65   :group 'gnus-article
  66   :group 'gnus-visual)
  67
  68 (defgroup gnus-article-signature nil
  69   "Article signatures."
  70   :link '(custom-manual "(gnus)Article Signature")
  71   :group 'gnus-article)
  72
  73 (defgroup gnus-article-headers nil
  74   "Article headers."
  75   :link '(custom-manual "(gnus)Hiding Headers")
  76   :group 'gnus-article)
  77
  78 (defgroup gnus-article-washing nil
  79   "Special commands on articles."
  80   :link '(custom-manual "(gnus)Article Washing")
  81   :group 'gnus-article)
  82
  83 (defgroup gnus-article-emphasis nil
  84   "Fontisizing articles."
  85   :link '(custom-manual "(gnus)Article Fontisizing")
  86   :group 'gnus-article)
  87
  88 (defgroup gnus-article-saving nil
  89   "Saving articles."
  90   :link '(custom-manual "(gnus)Saving Articles")
  91   :group 'gnus-article)
  92
  93 (defgroup gnus-article-mime nil
  94   "Worshiping the MIME wonder."
  95   :link '(custom-manual "(gnus)Using MIME")
  96   :group 'gnus-article)
  97
  98 (defgroup gnus-article-buttons nil
  99   "Pushable buttons in the article buffer."
 100   :link '(custom-manual "(gnus)Article Buttons")
 101   :group 'gnus-article)
 102
 103 (defgroup gnus-article-various nil
 104   "Other article options."
 105   :link '(custom-manual "(gnus)Misc Article")
 106   :group 'gnus-article)
 107
 108 (defcustom gnus-ignored-headers
 109   '("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:"
 110     "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:"
 111     "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:"
 112     "^Content-Type:" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:"
 113     "^X-MimeOLE:" "^X-MSMail-Priority:" "^X-Priority:" "^X-Loop:"
 114     "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face"
 115     "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:"
 116     "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:"
 117     "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:"
 118     "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:"
 119     "^X-Poster:" "^X-Mail2News-Path:" "^X-Server-Date:" "^X-Cache:"
 120     "^Originator:" "^X-Problems-To:" "^X-Auth-User:" "^X-Post-Time:"
 121     "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+:" "^X-Mailing-List:"
 122     "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:" "^X-Orcpt:"
 123     "^Old-Received:" "^X-Pgp" "^X-Auth:" "^X-From-Line:"
 124     "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:"
 125     "^MBOX-Line" "^Priority:" "^X400-[-A-Za-z]+:"
 126     "^Status:" "^X-Gnus-Mail-Source:" "^Cancel-Lock:"
 127     "^X-FTN" "^X-EXP32-SerialNo:" "^Encoding:" "^Importance:"
 128     "^Autoforwarded:" "^Original-Encoded-Information-Types:" "^X-Ya-Pop3:"
 129     "^X-Face-Version:" "^X-Vms-To:" "^X-ML-NAME:" "^X-ML-COUNT:"
 130     "^Mailing-List:" "^X-finfo:" "^X-md5sum:" "^X-md5sum-Origin:"
 131     "^X-Sun-Charset:" "^X-Accept-Language:" "^X-Envelope-Sender:"
 132     "^List-[A-Za-z]+:" "^X-Listprocessor-Version:"
 133     "^X-Received:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:"
 134     "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:"
 135     "^X-Received:" "^Content-length:" "X-precedence:"
 136     "^X-Authenticated-User:" "^X-Comment" "^X-Report:" "^X-Abuse-Info:"
 137     "^X-HTTP-Proxy:" "^X-Mydeja-Info:" "^X-Copyright" "^X-No-Markup:"
 138     "^X-Abuse-Info:" "^X-From_:" "^X-Accept-Language:" "^Errors-To:"
 139     "^X-BeenThere:" "^X-Mailman-Version:" "^List-Help:" "^List-Post:"
 140     "^List-Subscribe:" "^List-Id:" "^List-Unsubscribe:" "^List-Archive:"
 141      "^X-Content-length:" "^X-Posting-Agent:" "^Original-Received:"
 142      "^X-Request-PGP:" "^X-Fingerprint:" "^X-WRIEnvto:" "^X-WRIEnvfrom:"
 143      "^X-Virus-Scanned:" "^X-Delivery-Agent:" "^Posted-Date:" "^X-Gateway:"
 144      "^X-Local-Origin:" "^X-Local-Destination:" "^X-UserInfo1:"
 145      "^X-Received-Date:")
 146   "*All headers that start with this regexp will be hidden.
 147 This variable can also be a list of regexps of headers to be ignored.
 148 If `gnus-visible-headers' is non-nil, this variable will be ignored."
 149   :type '(choice :custom-show nil
 150                  regexp
 151                  (repeat regexp))
 152   :group 'gnus-article-hiding)
 153
 154 (defcustom gnus-visible-headers
 155   "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:"
 156   "*All headers that do not match this regexp will be hidden.
 157 This variable can also be a list of regexp of headers to remain visible.
 158 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
 159   :type '(repeat :value-to-internal (lambda (widget value)
 160                                       (custom-split-regexp-maybe value))
 161                  :match (lambda (widget value)
 162                           (or (stringp value)
 163                               (widget-editable-list-match widget value)))
 164                  regexp)
 165   :group 'gnus-article-hiding)
 166
 167 (defcustom gnus-sorted-header-list
 168   '("^From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:"
 169     "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:")
 170   "*This variable is a list of regular expressions.
 171 If it is non-nil, headers that match the regular expressions will
 172 be placed first in the article buffer in the sequence specified by
 173 this list."
 174   :type '(repeat regexp)
 175   :group 'gnus-article-hiding)
 176
 177 (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
 178   "Headers that are only to be displayed if they have interesting data.
 179 Possible values in this list are:
 180
 181   'empty       Headers with no content.
 182   'newsgroups  Newsgroup identical to Gnus group.
 183   'to-address  To identical to To-address.
 184   'followup-to Followup-to identical to Newsgroups.
 185   'reply-to    Reply-to identical to From.
 186   'date        Date less than four days old.
 187   'long-to     To and/or Cc longer than 1024 characters.
 188   'many-to     Multiple To and/or Cc."
 189   :type '(set (const :tag "Headers with no content." empty)
 190               (const :tag "Newsgroups identical to Gnus group." newsgroups)
 191               (const :tag "To identical to To-address." to-address)
 192               (const :tag "Followup-to identical to Newsgroups." followup-to)
 193               (const :tag "Reply-to identical to From." reply-to)
 194               (const :tag "Date less than four days old." date)
 195               (const :tag "To and/or Cc longer than 1024 characters." long-to)
 196               (const :tag "Multiple To and/or Cc headers." many-to))
 197   :group 'gnus-article-hiding)
 198
 199 (defcustom gnus-signature-separator '("^-- $" "^-- *$")
 200   "Regexp matching signature separator.
 201 This can also be a list of regexps.  In that case, it will be checked
 202 from head to tail looking for a separator.  Searches will be done from
 203 the end of the buffer."
 204   :type '(repeat string)
 205   :group 'gnus-article-signature)
 206
 207 (defcustom gnus-signature-limit nil
 208   "Provide a limit to what is considered a signature.
 209 If it is a number, no signature may not be longer (in characters) than
 210 that number.  If it is a floating point number, no signature may be
 211 longer (in lines) than that number.  If it is a function, the function
 212 will be called without any parameters, and if it returns nil, there is
 213 no signature in the buffer.  If it is a string, it will be used as a
 214 regexp.  If it matches, the text in question is not a signature."
 215   :type '(choice (integer :value 200)
 216                  (number :value 4.0)
 217                  (function :value fun)
 218                  (regexp :value ".*"))
 219   :group 'gnus-article-signature)
 220
 221 (defcustom gnus-hidden-properties '(invisible t intangible t)
 222   "Property list to use for hiding text."
 223   :type 'sexp
 224   :group 'gnus-article-hiding)
 225
 226 ;; Fixme: This isn't the right thing for mixed graphical and and
 227 ;; non-graphical frames in a session.
 228 (defcustom gnus-article-x-face-command
 229   (if (featurep 'xemacs)
 230       (if (or (gnus-image-type-available-p 'xface)
 231               (gnus-image-type-available-p 'pbm))
 232           'gnus-display-x-face-in-from
 233         "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | ee -")
 234     (if (gnus-image-type-available-p 'pbm)
 235         'gnus-display-x-face-in-from
 236       "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \
 237 display -"))
 238   "*String or function to be executed to display an X-Face header.
 239 If it is a string, the command will be executed in a sub-shell
 240 asynchronously.  The compressed face will be piped to this command."
 241   :type `(choice string
 242                  (function-item gnus-display-x-face-in-from)
 243                  function)
 244   :version "21.1"
 245   :group 'gnus-article-washing)
 246
 247 (defcustom gnus-article-x-face-too-ugly nil
 248   "Regexp matching posters whose face shouldn't be shown automatically."
 249   :type '(choice regexp (const nil))
 250   :group 'gnus-article-washing)
 251
 252 (defcustom gnus-article-banner-alist nil
 253   "Banner alist for stripping.
 254 For example,
 255      ((egroups . \"^[ \\t\\n]*-------------------+\\\\( \\\\(e\\\\|Yahoo! \\\\)Groups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))"
 256   :version "21.1"
 257   :type '(repeat (cons symbol regexp))
 258   :group 'gnus-article-washing)
 259
 260 (gnus-define-group-parameter
 261  banner
 262  :variable-document
 263  "Alist of regexps (to match group names) and banner."
 264  :variable-group gnus-article-washing
 265  :parameter-type
 266  '(choice :tag "Banner"
 267           :value nil
 268           (const :tag "Remove signature" signature)
 269           (symbol :tag "Item in `gnus-article-banner-alist'" none)
 270           regexp
 271           (const :tag "None" nil))
 272  :parameter-document
 273  "If non-nil, specify how to remove `banners' from articles.
 274
 275 Symbol `signature' means to remove signatures delimited by
 276 `gnus-signature-separator'.  Any other symbol is used to look up a
 277 regular expression to match the banner in `gnus-article-banner-alist'.
 278 A string is used as a regular expression to match the banner
 279 directly.")
 280
 281 (defcustom gnus-emphasis-alist
 282   (let ((format
 283          "\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(%s\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)%s\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)")
 284         (types
 285          '(("\\*" "\\*" bold)
 286            ("_" "_" underline)
 287            ("/" "/" italic)
 288            ("_/" "/_" underline-italic)
 289            ("_\\*" "\\*_" underline-bold)
 290            ("\\*/" "/\\*" bold-italic)
 291            ("_\\*/" "/\\*_" underline-bold-italic))))
 292     `(,@(mapcar
 293          (lambda (spec)
 294            (list
 295             (format format (car spec) (cadr spec))
 296             2 3 (intern (format "gnus-emphasis-%s" (nth 2 spec)))))
 297          types)
 298         ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)"
 299          2 3 gnus-emphasis-underline)))
 300   "*Alist that says how to fontify certain phrases.
 301 Each item looks like this:
 302
 303   (\"_\\\\(\\\\w+\\\\)_\" 0 1 'underline)
 304
 305 The first element is a regular expression to be matched.  The second
 306 is a number that says what regular expression grouping used to find
 307 the entire emphasized word.  The third is a number that says what
 308 regexp grouping should be displayed and highlighted.  The fourth
 309 is the face used for highlighting."
 310   :type '(repeat (list :value ("" 0 0 default)
 311                        regexp
 312                        (integer :tag "Match group")
 313                        (integer :tag "Emphasize group")
 314                        face))
 315   :group 'gnus-article-emphasis)
 316
 317 (defcustom gnus-emphasize-whitespace-regexp "^[ \t]+\\|[ \t]*\n"
 318   "A regexp to describe whitespace which should not be emphasized.
 319 Typical values are \"^[ \\t]+\\\\|[ \\t]*\\n\" and \"[ \\t]+\\\\|[ \\t]*\\n\".
 320 The former avoids underlining of leading and trailing whitespace,
 321 and the latter avoids underlining any whitespace at all."
 322   :version "21.1"
 323   :group 'gnus-article-emphasis
 324   :type 'regexp)
 325
 326 (defface gnus-emphasis-bold '((t (:bold t)))
 327   "Face used for displaying strong emphasized text (*word*)."
 328   :group 'gnus-article-emphasis)
 329
 330 (defface gnus-emphasis-italic '((t (:italic t)))
 331   "Face used for displaying italic emphasized text (/word/)."
 332   :group 'gnus-article-emphasis)
 333
 334 (defface gnus-emphasis-underline '((t (:underline t)))
 335   "Face used for displaying underlined emphasized text (_word_)."
 336   :group 'gnus-article-emphasis)
 337
 338 (defface gnus-emphasis-underline-bold '((t (:bold t :underline t)))
 339   "Face used for displaying underlined bold emphasized text (_*word*_)."
 340   :group 'gnus-article-emphasis)
 341
 342 (defface gnus-emphasis-underline-italic '((t (:italic t :underline t)))
 343   "Face used for displaying underlined italic emphasized text (_/word/_)."
 344   :group 'gnus-article-emphasis)
 345
 346 (defface gnus-emphasis-bold-italic '((t (:bold t :italic t)))
 347   "Face used for displaying bold italic emphasized text (/*word*/)."
 348   :group 'gnus-article-emphasis)
 349
 350 (defface gnus-emphasis-underline-bold-italic
 351   '((t (:bold t :italic t :underline t)))
 352   "Face used for displaying underlined bold italic emphasized text.
 353 Esample: (_/*word*/_)."
 354   :group 'gnus-article-emphasis)
 355
 356 (defface gnus-emphasis-highlight-words
 357   '((t (:background "black" :foreground "yellow")))
 358   "Face used for displaying highlighted words."
 359   :group 'gnus-article-emphasis)
 360
 361 (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z"
 362   "Format for display of Date headers in article bodies.
 363 See `format-time-string' for the possible values.
 364
 365 The variable can also be function, which should return a complete Date
 366 header.  The function is called with one argument, the time, which can
 367 be fed to `format-time-string'."
 368   :type '(choice string symbol)
 369   :link '(custom-manual "(gnus)Article Date")
 370   :group 'gnus-article-washing)
 371
 372 (eval-and-compile
 373   (autoload 'mail-extract-address-components "mail-extr"))
 374
 375 (defcustom gnus-save-all-headers t
 376   "*If non-nil, don't remove any headers before saving."
 377   :group 'gnus-article-saving
 378   :type 'boolean)
 379
 380 (defcustom gnus-prompt-before-saving 'always
 381   "*This variable says how much prompting is to be done when saving articles.
 382 If it is nil, no prompting will be done, and the articles will be
 383 saved to the default files.  If this variable is `always', each and
 384 every article that is saved will be preceded by a prompt, even when
 385 saving large batches of articles.  If this variable is neither nil not
 386 `always', there the user will be prompted once for a file name for
 387 each invocation of the saving commands."
 388   :group 'gnus-article-saving
 389   :type '(choice (item always)
 390                  (item :tag "never" nil)
 391                  (sexp :tag "once" :format "%t\n" :value t)))
 392
 393 (defcustom gnus-saved-headers gnus-visible-headers
 394   "Headers to keep if `gnus-save-all-headers' is nil.
 395 If `gnus-save-all-headers' is non-nil, this variable will be ignored.
 396 If that variable is nil, however, all headers that match this regexp
 397 will be kept while the rest will be deleted before saving."
 398   :group 'gnus-article-saving
 399   :type 'regexp)
 400
 401 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
 402   "A function to save articles in your favourite format.
 403 The function must be interactively callable (in other words, it must
 404 be an Emacs command).
 405
 406 Gnus provides the following functions:
 407
 408 * gnus-summary-save-in-rmail (Rmail format)
 409 * gnus-summary-save-in-mail (Unix mail format)
 410 * gnus-summary-save-in-folder (MH folder)
 411 * gnus-summary-save-in-file (article format)
 412 * gnus-summary-save-body-in-file (article body)
 413 * gnus-summary-save-in-vm (use VM's folder format)
 414 * gnus-summary-write-to-file (article format -- overwrite)."
 415   :group 'gnus-article-saving
 416   :type '(radio (function-item gnus-summary-save-in-rmail)
 417                 (function-item gnus-summary-save-in-mail)
 418                 (function-item gnus-summary-save-in-folder)
 419                 (function-item gnus-summary-save-in-file)
 420                 (function-item gnus-summary-save-body-in-file)
 421                 (function-item gnus-summary-save-in-vm)
 422                 (function-item gnus-summary-write-to-file)))
 423
 424 (defcustom gnus-rmail-save-name 'gnus-plain-save-name
 425   "A function generating a file name to save articles in Rmail format.
 426 The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
 427   :group 'gnus-article-saving
 428   :type 'function)
 429
 430 (defcustom gnus-mail-save-name 'gnus-plain-save-name
 431   "A function generating a file name to save articles in Unix mail format.
 432 The function is called with NEWSGROUP, HEADERS, and optional LAST-FILE."
 433   :group 'gnus-article-saving
 434   :type 'function)
 435
 436 (defcustom gnus-folder-save-name 'gnus-folder-save-name
 437   "A function generating a file name to save articles in MH folder.
 438 The function is called with NEWSGROUP, HEADERS, and optional LAST-FOLDER."
 439   :group 'gnus-article-saving
 440   :type 'function)
 441
 442 (defcustom gnus-file-save-name 'gnus-numeric-save-name
 443   "A function generating a file name to save articles in article format.
 444 The function is called with NEWSGROUP, HEADERS, and optional
 445 LAST-FILE."
 446   :group 'gnus-article-saving
 447   :type 'function)
 448
 449 (defcustom gnus-split-methods
 450   '((gnus-article-archive-name)
 451     (gnus-article-nndoc-name))
 452   "*Variable used to suggest where articles are to be saved.
 453 For instance, if you would like to save articles related to Gnus in
 454 the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
 455 you could set this variable to something like:
 456
 457  '((\"^Subject:.*gnus\\|^Newsgroups:.*gnus\" \"gnus-stuff\")
 458    (\"^Subject:.*vm\\|^Xref:.*vm\" \"vm-stuff\"))
 459
 460 This variable is an alist where the where the key is the match and the
 461 value is a list of possible files to save in if the match is non-nil.
 462
 463 If the match is a string, it is used as a regexp match on the
 464 article.  If the match is a symbol, that symbol will be funcalled
 465 from the buffer of the article to be saved with the newsgroup as the
 466 parameter.  If it is a list, it will be evaled in the same buffer.
 467
 468 If this form or function returns a string, this string will be used as
 469 a possible file name; and if it returns a non-nil list, that list will
 470 be used as possible file names."
 471   :group 'gnus-article-saving
 472   :type '(repeat (choice (list :value (fun) function)
 473                          (cons :value ("" "") regexp (repeat string))
 474                          (sexp :value nil))))
 475
 476 (defcustom gnus-page-delimiter "^\^L"
 477   "*Regexp describing what to use as article page delimiters.
 478 The default value is \"^\^L\", which is a form linefeed at the
 479 beginning of a line."
 480   :type 'regexp
 481   :group 'gnus-article-various)
 482
 483 (defcustom gnus-article-mode-line-format "Gnus: %g [%w] %S%m"
 484   "*The format specification for the article mode line.
 485 See `gnus-summary-mode-line-format' for a closer description.
 486
 487 The following additional specs are available:
 488
 489 %w  The article washing status.
 490 %m  The number of MIME parts in the article."
 491   :type 'string
 492   :group 'gnus-article-various)
 493
 494 (defcustom gnus-article-mode-hook nil
 495   "*A hook for Gnus article mode."
 496   :type 'hook
 497   :group 'gnus-article-various)
 498
 499 (when (featurep 'xemacs)
 500   ;; Extracted from gnus-xmas-define in order to preserve user settings
 501   (when (fboundp 'turn-off-scroll-in-place)
 502     (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place))
 503   ;; Extracted from gnus-xmas-redefine in order to preserve user settings
 504   (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add))
 505
 506 (defcustom gnus-article-menu-hook nil
 507   "*Hook run after the creation of the article mode menu."
 508   :type 'hook
 509   :group 'gnus-article-various)
 510
 511 (defcustom gnus-article-prepare-hook nil
 512   "*A hook called after an article has been prepared in the article buffer."
 513   :type 'hook
 514   :group 'gnus-article-various)
 515
 516 (defcustom gnus-article-hide-pgp-hook nil
 517   "*A hook called after successfully hiding a PGP signature."
 518   :type 'hook
 519   :group 'gnus-article-various)
 520
 521 (defcustom gnus-article-button-face 'bold
 522   "Face used for highlighting buttons in the article buffer.
 523
 524 An article button is a piece of text that you can activate by pressing
 525 `RET' or `mouse-2' above it."
 526   :type 'face
 527   :group 'gnus-article-buttons)
 528
 529 (defcustom gnus-article-mouse-face 'highlight
 530   "Face used for mouse highlighting in the article buffer.
 531
 532 Article buttons will be displayed in this face when the cursor is
 533 above them."
 534   :type 'face
 535   :group 'gnus-article-buttons)
 536
 537 (defcustom gnus-signature-face 'gnus-signature-face
 538   "Face used for highlighting a signature in the article buffer.
 539 Obsolete; use the face `gnus-signature-face' for customizations instead."
 540   :type 'face
 541   :group 'gnus-article-highlight
 542   :group 'gnus-article-signature)
 543
 544 (defface gnus-signature-face
 545   '((t
 546      (:italic t)))
 547   "Face used for highlighting a signature in the article buffer."
 548   :group 'gnus-article-highlight
 549   :group 'gnus-article-signature)
 550
 551 (defface gnus-header-from-face
 552   '((((class color)
 553       (background dark))
 554      (:foreground "spring green"))
 555     (((class color)
 556       (background light))
 557      (:foreground "red3"))
 558     (t
 559      (:italic t)))
 560   "Face used for displaying from headers."
 561   :group 'gnus-article-headers
 562   :group 'gnus-article-highlight)
 563
 564 (defface gnus-header-subject-face
 565   '((((class color)
 566       (background dark))
 567      (:foreground "SeaGreen3"))
 568     (((class color)
 569       (background light))
 570      (:foreground "red4"))
 571     (t
 572      (:bold t :italic t)))
 573   "Face used for displaying subject headers."
 574   :group 'gnus-article-headers
 575   :group 'gnus-article-highlight)
 576
 577 (defface gnus-header-newsgroups-face
 578   '((((class color)
 579       (background dark))
 580      (:foreground "yellow" :italic t))
 581     (((class color)
 582       (background light))
 583      (:foreground "MidnightBlue" :italic t))
 584     (t
 585      (:italic t)))
 586   "Face used for displaying newsgroups headers."
 587   :group 'gnus-article-headers
 588   :group 'gnus-article-highlight)
 589
 590 (defface gnus-header-name-face
 591   '((((class color)
 592       (background dark))
 593      (:foreground "SeaGreen"))
 594     (((class color)
 595       (background light))
 596      (:foreground "maroon"))
 597     (t
 598      (:bold t)))
 599   "Face used for displaying header names."
 600   :group 'gnus-article-headers
 601   :group 'gnus-article-highlight)
 602
 603 (defface gnus-header-content-face
 604   '((((class color)
 605       (background dark))
 606      (:foreground "forest green" :italic t))
 607     (((class color)
 608       (background light))
 609      (:foreground "indianred4" :italic t))
 610     (t
 611      (:italic t)))  "Face used for displaying header content."
 612   :group 'gnus-article-headers
 613   :group 'gnus-article-highlight)
 614
 615 (defcustom gnus-header-face-alist
 616   '(("From" nil gnus-header-from-face)
 617     ("Subject" nil gnus-header-subject-face)
 618     ("Newsgroups:.*," nil gnus-header-newsgroups-face)
 619     ("" gnus-header-name-face gnus-header-content-face))
 620   "*Controls highlighting of article header.
 621
 622 An alist of the form (HEADER NAME CONTENT).
 623
 624 HEADER is a regular expression which should match the name of an
 625 header header and NAME and CONTENT are either face names or nil.
 626
 627 The name of each header field will be displayed using the face
 628 specified by the first element in the list where HEADER match the
 629 header name and NAME is non-nil.  Similarly, the content will be
 630 displayed by the first non-nil matching CONTENT face."
 631   :group 'gnus-article-headers
 632   :group 'gnus-article-highlight
 633   :type '(repeat (list (regexp :tag "Header")
 634                        (choice :tag "Name"
 635                                (item :tag "skip" nil)
 636                                (face :value default))
 637                        (choice :tag "Content"
 638                                (item :tag "skip" nil)
 639                                (face :value default)))))
 640
 641 (defcustom gnus-article-decode-hook
 642   '(article-decode-charset article-decode-encoded-words
 643                            article-decode-group-name)
 644   "*Hook run to decode charsets in articles."
 645   :group 'gnus-article-headers
 646   :type 'hook)
 647
 648 (defcustom gnus-display-mime-function 'gnus-display-mime
 649   "Function to display MIME articles."
 650   :group 'gnus-article-mime
 651   :type 'function)
 652
 653 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
 654   "Function used to decode headers.")
 655
 656 (defvar gnus-article-dumbquotes-map
 657   '(("\200" "EUR")
 658     ("\202" ",")
 659     ("\203" "f")
 660     ("\204" ",,")
 661     ("\205" "...")
 662     ("\213" "<")
 663     ("\214" "OE")