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

   1 ;;; gnus-sum.el --- summary mode commands for Gnus
   2
   3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   4 ;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
   5
   6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   7 ;; Keywords: news
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;;; Code:
  27
  28 ;; For Emacs < 22.2.
  29 (eval-and-compile
  30   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
  31 (eval-when-compile
  32   (require 'cl))
  33 (eval-when-compile
  34   (when (featurep 'xemacs)
  35     (require 'easy-mmode))) ; for `define-minor-mode'
  36
  37 (defvar tool-bar-mode)
  38 (defvar gnus-tmp-header)
  39
  40 (require 'gnus)
  41 (require 'gnus-group)
  42 (require 'gnus-spec)
  43 (require 'gnus-range)
  44 (require 'gnus-int)
  45 (require 'gnus-undo)
  46 (require 'gnus-util)
  47 (require 'gmm-utils)
  48 (require 'mm-decode)
  49 (require 'nnoo)
  50
  51 (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  52 (autoload 'gnus-cache-write-active "gnus-cache")
  53 (autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
  54 (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
  55 (autoload 'gnus-pick-line-number "gnus-salt" nil t)
  56 (autoload 'mm-uu-dissect "mm-uu")
  57 (autoload 'gnus-article-outlook-deuglify-article "deuglify"
  58   "Deuglify broken Outlook (Express) articles and redisplay."
  59   t)
  60 (autoload 'gnus-article-outlook-unwrap-lines "deuglify" nil t)
  61 (autoload 'gnus-article-outlook-repair-attribution "deuglify" nil t)
  62 (autoload 'gnus-article-outlook-rearrange-citation "deuglify" nil t)
  63
  64 (defcustom gnus-kill-summary-on-exit t
  65   "*If non-nil, kill the summary buffer when you exit from it.
  66 If nil, the summary will become a \"*Dead Summary*\" buffer, and
  67 it will be killed sometime later."
  68   :group 'gnus-summary-exit
  69   :type 'boolean)
  70
  71 (defcustom gnus-summary-next-group-on-exit t
  72   "If non-nil, go to the next unread newsgroup on summary exit.
  73 See `gnus-group-goto-unread'."
  74   :link '(custom-manual "(gnus)Group Maneuvering")
  75   :group 'gnus-summary-exit
  76   :version "23.1" ;; No Gnus
  77   :type 'boolean)
  78
  79 (defcustom gnus-summary-stop-at-end-of-message nil
  80   "If non-nil, don't select the next message when using `SPC'."
  81   :link '(custom-manual "(gnus)Group Maneuvering")
  82   :group 'gnus-summary-maneuvering
  83   :version "24.1"
  84   :type 'boolean)
  85
  86 (defcustom gnus-fetch-old-headers nil
  87   "*Non-nil means that Gnus will try to build threads by grabbing old headers.
  88 If an unread article in the group refers to an older, already
  89 read (or just marked as read) article, the old article will not
  90 normally be displayed in the Summary buffer.  If this variable is
  91 t, Gnus will attempt to grab the headers to the old articles, and
  92 thereby build complete threads.  If it has the value `some', all
  93 old headers will be fetched but only enough headers to connect
  94 otherwise loose threads will be displayed.  This variable can
  95 also be a number.  In that case, no more than that number of old
  96 headers will be fetched.  If it has the value `invisible', all
  97 old headers will be fetched, but none will be displayed.
  98
  99 The server has to support NOV for any of this to work.
 100
 101 This feature can seriously impact performance it ignores all
 102 locally cached header entries.  Setting it to t for groups for a
 103 server that doesn't expire articles (such as news.gmane.org),
 104 leads to very slow summary generation."
 105   :group 'gnus-thread
 106   :type '(choice (const :tag "off" nil)
 107                  (const :tag "on" t)
 108                  (const some)
 109                  (const invisible)
 110                  number
 111                  (sexp :menu-tag "other" t)))
 112
 113 (defcustom gnus-refer-thread-limit 500
 114   "*The number of old headers to fetch when doing \\<gnus-summary-mode-map>\\[gnus-summary-refer-thread].
 115 If t, fetch all the available old headers."
 116   :group 'gnus-thread
 117   :type '(choice number
 118                  (sexp :menu-tag "other" t)))
 119
 120 (defcustom gnus-summary-make-false-root 'adopt
 121   "*nil means that Gnus won't gather loose threads.
 122 If the root of a thread has expired or been read in a previous
 123 session, the information necessary to build a complete thread has been
 124 lost.  Instead of having many small sub-threads from this original thread
 125 scattered all over the summary buffer, Gnus can gather them.
 126
 127 If non-nil, Gnus will try to gather all loose sub-threads from an
 128 original thread into one large thread.
 129
 130 If this variable is non-nil, it should be one of `none', `adopt',
 131 `dummy' or `empty'.
 132
 133 If this variable is `none', Gnus will not make a false root, but just
 134 present the sub-threads after another.
 135 If this variable is `dummy', Gnus will create a dummy root that will
 136 have all the sub-threads as children.
 137 If this variable is `adopt', Gnus will make one of the \"children\"
 138 the parent and mark all the step-children as such.
 139 If this variable is `empty', the \"children\" are printed with empty
 140 subject fields.  (Or rather, they will be printed with a string
 141 given by the `gnus-summary-same-subject' variable.)"
 142   :group 'gnus-thread
 143   :type '(choice (const :tag "off" nil)
 144                  (const none)
 145                  (const dummy)
 146                  (const adopt)
 147                  (const empty)))
 148
 149 (defcustom gnus-summary-make-false-root-always nil
 150   "Always make a false dummy root."
 151   :version "22.1"
 152   :group 'gnus-thread
 153   :type 'boolean)
 154
 155 (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
 156   "*A regexp to match subjects to be excluded from loose thread gathering.
 157 As loose thread gathering is done on subjects only, that means that
 158 there can be many false gatherings performed.  By rooting out certain
 159 common subjects, gathering might become saner."
 160   :group 'gnus-thread
 161   :type 'regexp)
 162
 163 (defcustom gnus-summary-gather-subject-limit nil
 164   "*Maximum length of subject comparisons when gathering loose threads.
 165 Use nil to compare full subjects.  Setting this variable to a low
 166 number will help gather threads that have been corrupted by
 167 newsreaders chopping off subject lines, but it might also mean that
 168 unrelated articles that have subject that happen to begin with the
 169 same few characters will be incorrectly gathered.
 170
 171 If this variable is `fuzzy', Gnus will use a fuzzy algorithm when
 172 comparing subjects."
 173   :group 'gnus-thread
 174   :type '(choice (const :tag "off" nil)
 175                  (const fuzzy)
 176                  (sexp :menu-tag "on" t)))
 177
 178 (defcustom gnus-simplify-subject-functions nil
 179   "List of functions taking a string argument that simplify subjects.
 180 The functions are applied recursively.
 181
 182 Useful functions to put in this list include:
 183 `gnus-simplify-subject-re', `gnus-simplify-subject-fuzzy',
 184 `gnus-simplify-whitespace', and `gnus-simplify-all-whitespace'."
 185   :group 'gnus-thread
 186   :type '(repeat function))
 187
 188 (defcustom gnus-simplify-ignored-prefixes nil
 189   "*Remove matches for this regexp from subject lines when simplifying fuzzily."
 190   :group 'gnus-thread
 191   :type '(choice (const :tag "off" nil)
 192                  regexp))
 193
 194 (defcustom gnus-build-sparse-threads nil
 195   "*If non-nil, fill in the gaps in threads.
 196 If `some', only fill in the gaps that are needed to tie loose threads
 197 together.  If `more', fill in all leaf nodes that Gnus can find.  If
 198 non-nil and non-`some', fill in all gaps that Gnus manages to guess."
 199   :group 'gnus-thread
 200   :type '(choice (const :tag "off" nil)
 201                  (const some)
 202                  (const more)
 203                  (sexp :menu-tag "all" t)))
 204
 205 (defcustom gnus-summary-thread-gathering-function
 206   'gnus-gather-threads-by-subject
 207   "*Function used for gathering loose threads.
 208 There are two pre-defined functions: `gnus-gather-threads-by-subject',
 209 which only takes Subjects into consideration; and
 210 `gnus-gather-threads-by-references', which compared the References
 211 headers of the articles to find matches."
 212   :group 'gnus-thread
 213   :type '(radio (function-item gnus-gather-threads-by-subject)
 214                 (function-item gnus-gather-threads-by-references)
 215                 (function :tag "other")))
 216
 217 (defcustom gnus-summary-same-subject ""
 218   "*String indicating that the current article has the same subject as the previous.
 219 This variable will only be used if the value of
 220 `gnus-summary-make-false-root' is `empty'."
 221   :group 'gnus-summary-format
 222   :type 'string)
 223
 224 (defcustom gnus-summary-goto-unread nil
 225   "*If t, many commands will go to the next unread article.
 226 This applies to marking commands as well as other commands that
 227 \"naturally\" select the next article, like, for instance, `SPC' at
 228 the end of an article.
 229
 230 If nil, the marking commands do NOT go to the next unread article
 231 \(they go to the next article instead).  If `never', commands that
 232 usually go to the next unread article, will go to the next article,
 233 whether it is read or not."
 234   :version "24.1"
 235   :group 'gnus-summary-marks
 236   :link '(custom-manual "(gnus)Setting Marks")
 237   :type '(choice (const :tag "off" nil)
 238                  (const never)
 239                  (sexp :menu-tag "on" t)))
 240
 241 (defcustom gnus-summary-default-score 0
 242   "*Default article score level.
 243 All scores generated by the score files will be added to this score.
 244 If this variable is nil, scoring will be disabled."
 245   :group 'gnus-score-default
 246   :type '(choice (const :tag "disable")
 247                  integer))
 248
 249 (defcustom gnus-summary-default-high-score 0
 250   "*Default threshold for a high scored article.
 251 An article will be highlighted as high scored if its score is greater
 252 than this score."
 253   :version "22.1"
 254   :group 'gnus-score-default
 255   :type 'integer)
 256
 257 (defcustom gnus-summary-default-low-score 0
 258   "*Default threshold for a low scored article.
 259 An article will be highlighted as low scored if its score is smaller
 260 than this score."
 261   :version "22.1"
 262   :group 'gnus-score-default
 263   :type 'integer)
 264
 265 (defcustom gnus-summary-zcore-fuzz 0
 266   "*Fuzziness factor for the zcore in the summary buffer.
 267 Articles with scores closer than this to `gnus-summary-default-score'
 268 will not be marked."
 269   :group 'gnus-summary-format
 270   :type 'integer)
 271
 272 (defcustom gnus-simplify-subject-fuzzy-regexp nil
 273   "*Strings to be removed when doing fuzzy matches.
 274 This can either be a regular expression or list of regular expressions
 275 that will be removed from subject strings if fuzzy subject
 276 simplification is selected."
 277   :group 'gnus-thread
 278   :type '(repeat regexp))
 279
 280 (defcustom gnus-show-threads t
 281   "*If non-nil, display threads in summary mode."
 282   :group 'gnus-thread
 283   :type 'boolean)
 284
 285 (defcustom gnus-thread-hide-subtree nil
 286   "*If non-nil, hide all threads initially.
 287 This can be a predicate specifier which says which threads to hide.
 288 If threads are hidden, you have to run the command
 289 `gnus-summary-show-thread' by hand or select an article."
 290   :group 'gnus-thread
 291   :type '(radio (sexp :format "Non-nil\n"
 292                       :match (lambda (widget value)
 293                                (not (or (consp value) (functionp value))))
 294                       :value t)
 295                 (const nil)
 296                 (sexp :tag "Predicate specifier")))
 297
 298 (defcustom gnus-thread-hide-killed t
 299   "*If non-nil, hide killed threads automatically."
 300   :group 'gnus-thread
 301   :type 'boolean)
 302
 303 (defcustom gnus-thread-ignore-subject t
 304   "*If non-nil, which is the default, ignore subjects and do all threading based on the Reference header.
 305 If nil, articles that have different subjects from their parents will
 306 start separate threads."
 307   :group 'gnus-thread
 308   :type 'boolean)
 309
 310 (defcustom gnus-thread-operation-ignore-subject t
 311   "*If non-nil, subjects will be ignored when doing thread commands.
 312 This affects commands like `gnus-summary-kill-thread' and
 313 `gnus-summary-lower-thread'.
 314
 315 If this variable is nil, articles in the same thread with different
 316 subjects will not be included in the operation in question.  If this
 317 variable is `fuzzy', only articles that have subjects that are fuzzily
 318 equal will be included."
 319   :group 'gnus-thread
 320   :type '(choice (const :tag "off" nil)
 321                  (const fuzzy)
 322                  (sexp :tag "on" t)))
 323
 324 (defcustom gnus-thread-indent-level 4
 325   "*Number that says how much each sub-thread should be indented."
 326   :group 'gnus-thread
 327   :type 'integer)
 328
 329 (defcustom gnus-auto-extend-newsgroup t
 330   "*If non-nil, extend newsgroup forward and backward when requested."
 331   :group 'gnus-summary-choose
 332   :type 'boolean)
 333
 334 (defcustom gnus-auto-select-first t
 335   "If non-nil, select an article on group entry.
 336 An article is selected automatically when entering a group
 337 e.g. with \\<gnus-group-mode-map>\\[gnus-group-read-group], or via `gnus-summary-next-page' or
 338 `gnus-summary-catchup-and-goto-next-group'.
 339
 340 Which article is selected is controlled by the variable
 341 `gnus-auto-select-subject'.
 342
 343 If you want to prevent automatic selection of articles in some
 344 newsgroups, set the variable to nil in `gnus-select-group-hook'."
 345   ;; Commands include...
 346   ;; \\<gnus-group-mode-map>\\[gnus-group-read-group]
 347   ;; \\<gnus-summary-mode-map>\\[gnus-summary-next-page]
 348   ;; \\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]
 349   :group 'gnus-group-select
 350   :type '(choice (const :tag "none" nil)
 351                  (sexp :menu-tag "first" t)))
 352
 353 (defcustom gnus-auto-select-subject 'unseen-or-unread
 354   "*Says what subject to place under point when entering a group.
 355
 356 This variable can either be the symbols `first' (place point on the
 357 first subject), `unread' (place point on the subject line of the first
 358 unread article), `best' (place point on the subject line of the
 359 higest-scored article), `unseen' (place point on the subject line of
 360 the first unseen article), `unseen-or-unread' (place point on the subject
 361 line of the first unseen article or, if all article have been seen, on the
 362 subject line of the first unread article), or a function to be called to
 363 place point on some subject line."
 364   :version "24.1"
 365   :group 'gnus-group-select
 366   :type '(choice (const best)
 367                  (const unread)
 368                  (const first)
 369                  (const unseen)
 370                  (const unseen-or-unread)))
 371
 372 (defcustom gnus-auto-select-next t
 373   "*If non-nil, offer to go to the next group from the end of the previous.
 374 If the value is t and the next newsgroup is empty, Gnus will exit
 375 summary mode and go back to group mode.  If the value is neither nil
 376 nor t, Gnus will select the following unread newsgroup.  In
 377 particular, if the value is the symbol `quietly', the next unread
 378 newsgroup will be selected without any confirmation, and if it is
 379 `almost-quietly', the next group will be selected without any
 380 confirmation if you are located on the last article in the group.
 381 Finally, if this variable is `slightly-quietly', the `\\<gnus-summary-mode-map>\\[gnus-summary-catchup-and-goto-next-group]' command
 382 will go to the next group without confirmation."
 383   :group 'gnus-summary-maneuvering
 384   :type '(choice (const :tag "off" nil)
 385                  (const quietly)
 386                  (const almost-quietly)
 387                  (const slightly-quietly)
 388                  (sexp :menu-tag "on" t)))
 389
 390 (defcustom gnus-auto-select-same nil
 391   "*If non-nil, select the next article with the same subject.
 392 If there are no more articles with the same subject, go to
 393 the first unread article."
 394   :group 'gnus-summary-maneuvering
 395   :type 'boolean)
 396
 397 (defcustom gnus-auto-select-on-ephemeral-exit 'next-noselect
 398   "What article should be selected after exiting an ephemeral group.
 399 Valid values include:
 400
 401 `next'
 402   Select the next article.
 403 `next-unread'
 404   Select the next unread article.
 405 `next-noselect'
 406   Move the cursor to the next article.  This is the default.
 407 `next-unread-noselect'
 408   Move the cursor to the next unread article.
 409
 410 If it has any other value or there is no next (unread) article, the
 411 article selected before entering to the ephemeral group will appear."
 412   :version "23.1" ;; No Gnus
 413   :group 'gnus-summary-maneuvering
 414   :type '(choice :format "%{%t%}:\n %[Value Menu%] %v"
 415                  (const next) (const next-unread)
 416                  (const next-noselect) (const next-unread-noselect)
 417                  (sexp :tag "other" :value nil)))
 418
 419 (defcustom gnus-auto-goto-ignores 'unfetched
 420   "*Says how to handle unfetched articles when maneuvering.
 421
 422 This variable can either be the symbols nil (maneuver to any
 423 article), `undownloaded' (maneuvering while unplugged ignores articles
 424 that have not been fetched), `always-undownloaded' (maneuvering always
 425 ignores articles that have not been fetched), `unfetched' (maneuvering
 426 ignores articles whose headers have not been fetched).
 427
 428 NOTE: The list of unfetched articles will always be nil when plugged
 429 and, when unplugged, a subset of the undownloaded article list."
 430   :version "22.1"
 431   :group 'gnus-summary-maneuvering
 432   :type '(choice (const :tag "None" nil)
 433                  (const :tag "Undownloaded when unplugged" undownloaded)
 434                  (const :tag "Undownloaded" always-undownloaded)
 435                  (const :tag "Unfetched" unfetched)))
 436
 437 (defcustom gnus-summary-check-current nil
 438   "*If non-nil, consider the current article when moving.
 439 The \"unread\" movement commands will stay on the same line if the
 440 current article is unread."
 441   :group 'gnus-summary-maneuvering
 442   :type 'boolean)
 443
 444 (defcustom gnus-auto-center-summary 2
 445   "*If non-nil, always center the current summary buffer.
 446 In particular, if `vertical' do only vertical recentering.  If non-nil
 447 and non-`vertical', do both horizontal and vertical recentering."
 448   :group 'gnus-summary-maneuvering
 449   :type '(choice (const :tag "none" nil)
 450                  (const vertical)
 451                  (integer :tag "height")
 452                  (sexp :menu-tag "both" t)))
 453
 454 (defvar gnus-auto-center-group t
 455   "*If non-nil, always center the group buffer.")
 456
 457 (defcustom gnus-show-all-headers nil
 458   "*If non-nil, don't hide any headers."
 459   :group 'gnus-article-hiding
 460   :group 'gnus-article-headers
 461   :type 'boolean)
 462
 463 (defcustom gnus-summary-ignore-duplicates nil
 464   "*If non-nil, ignore articles with identical Message-ID headers."
 465   :group 'gnus-summary
 466   :type 'boolean)
 467
 468 (defcustom gnus-single-article-buffer nil
 469   "*If non-nil, display all articles in the same buffer.
 470 If nil, each group will get its own article buffer."
 471   :version "24.1"
 472   :group 'gnus-article-various
 473   :type 'boolean)
 474
 475 (defcustom gnus-break-pages t
 476   "*If non-nil, do page breaking on articles.
 477 The page delimiter is specified by the `gnus-page-delimiter'
 478 variable."
 479   :group 'gnus-article-various
 480   :type 'boolean)
 481
 482 (defcustom gnus-move-split-methods nil
 483   "*Variable used to suggest where articles are to be moved to.
 484 It uses the same syntax as the `gnus-split-methods' variable.
 485 However, whereas `gnus-split-methods' specifies file names as targets,
 486 this variable specifies group names."
 487   :group 'gnus-summary-mail
 488   :type '(repeat (choice (list :value (fun) function)
 489                          (cons :value ("" "") regexp (repeat string))
 490                          (sexp :value nil))))
 491
 492 (defcustom gnus-move-group-prefix-function 'gnus-group-real-prefix
 493   "Function used to compute default prefix for article move/copy/etc prompts.
 494 The function should take one argument, a group name, and return a
 495 string with the suggested prefix."
 496   :group 'gnus-summary-mail
 497   :type 'function)
 498
 499 ;; FIXME: Although the custom type is `character' for the following variables,
 500 ;; using multibyte characters (Latin-1, UTF-8) doesn't work.  -- rs
 501
 502 (defcustom gnus-unread-mark ?           ;Whitespace
 503   "*Mark used for unread articles."
 504   :group 'gnus-summary-marks
 505   :type 'character)
 506
 507 (defcustom gnus-ticked-mark ?!
 508   "*Mark used for ticked articles."
 509   :group 'gnus-summary-marks
 510   :type 'character)
 511
 512 (defcustom gnus-dormant-mark ??
 513   "*Mark used for dormant articles."
 514   :group 'gnus-summary-marks
 515   :type 'character)
 516
 517 (defcustom gnus-del-mark ?r
 518   "*Mark used for del'd articles."
 519   :group 'gnus-summary-marks
 520   :type 'character)
 521
 522 (defcustom gnus-read-mark ?R
 523   "*Mark used for read articles."
 524   :group 'gnus-summary-marks
 525   :type 'character)
 526
 527 (defcustom gnus-expirable-mark ?E
 528   "*Mark used for expirable articles."
 529   :group 'gnus-summary-marks
 530   :type 'character)
 531
 532 (defcustom gnus-killed-mark ?K
 533   "*Mark used for killed articles."
 534   :group 'gnus-summary-marks
 535   :type 'character)
 536
 537 (defcustom gnus-spam-mark ?$
 538   "*Mark used for spam articles."
 539   :version "22.1"
 540   :group 'gnus-summary-marks
 541   :type 'character)
 542
 543 (defcustom gnus-kill-file-mark ?X
 544   "*Mark used for articles killed by kill files."
 545   :group 'gnus-summary-marks
 546   :type 'character)
 547
 548 (defcustom gnus-low-score-mark ?Y
 549   "*Mark used for articles with a low score."
 550   :group 'gnus-summary-marks
 551   :type 'character)
 552
 553 (defcustom gnus-catchup-mark ?C
 554   "*Mark used for articles that are caught up."
 555   :group 'gnus-summary-marks
 556   :type 'character)
 557
 558 (defcustom gnus-replied-mark ?A
 559   "*Mark used for articles that have been replied to."
 560   :group 'gnus-summary-marks
 561   :type 'character)
 562
 563 (defcustom gnus-forwarded-mark ?F
 564   "*Mark used for articles that have been forwarded."
 565   :version "22.1"
 566   :group 'gnus-summary-marks
 567   :type 'character)
 568
 569 (defcustom gnus-recent-mark ?N
 570   "*Mark used for articles that are recent."
 571   :version "22.1"
 572   :group 'gnus-summary-marks
 573   :type 'character)
 574
 575 (defcustom gnus-cached-mark ?*
 576   "*Mark used for articles that are in the cache."
 577   :group 'gnus-summary-marks
 578   :type 'character)
 579
 580 (defcustom gnus-saved-mark ?S
 581   "*Mark used for articles that have been saved."
 582   :group 'gnus-summary-marks
 583   :type 'character)
 584
 585 (defcustom gnus-unseen-mark ?.
 586   "*Mark used for articles that haven't been seen."
 587   :version "22.1"
 588   :group 'gnus-summary-marks
 589   :type 'character)
 590
 591 (defcustom gnus-no-mark ?               ;Whitespace
 592   "*Mark used for articles that have no other secondary mark."
 593   :version "22.1"
 594   :group 'gnus-summary-marks
 595   :type 'character)
 596
 597 (defcustom gnus-ancient-mark ?O
 598   "*Mark used for ancient articles."
 599   :group 'gnus-summary-marks
 600   :type 'character)
 601
 602 (defcustom gnus-sparse-mark ?Q
 603   "*Mark used for sparsely reffed articles."
 604   :group 'gnus-summary-marks
 605   :type 'character)
 606
 607 (defcustom gnus-canceled-mark ?G
 608   "*Mark used for canceled articles."
 609   :group 'gnus-summary-marks
 610   :type 'character)
 611
 612 (defcustom gnus-duplicate-mark ?M
 613   "*Mark used for duplicate articles."
 614   :group 'gnus-summary-marks
 615   :type 'character)
 616
 617 (defcustom gnus-undownloaded-mark ?-
 618   "*Mark used for articles that weren't downloaded."
 619   :version "22.1"
 620   :group 'gnus-summary-marks
 621   :type 'character)
 622
 623 (defcustom gnus-downloaded-mark ?+
 624   "*Mark used for articles that were downloaded."
 625   :group 'gnus-summary-marks
 626   :type 'character)
 627
 628 (defcustom gnus-downloadable-mark ?%
 629   "*Mark used for articles that are to be downloaded."
 630   :group 'gnus-summary-marks
 631   :type 'character)
 632
 633 (defcustom gnus-unsendable-mark ?=
 634   "*Mark used for articles that won't be sent."
 635   :group 'gnus-summary-marks
 636   :type 'character)
 637
 638 (defcustom gnus-score-over-mark ?+
 639   "*Score mark used for articles with high scores."
 640   :group 'gnus-summary-marks
 641   :type 'character)
 642
 643 (defcustom gnus-score-below-mark ?-
 644   "*Score mark used for articles with low scores."
 645   :group 'gnus-summary-marks
 646   :type 'character)
 647
 648 (defcustom gnus-empty-thread-mark ?     ;Whitespace
 649   "*There is no thread under the article."
 650   :group 'gnus-summary-marks
 651   :type 'character)
 652
 653 (defcustom gnus-not-empty-thread-mark ?=
 654   "*There is a thread under the article."
 655   :group 'gnus-summary-marks
 656   :type 'character)
 657
 658 (defcustom gnus-view-pseudo-asynchronously nil
 659   "*If non-nil, Gnus will view pseudo-articles asynchronously."
 660   :group 'gnus-extract-view
 661   :type 'boolean)
 662
 663 (defcustom gnus-auto-expirable-marks
 664   (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
 665         gnus-low-score-mark gnus-ancient-mark gnus-read-mark
 666         gnus-duplicate-mark)
 667   "*The list of marks converted into expiration if a group is auto-expirable."
 668   :version "24.1"
 669   :group 'gnus-summary
 670   :type '(repeat character))
 671
 672 (defcustom gnus-inhibit-user-auto-expire t
 673   "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
 674   :version "21.1"
 675   :group 'gnus-summary
 676   :type 'boolean)
 677
 678 (defcustom gnus-mark-copied-or-moved-articles-as-expirable nil
 679   "If non-nil, mark articles copied or moved to auto-expire group as expirable.
 680 If nil, the expirable marks will be unchanged except that the marks
 681 will be removed when copying or moving articles to a group that has
 682 not turned auto-expire on.  If non-nil, articles that have been read
 683 will be marked as expirable when being copied or moved to a group in
 684 which auto-expire is turned on."
 685   :version "23.2"
 686   :type 'boolean
 687   :group 'gnus-summary-marks)
 688
 689 (defcustom gnus-view-pseudos nil
 690   "*If `automatic', pseudo-articles will be viewed automatically.
 691 If `not-confirm', pseudos will be viewed automatically, and the user
 692 will not be asked to confirm the command."
 693   :group 'gnus-extract-view
 694   :type '(choice (const :tag "off" nil)
 695                  (const automatic)
 696                  (const not-confirm)))
 697
 698 (defcustom gnus-view-pseudos-separately t
 699   "*If non-nil, one pseudo-article will be created for each file to be viewed.
 700 If nil, all files that use the same viewing command will be given as a
 701 list of parameters to that command."
 702   :group 'gnus-extract-view
 703   :type 'boolean)
 704
 705 (defcustom gnus-insert-pseudo-articles t
 706   "*If non-nil, insert pseudo-articles when decoding articles."
 707   :group 'gnus-extract-view
 708   :type 'boolean)
 709
 710 (defcustom gnus-summary-dummy-line-format
 711   "   %(:                             :%) %S\n"
 712   "*The format specification for the dummy roots in the summary buffer.
 713 It works along the same lines as a normal formatting string,
 714 with some simple extensions.
 715
 716 %S  The subject
 717
 718 General format specifiers can also be used.
 719 See `(gnus)Formatting Variables'."
 720   :link '(custom-manual "(gnus)Formatting Variables")
 721   :group 'gnus-threading
 722   :type 'string)
 723
 724 (defcustom gnus-summary-mode-line-format "Gnus: %g [%A] %Z"
 725   "*The format specification for the summary mode line.
 726 It works along the same lines as a normal formatting string,
 727 with some simple extensions:
 728
 729 %G  Group name
 730 %p  Unprefixed group name
 731 %A  Current article number
 732 %z  Current article score
 733 %V  Gnus version
 734 %U  Number of unread articles in the group
 735 %e  Number of unselected articles in the group
 736 %Z  A string with unread/unselected article counts
 737 %g  Shortish group name
 738 %S  Subject of the current article
 739 %u  User-defined spec
 740 %s  Current score file name
 741 %d  Number of dormant articles
 742 %r  Number of articles that have been marked as read in this session
 743 %E  Number of articles expunged by the score files"
 744   :group 'gnus-summary-format
 745   :type 'string)
 746
 747 (defcustom gnus-list-identifiers nil
 748   "Regexp that matches list identifiers to be removed from subject.
 749 This can also be a list of regexps."
 750   :version "21.1"
 751   :group 'gnus-summary-format
 752   :group 'gnus-article-hiding
 753   :type '(choice (const :tag "none" nil)
 754                  (regexp :value ".*")
 755                  (repeat :value (".*") regexp)))
 756
 757 (defcustom gnus-summary-mark-below 0
 758   "*Mark all articles with a score below this variable as read.
 759 This variable is local to each summary buffer and usually set by the
 760 score file."
 761   :group 'gnus-score-default
 762   :type 'integer)
 763
 764 (defun gnus-widget-reversible-match (widget value)
 765   "Ignoring WIDGET, convert VALUE to internal form.
 766 VALUE should have the form `FOO' or `(not FOO)', where FOO is an symbol."
 767   ;; (debug value)
 768   (or (symbolp value)
 769       (and (listp value)
 770            (eq (length value) 2)
 771            (eq (nth 0 value) 'not)
 772            (symbolp (nth 1 value)))))
 773
 774 (defun gnus-widget-reversible-to-internal (widget value)
 775   "Ignoring WIDGET, convert VALUE to internal form.
 776 VALUE should have the form `FOO' or `(not FOO)', where FOO is an atom.
 777 FOO is converted to (FOO nil) and (not FOO) is converted to (FOO t)."
 778   ;; (debug value)
 779   (if (atom value)
 780       (list value nil)
 781     (list (nth 1 value) t)))
 782
 783 (defun gnus-widget-reversible-to-external (widget value)
 784   "Ignoring WIDGET, convert VALUE to external form.
 785 VALUE should have the form `(FOO nil)' or `(FOO t)', where FOO is an atom.
 786 \(FOO  nil) is converted to FOO and (FOO t) is converted to (not FOO)."
 787   ;; (debug value)
 788   (if (nth 1 value)
 789       (list 'not (nth 0 value))
 790     (nth 0 value)))
 791
 792 (define-widget 'gnus-widget-reversible 'group
 793   "A `group' that convert values."
 794   :match 'gnus-widget-reversible-match
 795   :value-to-internal 'gnus-widget-reversible-to-internal
 796   :value-to-external 'gnus-widget-reversible-to-external)
 797
 798 (defcustom gnus-article-sort-functions '(gnus-article-sort-by-number)
 799   "*List of functions used for sorting articles in the summary buffer.
 800
 801 Each function takes two articles and returns non-nil if the first
 802 article should be sorted before the other.  If you use more than one
 803 function, the primary sort function should be the last.  You should
 804 probably always include `gnus-article-sort-by-number' in the list of
 805 sorting functions -- preferably first.  Also note that sorting by date
 806 is often much slower than sorting by number, and the sorting order is
 807 very similar.  (Sorting by date means sorting by the time the message
 808 was sent, sorting by number means sorting by arrival time.)
 809
 810 Each item can also be a list `(not F)' where F is a function;
 811 this reverses the sort order.
 812
 813 Ready-made functions include `gnus-article-sort-by-number',
 814 `gnus-article-sort-by-author', `gnus-article-sort-by-subject',
 815 `gnus-article-sort-by-date', `gnus-article-sort-by-random'
 816 and `gnus-article-sort-by-score'.
 817
 818 When threading is turned on, the variable `gnus-thread-sort-functions'
 819 controls how articles are sorted."
 820   :group 'gnus-summary-sort
 821   :type '(repeat (gnus-widget-reversible
 822                   (choice (function-item gnus-article-sort-by-number)
 823                           (function-item gnus-article-sort-by-author)
 824                           (function-item gnus-article-sort-by-subject)
 825                           (function-item gnus-article-sort-by-date)
 826                           (function-item gnus-article-sort-by-score)
 827                           (function-item gnus-article-sort-by-random)
 828                           (function :tag "other"))
 829                   (boolean :tag "Reverse order"))))
 830
 831
 832 (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
 833   "*List of functions used for sorting threads in the summary buffer.
 834 By default, threads are sorted by article number.
 835
 836 Each function takes two threads and returns non-nil if the first
 837 thread should be sorted before the other.  If you use more than one
 838 function, the primary sort function should be the last.  You should
 839 probably always include `gnus-thread-sort-by-number' in the list of
 840 sorting functions -- preferably first.  Also note that sorting by date
 841 is often much slower than sorting by number, and the sorting order is
 842 very similar.  (Sorting by date means sorting by the time the message
 843 was sent, sorting by number means sorting by arrival time.)
 844
 845 Each list item can also be a list `(not F)' where F is a
 846 function; this specifies reversed sort order.
 847
 848 Ready-made functions include `gnus-thread-sort-by-number',
 849 `gnus-thread-sort-by-author', `gnus-thread-sort-by-recipient'
 850 `gnus-thread-sort-by-subject', `gnus-thread-sort-by-date',
 851 `gnus-thread-sort-by-score', `gnus-thread-sort-by-most-recent-number',
 852 `gnus-thread-sort-by-most-recent-date', `gnus-thread-sort-by-random',
 853 and `gnus-thread-sort-by-total-score' (see
 854 `gnus-thread-score-function').
 855
 856 When threading is turned off, the variable
 857 `gnus-article-sort-functions' controls how articles are sorted."
 858   :group 'gnus-summary-sort
 859   :type '(repeat
 860           (gnus-widget-reversible
 861            (choice (function-item gnus-thread-sort-by-number)
 862                    (function-item gnus-thread-sort-by-author)
 863                    (function-item gnus-thread-sort-by-recipient)
 864                    (function-item gnus-thread-sort-by-subject)
 865                    (function-item gnus-thread-sort-by-date)
 866                    (function-item gnus-thread-sort-by-score)
 867                    (function-item gnus-thread-sort-by-most-recent-number)
 868                    (function-item gnus-thread-sort-by-most-recent-date)
 869                    (function-item gnus-thread-sort-by-random)
 870                    (function-item gnus-thread-sort-by-total-score)
 871                    (function :tag "other"))
 872            (boolean :tag "Reverse order"))))
 873
 874 (defcustom gnus-thread-score-function '+
 875   "*Function used for calculating the total score of a thread.
 876
 877 The function is called with the scores of the article and each
 878 subthread and should then return the score of the thread.
 879
 880 Some functions you can use are `+', `max', or `min'."
 881   :group 'gnus-summary-sort
 882   :type 'function)
 883
 884 (defcustom gnus-summary-expunge-below nil
 885   "All articles that have a score less than this variable will be expunged.
 886 This variable is local to the summary buffers."
 887   :group 'gnus-score-default
 888   :type '(choice (const :tag "off" nil)
 889                  integer))
 890
 891 (defcustom gnus-thread-expunge-below nil
 892   "All threads that have a total score less than this variable will be expunged.
 893 See `gnus-thread-score-function' for en explanation of what a
 894 \"thread score\" is.
 895
 896 This variable is local to the summary buffers."
 897   :group 'gnus-threading
 898   :group 'gnus-score-default
 899   :type '(choice (const :tag "off" nil)
 900                  integer))
 901
 902 (defcustom gnus-summary-mode-hook nil
 903   "*A hook for Gnus summary mode.
 904 This hook is run before any variables are set in the summary buffer."
 905   :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
 906   :group 'gnus-summary-various
 907   :type 'hook)
 908
 909 ;; Extracted from gnus-xmas-redefine in order to preserve user settings
 910 (when (featurep 'xemacs)
 911   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add)
 912   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
 913   (add-hook 'gnus-summary-mode-hook
 914             'gnus-xmas-switch-horizontal-scrollbar-off))
 915
 916 (defcustom gnus-summary-menu-hook nil
 917   "*Hook run after the creation of the summary mode menu."
 918   :group 'gnus-summary-visual
 919   :type 'hook)
 920
 921 (defcustom gnus-summary-exit-hook nil
 922   "*A hook called on exit from the summary buffer.
 923 It will be called with point in the group buffer."
 924   :group 'gnus-summary-exit
 925   :type 'hook)
 926
 927 (defcustom gnus-summary-prepare-hook nil
 928   "*A hook called after the summary buffer has been generated.
 929 If you want to modify the summary buffer, you can use this hook."
 930   :group 'gnus-summary-various
 931   :type 'hook)
 932
 933 (defcustom gnus-summary-prepared-hook nil
 934   "*A hook called as the last thing after the summary buffer has been generated."
 935   :group 'gnus-summary-various
 936   :type 'hook)
 937
 938 (defcustom gnus-summary-generate-hook nil
 939   "*A hook run just before generating the summary buffer.
 940 This hook is commonly used to customize threading variables and the
 941 like."
 942   :group 'gnus-summary-various
 943   :type 'hook)
 944
 945 (defcustom gnus-select-group-hook nil
 946   "*A hook called when a newsgroup is selected.
 947
 948 If you'd like to simplify subjects like the
 949 `gnus-summary-next-same-subject' command does, you can use the
 950 following hook:
 951
 952  (add-hook gnus-select-group-hook
 953            (lambda ()
 954              (mapcar (lambda (header)
 955                        (mail-header-set-subject
 956                         header
 957                         (gnus-simplify-subject
 958                          (mail-header-subject header) 're-only)))
 959                      gnus-newsgroup-headers)))"
 960   :group 'gnus-group-select
 961   :type 'hook)
 962
 963 (defcustom gnus-select-article-hook nil
 964   "*A hook called when an article is selected."
 965   :group 'gnus-summary-choose
 966   :options '(gnus-agent-fetch-selected-article)
 967   :type 'hook)
 968
 969 (defcustom gnus-visual-mark-article-hook
 970   (list 'gnus-highlight-selected-summary)
 971   "*Hook run after selecting an article in the summary buffer.
 972 It is meant to be used for highlighting the article in some way.  It
 973 is not run if `gnus-visual' is nil."
 974   :group 'gnus-summary-visual
 975   :type 'hook)
 976
 977 (defcustom gnus-parse-headers-hook nil
 978   "*A hook called before parsing the headers."
 979   :group 'gnus-various
 980   :type 'hook)
 981
 982 (defcustom gnus-exit-group-hook nil
 983   "*A hook called when exiting summary mode.
 984 This hook is not called from the non-updating exit commands like `Q'."
 985   :group 'gnus-various
 986   :type 'hook)
 987
 988 (defcustom gnus-summary-update-hook nil
 989   "*A hook called when a summary line is changed.
 990 The hook will not be called if `gnus-visual' is nil.
 991
 992 The default function `gnus-summary-highlight-line' will
 993 highlight the line according to the `gnus-summary-highlight'
 994 variable."
 995   :group 'gnus-summary-visual
 996   :type 'hook)
 997
 998 (defcustom gnus-mark-article-hook '(gnus-summary-mark-read-and-unread-as-read)
 999   "*A hook called when an article is selected for the first time.
1000 The hook is intended to mark an article as read (or unread)
1001 automatically when it is selected."
1002   :group 'gnus-summary-choose
1003   :type 'hook)
1004
1005 (defcustom gnus-group-no-more-groups-hook nil
1006   "*A hook run when returning to group mode having no more (unread) groups."
1007   :group 'gnus-group-select
1008   :type 'hook)
1009
1010 (defcustom gnus-ps-print-hook nil
1011   "*A hook run before ps-printing something from Gnus."
1012   :group 'gnus-summary
1013   :type 'hook)
1014
1015 (defcustom gnus-summary-article-move-hook nil
1016   "*A hook called after an article is moved, copied, respooled, or crossposted."
1017   :version "22.1"
1018   :group 'gnus-summary
1019   :type 'hook)
1020
1021 (defcustom gnus-summary-article-delete-hook nil
1022   "*A hook called after an article is deleted."
1023   :version "22.1"
1024   :group 'gnus-summary
1025   :type 'hook)
1026
1027 (defcustom gnus-summary-article-expire-hook nil
1028   "*A hook called after an article is expired."
1029   :version "22.1"
1030   :group 'gnus-summary
1031   :type 'hook)
1032
1033 (defcustom gnus-summary-display-arrow
1034   (and (fboundp 'display-graphic-p)
1035        (display-graphic-p))
1036   "*If non-nil, display an arrow highlighting the current article."
1037   :version "22.1"
1038   :group 'gnus-summary
1039   :type 'boolean)
1040
1041 (defcustom gnus-summary-selected-face 'gnus-summary-selected
1042   "Face used for highlighting the current article in the summary buffer."
1043   :group 'gnus-summary-visual
1044   :type 'face)
1045
1046 (defvar gnus-tmp-downloaded nil)
1047
1048 (defcustom gnus-summary-highlight
1049   '(((eq mark gnus-canceled-mark)
1050      . gnus-summary-cancelled)
1051     ((and uncached (> score default-high))
1052      . gnus-summary-high-undownloaded)
1053     ((and uncached (< score default-low))
1054      . gnus-summary-low-undownloaded)
1055     (uncached
1056      . gnus-summary-normal-undownloaded)
1057     ((and (> score default-high)
1058           (or (eq mark gnus-dormant-mark)
1059               (eq mark gnus-ticked-mark)))
1060      . gnus-summary-high-ticked)
1061     ((and (< score default-low)
1062           (or (eq mark gnus-dormant-mark)
1063               (eq mark gnus-ticked-mark)))
1064      . gnus-summary-low-ticked)
1065     ((or (eq mark gnus-dormant-mark)
1066          (eq mark gnus-ticked-mark))
1067      . gnus-summary-normal-ticked)
1068     ((and (> score default-high) (eq mark gnus-ancient-mark))
1069      . gnus-summary-high-ancient)
1070     ((and (< score default-low) (eq mark gnus-ancient-mark))
1071      . gnus-summary-low-ancient)
1072     ((eq mark gnus-ancient-mark)
1073      . gnus-summary-normal-ancient)
1074     ((and (> score default-high) (eq mark gnus-unread-mark))
1075      . gnus-summary-high-unread)
1076     ((and (< score default-low) (eq mark gnus-unread-mark))
1077      . gnus-summary-low-unread)
1078     ((eq mark gnus-unread-mark)
1079      . gnus-summary-normal-unread)
1080     ((> score default-high)
1081      . gnus-summary-high-read)
1082     ((< score default-low)
1083      . gnus-summary-low-read)
1084     (t
1085      . gnus-summary-normal-read))
1086   "*Controls the highlighting of summary buffer lines.
1087
1088 A list of (FORM . FACE) pairs.  When deciding how a particular
1089 summary line should be displayed, each form is evaluated.  The content
1090 of the face field after the first true form is used.  You can change
1091 how those summary lines are displayed, by editing the face field.
1092
1093 You can use the following variables in the FORM field.
1094
1095 score:        The article's score.
1096 default:      The default article score.
1097 default-high: The default score for high scored articles.
1098 default-low:  The default score for low scored articles.
1099 below:        The score below which articles are automatically marked as read.
1100 mark:         The article's mark.
1101 uncached:     Non-nil if the article is uncached."
1102   :group 'gnus-summary-visual
1103   :type '(repeat (cons (sexp :tag "Form" nil)
1104                        face)))
1105 (put 'gnus-summary-highlight 'risky-local-variable t)
1106
1107 (defcustom gnus-alter-header-function nil
1108   "Function called to allow alteration of article header structures.
1109 The function is called with one parameter, the article header vector,
1110 which it may alter in any way."
1111   :type '(choice (const :tag "None" nil)
1112                  function)
1113   :group 'gnus-summary)
1114
1115 (defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string
1116   "Function used to decode a string with encoded words.")
1117
1118 (defvar gnus-decode-encoded-address-function
1119   'mail-decode-encoded-address-string
1120   "Function used to decode addresses with encoded words.")
1121
1122 (defcustom gnus-extra-headers '(To Newsgroups)
1123   "*Extra headers to parse."
1124   :version "21.1"
1125   :group 'gnus-summary
1126   :type '(repeat symbol))
1127
1128 (defcustom gnus-ignored-from-addresses
1129   (and user-mail-address
1130        (not (string= user-mail-address ""))
1131        (regexp-quote user-mail-address))
1132   "*From headers that may be suppressed in favor of To headers.
1133 This can be a regexp or a list of regexps."
1134   :version "21.1"
1135   :group 'gnus-summary
1136   :type '(choice regexp
1137                  (repeat :tag "Regexp List" regexp)))
1138
1139 (defsubst gnus-ignored-from-addresses ()
1140   (gmm-regexp-concat gnus-ignored-from-addresses))
1141
1142 (defcustom gnus-summary-to-prefix "-> "
1143   "*String prefixed to the To field in the summary line when
1144 using `gnus-ignored-from-addresses'."
1145   :version "22.1"
1146   :group 'gnus-summary
1147   :type 'string)
1148
1149 (defcustom gnus-summary-newsgroup-prefix "=> "
1150   "*String prefixed to the Newsgroup field in the summary
1151 line when using `gnus-ignored-from-addresses'."
1152   :version "22.1"
1153   :group 'gnus-summary
1154   :type 'string)
1155
1156 (defcustom gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown)
1157   "List of charsets that should be ignored.
1158 When these charsets are used in the \"charset\" parameter, the
1159 default charset will be used instead."
1160   :version "21.1"
1161   :type '(repeat symbol)
1162   :group 'gnus-charset)
1163
1164 (defcustom gnus-newsgroup-maximum-articles nil
1165   "The maximum number of articles a newsgroup.
1166 If this is a number, old articles in a newsgroup exceeding this number
1167 are silently ignored.  If it is nil, no article is ignored.  Note that
1168 setting this variable to a number might prevent you from reading very
1169 old articles."
1170   :group 'gnus-group-select
1171   :version "22.2"
1172   :type '(choice (const :tag "No limit" nil)
1173                  integer))
1174
1175 (gnus-define-group-parameter
1176  ignored-charsets
1177  :type list
1178  :function-document
1179  "Return the ignored charsets of GROUP."
1180  :variable gnus-group-ignored-charsets-alist
1181  :variable-default
1182  '(("alt\\.chinese\\.text" iso-8859-1))
1183  :variable-document
1184  "Alist of regexps (to match group names) and charsets that should be ignored.
1185 When these charsets are used in the \"charset\" parameter, the
1186 default charset will be used instead."
1187  :variable-group gnus-charset
1188  :variable-type '(repeat (cons (regexp :tag "Group")
1189                                (repeat symbol)))
1190  :parameter-type '(choice :tag "Ignored charsets"
1191                           :value nil
1192                           (repeat (symbol)))
1193  :parameter-document       "\
1194 List of charsets that should be ignored.
1195
1196 When these charsets are used in the \"charset\" parameter, the
1197 default charset will be used instead.")
1198
1199 (defcustom gnus-group-highlight-words-alist nil
1200   "Alist of group regexps and highlight regexps.
1201 This variable uses the same syntax as `gnus-emphasis-alist'."
1202   :version "21.1"
1203   :type '(repeat (cons (regexp :tag "Group")
1204                        (repeat (list (regexp :tag "Highlight regexp")
1205                                      (number :tag "Group for entire word" 0)
1206                                      (number :tag "Group for displayed part" 0)
1207                                      (symbol :tag "Face"
1208                                              gnus-emphasis-highlight-words)))))
1209   :group 'gnus-summary-visual)
1210
1211 (defcustom gnus-summary-show-article-charset-alist
1212   nil
1213   "Alist of number and charset.
1214 The article will be shown with the charset corresponding to the
1215 numbered argument.
1216 For example: ((1 . cn-gb-2312) (2 . big5))."
1217   :version "21.1"
1218   :type '(repeat (cons (number :tag "Argument" 1)
1219                        (symbol :tag "Charset")))
1220   :group 'gnus-charset)
1221
1222 (defcustom gnus-preserve-marks t
1223   "Whether marks are preserved when moving, copying and respooling messages."
1224   :version "21.1"
1225   :type 'boolean
1226   :group 'gnus-summary-marks)
1227
1228 (defcustom gnus-propagate-marks t
1229   "If non-nil, do not propagate marks to the backends."
1230   :version "23.1" ;; No Gnus
1231   :type 'boolean
1232   :group 'gnus-summary-marks)
1233
1234 (defcustom gnus-alter-articles-to-read-function nil
1235   "Function to be called to alter the list of articles to be selected."
1236   :type '(choice (const nil) function)
1237   :group 'gnus-summary)
1238
1239 (defcustom gnus-orphan-score nil
1240   "*All orphans get this score added.  Set in the score file."
1241   :group 'gnus-score-default
1242   :type '(choice (const nil)
1243                  integer))
1244
1245 (defcustom gnus-summary-save-parts-default-mime "image/.*"
1246   "*A regexp to match MIME parts when saving multiple parts of a
1247 message with `gnus-summary-save-parts' (\\<gnus-summary-mode-map>\\[gnus-summary-save-parts]).
1248 This regexp will be used by default when prompting the user for which
1249 type of files to save."
1250   :group 'gnus-summary
1251   :type 'regexp)
1252
1253 (defcustom gnus-read-all-available-headers nil
1254   "Whether Gnus should parse all headers made available to it.
1255 This is mostly relevant for slow back ends where the user may
1256 wish to widen the summary buffer to include all headers
1257 that were fetched."
1258   :version "22.1"
1259   :group 'gnus-summary
1260   :type '(choice boolean regexp))
1261
1262 (defcustom gnus-summary-pipe-output-default-command nil
1263   "Command (and optional arguments) used to pipe article to subprocess.
1264 This will be used as the default command if it is non-nil.  The value
1265 will be updated if you modify it when executing the command
1266 `gnus-summary-pipe-output' or the function `gnus-summary-save-in-pipe'."
1267   :version "23.1" ;; No Gnus
1268   :group 'gnus-summary
1269   :type '(radio (const :tag "None" nil) (string :tag "Command")))
1270
1271 (defcustom gnus-summary-muttprint-program "muttprint"
1272   "Command (and optional arguments) used to run Muttprint.
1273 The value will be updated if you modify it when executing the command
1274 `gnus-summary-muttprint'."
1275   :version "22.1"
1276   :group 'gnus-summary
1277   :type 'string)
1278
1279 (defcustom gnus-article-loose-mime t
1280   "If non-nil, don't require MIME-Version header.
1281 Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not
1282 supply the MIME-Version header or deliberately strip it from the mail.
1283 If non-nil (the default), Gnus will treat some articles as MIME
1284 even if the MIME-Version header is missing."
1285   :version "22.1"
1286   :type 'boolean
1287   :group 'gnus-article-mime)
1288
1289 (defcustom gnus-article-emulate-mime t
1290   "If non-nil, use MIME emulation for uuencode and the like.
1291 This means that Gnus will search message bodies for text that look
1292 like uuencoded bits, yEncoded bits, and so on, and present that using
1293 the normal Gnus MIME machinery."
1294   :version "22.1"
1295   :type 'boolean
1296   :group 'gnus-article-mime)
1297
1298 ;;; Internal variables
1299
1300 (defvar gnus-summary-display-cache nil)
1301 (defvar gnus-article-mime-handles nil)
1302 (defvar gnus-article-decoded-p nil)
1303 (defvar gnus-article-charset nil)
1304 (defvar gnus-article-ignored-charsets nil)
1305 (defvar gnus-scores-exclude-files nil)
1306 (defvar gnus-page-broken nil)
1307
1308 (defvar gnus-original-article nil)
1309 (defvar gnus-article-internal-prepare-hook nil)
1310 (defvar gnus-newsgroup-process-stack nil)
1311
1312 (defvar gnus-thread-indent-array nil)
1313 (defvar gnus-thread-indent-array-level gnus-thread-indent-level)
1314 (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number
1315   "Function called to sort the articles within a thread after it has been gathered together.")
1316
1317 (defvar gnus-summary-save-parts-type-history nil)
1318 (defvar gnus-summary-save-parts-last-directory mm-default-directory)
1319
1320 ;; Avoid highlighting in kill files.
1321 (defvar gnus-summary-inhibit-highlight nil)
1322 (defvar gnus-newsgroup-selected-overlay nil)
1323 (defvar gnus-inhibit-limiting nil)
1324 (defvar gnus-newsgroup-adaptive-score-file nil)
1325 (defvar gnus-current-score-file nil)
1326 (defvar gnus-current-move-group nil)
1327 (defvar gnus-current-copy-group nil)
1328 (defvar gnus-current-crosspost-group nil)
1329 (defvar gnus-newsgroup-display nil)
1330
1331 (defvar gnus-newsgroup-dependencies nil)
1332 (defvar gnus-newsgroup-adaptive nil)
1333 (defvar gnus-summary-display-article-function nil)
1334 (defvar gnus-summary-highlight-line-function nil
1335   "Function called after highlighting a summary line.")
1336
1337 (defvar gnus-summary-line-format-alist
1338   `((?N ,(macroexpand '(mail-header-number gnus-tmp-header)) ?d)
1339     (?S ,(macroexpand '(mail-header-subject gnus-tmp-header)) ?s)
1340     (?s gnus-tmp-subject-or-nil ?s)
1341     (?n gnus-tmp-name ?s)
1342     (?A (car (cdr (funcall gnus-extract-address-components gnus-tmp-from)))
1343         ?s)
1344     (?a (or (car (funcall gnus-extract-address-components gnus-tmp-from))
1345             gnus-tmp-from) ?s)
1346     (?F gnus-tmp-from ?s)
1347     (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s)
1348     (?D ,(macroexpand '(mail-header-date gnus-tmp-header)) ?s)
1349     (?d (gnus-dd-mmm (mail-header-date gnus-tmp-header)) ?s)
1350     (?o (gnus-date-iso8601 (mail-header-date gnus-tmp-header)) ?s)
1351     (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
1352     (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
1353     (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
1354     (?k (gnus-summary-line-message-size gnus-tmp-header) ?s)
1355     (?L gnus-tmp-lines ?s)
1356     (?O gnus-tmp-downloaded ?c)
1357     (?I gnus-tmp-indentation ?s)
1358     (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
1359     (?R gnus-tmp-replied ?c)
1360     (?\[ gnus-tmp-opening-bracket ?c)
1361     (?\] gnus-tmp-closing-bracket ?c)
1362     (?\> (make-string gnus-tmp-level ? ) ?s)
1363     (?\< (make-string (max 0 (- 20 gnus-tmp-level)) ? ) ?s)
1364     (?i gnus-tmp-score ?d)
1365     (?z gnus-tmp-score-char ?c)
1366     (?V (gnus-thread-total-score (and (boundp 'thread) (car thread))) ?d)
1367     (?U gnus-tmp-unread ?c)
1368     (?f (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header gnus-tmp-from)
1369         ?s)
1370     (?t (gnus-summary-number-of-articles-in-thread
1371          (and (boundp 'thread) (car thread)) gnus-tmp-level)
1372         ?d)
1373     (?e (gnus-summary-number-of-articles-in-thread
1374          (and (boundp 'thread) (car thread)) gnus-tmp-level t)
1375         ?c)
1376     (?u gnus-tmp-user-defined ?s)
1377     (?P (gnus-pick-line-number) ?d)
1378     (?B gnus-tmp-thread-tree-header-string ?s)
1379     (user-date (gnus-user-date
1380                 ,(macroexpand '(mail-header-date gnus-tmp-header))) ?s))
1381   "An alist of format specifications that can appear in summary lines.
1382 These are paired with what variables they correspond with, along with
1383 the type of the variable (string, integer, character, etc).")
1384
1385 (defvar gnus-summary-dummy-line-format-alist
1386   `((?S gnus-tmp-subject ?s)
1387     (?N gnus-tmp-number ?d)
1388     (?u gnus-tmp-user-defined ?s)))
1389
1390 (defvar gnus-summary-mode-line-format-alist
1391   `((?G gnus-tmp-group-name ?s)
1392     (?g (gnus-short-group-name gnus-tmp-group-name) ?s)
1393     (?p (gnus-group-real-name gnus-tmp-group-name) ?s)
1394     (?A gnus-tmp-article-number ?d)
1395     (?Z gnus-tmp-unread-and-unselected ?s)
1396     (?V gnus-version ?s)
1397     (?U gnus-tmp-unread-and-unticked ?d)
1398     (?S gnus-tmp-subject ?s)
1399     (?e gnus-tmp-unselected ?d)
1400     (?u gnus-tmp-user-defined ?s)
1401     (?d (length gnus-newsgroup-dormant) ?d)
1402     (?t (length gnus-newsgroup-marked) ?d)
1403     (?h (length gnus-newsgroup-spam-marked) ?d)
1404     (?r (length gnus-newsgroup-reads) ?d)
1405     (?z (gnus-summary-article-score gnus-tmp-article-number) ?d)
1406     (?E gnus-newsgroup-expunged-tally ?d)
1407     (?s (gnus-current-score-file-nondirectory) ?s)))
1408
1409 ;; This is here rather than in gnus-art for compilation reasons.
1410 (defvar gnus-article-mode-line-format-alist
1411   (nconc '((?w (gnus-article-wash-status) ?s)
1412            (?m (gnus-article-mime-part-status) ?s))
1413          gnus-summary-mode-line-format-alist))
1414
1415 (defvar gnus-last-search-regexp nil
1416   "Default regexp for article search command.")
1417
1418 (defvar gnus-last-shell-command nil