comparison lisp/gnus/gnus-sum.el @ 90103:3ebd9bdb4fe5

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-13 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-83 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-89 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-90 Update from CVS: man/calc.texi: Add macro for LaTeX for info output. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-91 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-94 Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 13 Feb 2005 07:19:08 +0000
parents eac554634bfa aac0a33f5772
children bf0d492ea2d5
comparison
equal deleted inserted replaced
90102:9b4f359c4117 90103:3ebd9bdb4fe5
117 (const adopt) 117 (const adopt)
118 (const empty))) 118 (const empty)))
119 119
120 (defcustom gnus-summary-make-false-root-always nil 120 (defcustom gnus-summary-make-false-root-always nil
121 "Always make a false dummy root." 121 "Always make a false dummy root."
122 :version "21.4" 122 :version "22.1"
123 :group 'gnus-thread 123 :group 'gnus-thread
124 :type 'boolean) 124 :type 'boolean)
125 125
126 (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$" 126 (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
127 "*A regexp to match subjects to be excluded from loose thread gathering. 127 "*A regexp to match subjects to be excluded from loose thread gathering.
218 218
219 (defcustom gnus-summary-default-high-score 0 219 (defcustom gnus-summary-default-high-score 0
220 "*Default threshold for a high scored article. 220 "*Default threshold for a high scored article.
221 An article will be highlighted as high scored if its score is greater 221 An article will be highlighted as high scored if its score is greater
222 than this score." 222 than this score."
223 :version "21.4" 223 :version "22.1"
224 :group 'gnus-score-default 224 :group 'gnus-score-default
225 :type 'integer) 225 :type 'integer)
226 226
227 (defcustom gnus-summary-default-low-score 0 227 (defcustom gnus-summary-default-low-score 0
228 "*Default threshold for a low scored article. 228 "*Default threshold for a low scored article.
229 An article will be highlighted as low scored if its score is smaller 229 An article will be highlighted as low scored if its score is smaller
230 than this score." 230 than this score."
231 :version "21.4" 231 :version "22.1"
232 :group 'gnus-score-default 232 :group 'gnus-score-default
233 :type 'integer) 233 :type 'integer)
234 234
235 (defcustom gnus-summary-zcore-fuzz 0 235 (defcustom gnus-summary-zcore-fuzz 0
236 "*Fuzziness factor for the zcore in the summary buffer. 236 "*Fuzziness factor for the zcore in the summary buffer.
322 higest-scored article), `unseen' (place point on the subject line of 322 higest-scored article), `unseen' (place point on the subject line of
323 the first unseen article), 'unseen-or-unread' (place point on the subject 323 the first unseen article), 'unseen-or-unread' (place point on the subject
324 line of the first unseen article or, if all article have been seen, on the 324 line of the first unseen article or, if all article have been seen, on the
325 subject line of the first unread article), or a function to be called to 325 subject line of the first unread article), or a function to be called to
326 place point on some subject line." 326 place point on some subject line."
327 :version "21.4" 327 :version "22.1"
328 :group 'gnus-group-select 328 :group 'gnus-group-select
329 :type '(choice (const best) 329 :type '(choice (const best)
330 (const unread) 330 (const unread)
331 (const first) 331 (const first)
332 (const unseen) 332 (const unseen)
366 ignores articles that have not been fetched), `unfetched' (maneuvering 366 ignores articles that have not been fetched), `unfetched' (maneuvering
367 ignores articles whose headers have not been fetched). 367 ignores articles whose headers have not been fetched).
368 368
369 NOTE: The list of unfetched articles will always be nil when plugged 369 NOTE: The list of unfetched articles will always be nil when plugged
370 and, when unplugged, a subset of the undownloaded article list." 370 and, when unplugged, a subset of the undownloaded article list."
371 :version "21.4" 371 :version "22.1"
372 :group 'gnus-summary-maneuvering 372 :group 'gnus-summary-maneuvering
373 :type '(choice (const :tag "None" nil) 373 :type '(choice (const :tag "None" nil)
374 (const :tag "Undownloaded when unplugged" undownloaded) 374 (const :tag "Undownloaded when unplugged" undownloaded)
375 (const :tag "Undownloaded" always-undownloaded) 375 (const :tag "Undownloaded" always-undownloaded)
376 (const :tag "Unfetched" unfetched))) 376 (const :tag "Unfetched" unfetched)))
467 :group 'gnus-summary-marks 467 :group 'gnus-summary-marks
468 :type 'character) 468 :type 'character)
469 469
470 (defcustom gnus-spam-mark ?$ 470 (defcustom gnus-spam-mark ?$
471 "*Mark used for spam articles." 471 "*Mark used for spam articles."
472 :version "21.4" 472 :version "22.1"
473 :group 'gnus-summary-marks 473 :group 'gnus-summary-marks
474 :type 'character) 474 :type 'character)
475 475
476 (defcustom gnus-souped-mark ?F 476 (defcustom gnus-souped-mark ?F
477 "*Mark used for souped articles." 477 "*Mark used for souped articles."
498 :group 'gnus-summary-marks 498 :group 'gnus-summary-marks
499 :type 'character) 499 :type 'character)
500 500
501 (defcustom gnus-forwarded-mark ?F 501 (defcustom gnus-forwarded-mark ?F
502 "*Mark used for articles that have been forwarded." 502 "*Mark used for articles that have been forwarded."
503 :version "21.4" 503 :version "22.1"
504 :group 'gnus-summary-marks 504 :group 'gnus-summary-marks
505 :type 'character) 505 :type 'character)
506 506
507 (defcustom gnus-recent-mark ?N 507 (defcustom gnus-recent-mark ?N
508 "*Mark used for articles that are recent." 508 "*Mark used for articles that are recent."
509 :version "21.4" 509 :version "22.1"
510 :group 'gnus-summary-marks 510 :group 'gnus-summary-marks
511 :type 'character) 511 :type 'character)
512 512
513 (defcustom gnus-cached-mark ?* 513 (defcustom gnus-cached-mark ?*
514 "*Mark used for articles that are in the cache." 514 "*Mark used for articles that are in the cache."
520 :group 'gnus-summary-marks 520 :group 'gnus-summary-marks
521 :type 'character) 521 :type 'character)
522 522
523 (defcustom gnus-unseen-mark ?. 523 (defcustom gnus-unseen-mark ?.
524 "*Mark used for articles that haven't been seen." 524 "*Mark used for articles that haven't been seen."
525 :version "21.4" 525 :version "22.1"
526 :group 'gnus-summary-marks 526 :group 'gnus-summary-marks
527 :type 'character) 527 :type 'character)
528 528
529 (defcustom gnus-no-mark ? ;Whitespace 529 (defcustom gnus-no-mark ? ;Whitespace
530 "*Mark used for articles that have no other secondary mark." 530 "*Mark used for articles that have no other secondary mark."
531 :version "21.4" 531 :version "22.1"
532 :group 'gnus-summary-marks 532 :group 'gnus-summary-marks
533 :type 'character) 533 :type 'character)
534 534
535 (defcustom gnus-ancient-mark ?O 535 (defcustom gnus-ancient-mark ?O
536 "*Mark used for ancient articles." 536 "*Mark used for ancient articles."
552 :group 'gnus-summary-marks 552 :group 'gnus-summary-marks
553 :type 'character) 553 :type 'character)
554 554
555 (defcustom gnus-undownloaded-mark ?- 555 (defcustom gnus-undownloaded-mark ?-
556 "*Mark used for articles that weren't downloaded." 556 "*Mark used for articles that weren't downloaded."
557 :version "21.4" 557 :version "22.1"
558 :group 'gnus-summary-marks 558 :group 'gnus-summary-marks
559 :type 'character) 559 :type 'character)
560 560
561 (defcustom gnus-downloaded-mark ?+ 561 (defcustom gnus-downloaded-mark ?+
562 "*Mark used for articles that were downloaded." 562 "*Mark used for articles that were downloaded."
891 :group 'gnus-summary 891 :group 'gnus-summary
892 :type 'hook) 892 :type 'hook)
893 893
894 (defcustom gnus-summary-article-move-hook nil 894 (defcustom gnus-summary-article-move-hook nil
895 "*A hook called after an article is moved, copied, respooled, or crossposted." 895 "*A hook called after an article is moved, copied, respooled, or crossposted."
896 :version "21.4" 896 :version "22.1"
897 :group 'gnus-summary 897 :group 'gnus-summary
898 :type 'hook) 898 :type 'hook)
899 899
900 (defcustom gnus-summary-article-delete-hook nil 900 (defcustom gnus-summary-article-delete-hook nil
901 "*A hook called after an article is deleted." 901 "*A hook called after an article is deleted."
902 :version "21.4" 902 :version "22.1"
903 :group 'gnus-summary 903 :group 'gnus-summary
904 :type 'hook) 904 :type 'hook)
905 905
906 (defcustom gnus-summary-article-expire-hook nil 906 (defcustom gnus-summary-article-expire-hook nil
907 "*A hook called after an article is expired." 907 "*A hook called after an article is expired."
908 :version "21.4" 908 :version "22.1"
909 :group 'gnus-summary 909 :group 'gnus-summary
910 :type 'hook) 910 :type 'hook)
911 911
912 (defcustom gnus-summary-display-arrow 912 (defcustom gnus-summary-display-arrow
913 (and (fboundp 'display-graphic-p) 913 (and (fboundp 'display-graphic-p)
914 (display-graphic-p)) 914 (display-graphic-p))
915 "*If non-nil, display an arrow highlighting the current article." 915 "*If non-nil, display an arrow highlighting the current article."
916 :version "21.4" 916 :version "22.1"
917 :group 'gnus-summary 917 :group 'gnus-summary
918 :type 'boolean) 918 :type 'boolean)
919 919
920 (defcustom gnus-summary-selected-face 'gnus-summary-selected-face 920 (defcustom gnus-summary-selected-face 'gnus-summary-selected-face
921 "Face used for highlighting the current article in the summary buffer." 921 "Face used for highlighting the current article in the summary buffer."
1089 (defcustom gnus-read-all-available-headers nil 1089 (defcustom gnus-read-all-available-headers nil
1090 "Whether Gnus should parse all headers made available to it. 1090 "Whether Gnus should parse all headers made available to it.
1091 This is mostly relevant for slow back ends where the user may 1091 This is mostly relevant for slow back ends where the user may
1092 wish to widen the summary buffer to include all headers 1092 wish to widen the summary buffer to include all headers
1093 that were fetched. Say, for nnultimate groups." 1093 that were fetched. Say, for nnultimate groups."
1094 :version "21.4" 1094 :version "22.1"
1095 :group 'gnus-summary 1095 :group 'gnus-summary
1096 :type '(choice boolean regexp)) 1096 :type '(choice boolean regexp))
1097 1097
1098 (defcustom gnus-summary-muttprint-program "muttprint" 1098 (defcustom gnus-summary-muttprint-program "muttprint"
1099 "Command (and optional arguments) used to run Muttprint." 1099 "Command (and optional arguments) used to run Muttprint."
1100 :version "21.4" 1100 :version "22.1"
1101 :group 'gnus-summary 1101 :group 'gnus-summary
1102 :type 'string) 1102 :type 'string)
1103 1103
1104 (defcustom gnus-article-loose-mime nil 1104 (defcustom gnus-article-loose-mime nil
1105 "If non-nil, don't require MIME-Version header. 1105 "If non-nil, don't require MIME-Version header.
1106 Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not 1106 Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not
1107 supply the MIME-Version header or deliberately strip it from the mail. 1107 supply the MIME-Version header or deliberately strip it from the mail.
1108 Set it to non-nil, Gnus will treat some articles as MIME even if 1108 Set it to non-nil, Gnus will treat some articles as MIME even if
1109 the MIME-Version header is missed." 1109 the MIME-Version header is missed."
1110 :version "21.4" 1110 :version "22.1"
1111 :type 'boolean 1111 :type 'boolean
1112 :group 'gnus-article-mime) 1112 :group 'gnus-article-mime)
1113 1113
1114 (defcustom gnus-article-emulate-mime t 1114 (defcustom gnus-article-emulate-mime t
1115 "If non-nil, use MIME emulation for uuencode and the like. 1115 "If non-nil, use MIME emulation for uuencode and the like.
1116 This means that Gnus will search message bodies for text that look 1116 This means that Gnus will search message bodies for text that look
1117 like uuencoded bits, yEncoded bits, and so on, and present that using 1117 like uuencoded bits, yEncoded bits, and so on, and present that using
1118 the normal Gnus MIME machinery." 1118 the normal Gnus MIME machinery."
1119 :version "21.4" 1119 :version "22.1"
1120 :type 'boolean 1120 :type 'boolean
1121 :group 'gnus-article-mime) 1121 :group 'gnus-article-mime)
1122 1122
1123 ;;; Internal variables 1123 ;;; Internal variables
1124 1124
4637 (defvar gnus-tmp-thread-tree-header-string "") 4637 (defvar gnus-tmp-thread-tree-header-string "")
4638 4638
4639 (defcustom gnus-sum-thread-tree-root "> " 4639 (defcustom gnus-sum-thread-tree-root "> "
4640 "With %B spec, used for the root of a thread. 4640 "With %B spec, used for the root of a thread.
4641 If nil, use subject instead." 4641 If nil, use subject instead."
4642 :version "21.4" 4642 :version "22.1"
4643 :type '(radio (const :format "%v " nil) string) 4643 :type '(radio (const :format "%v " nil) string)
4644 :group 'gnus-thread) 4644 :group 'gnus-thread)
4645 (defcustom gnus-sum-thread-tree-false-root "> " 4645 (defcustom gnus-sum-thread-tree-false-root "> "
4646 "With %B spec, used for a false root of a thread. 4646 "With %B spec, used for a false root of a thread.
4647 If nil, use subject instead." 4647 If nil, use subject instead."
4648 :version "21.4" 4648 :version "22.1"
4649 :type '(radio (const :format "%v " nil) string) 4649 :type '(radio (const :format "%v " nil) string)
4650 :group 'gnus-thread) 4650 :group 'gnus-thread)
4651 (defcustom gnus-sum-thread-tree-single-indent "" 4651 (defcustom gnus-sum-thread-tree-single-indent ""
4652 "With %B spec, used for a thread with just one message. 4652 "With %B spec, used for a thread with just one message.
4653 If nil, use subject instead." 4653 If nil, use subject instead."
4654 :version "21.4" 4654 :version "22.1"
4655 :type '(radio (const :format "%v " nil) string) 4655 :type '(radio (const :format "%v " nil) string)
4656 :group 'gnus-thread) 4656 :group 'gnus-thread)
4657 (defcustom gnus-sum-thread-tree-vertical "| " 4657 (defcustom gnus-sum-thread-tree-vertical "| "
4658 "With %B spec, used for drawing a vertical line." 4658 "With %B spec, used for drawing a vertical line."
4659 :version "21.4" 4659 :version "22.1"
4660 :type 'string 4660 :type 'string
4661 :group 'gnus-thread) 4661 :group 'gnus-thread)
4662 (defcustom gnus-sum-thread-tree-indent " " 4662 (defcustom gnus-sum-thread-tree-indent " "
4663 "With %B spec, used for indenting." 4663 "With %B spec, used for indenting."
4664 :version "21.4" 4664 :version "22.1"
4665 :type 'string 4665 :type 'string
4666 :group 'gnus-thread) 4666 :group 'gnus-thread)
4667 (defcustom gnus-sum-thread-tree-leaf-with-other "+-> " 4667 (defcustom gnus-sum-thread-tree-leaf-with-other "+-> "
4668 "With %B spec, used for a leaf with brothers." 4668 "With %B spec, used for a leaf with brothers."
4669 :version "21.4" 4669 :version "22.1"
4670 :type 'string 4670 :type 'string
4671 :group 'gnus-thread) 4671 :group 'gnus-thread)
4672 (defcustom gnus-sum-thread-tree-single-leaf "\\-> " 4672 (defcustom gnus-sum-thread-tree-single-leaf "\\-> "
4673 "With %B spec, used for a leaf without brothers." 4673 "With %B spec, used for a leaf without brothers."
4674 :version "21.4" 4674 :version "22.1"
4675 :type 'string 4675 :type 'string
4676 :group 'gnus-thread) 4676 :group 'gnus-thread)
4677 4677
4678 (defun gnus-summary-prepare-threads (threads) 4678 (defun gnus-summary-prepare-threads (threads)
4679 "Prepare summary buffer from THREADS and indentation LEVEL. 4679 "Prepare summary buffer from THREADS and indentation LEVEL.
9180 9180
9181 (defcustom gnus-summary-display-while-building nil 9181 (defcustom gnus-summary-display-while-building nil
9182 "If non-nil, show and update the summary buffer as it's being built. 9182 "If non-nil, show and update the summary buffer as it's being built.
9183 If the value is t, update the buffer after every line is inserted. If 9183 If the value is t, update the buffer after every line is inserted. If
9184 the value is an integer (N), update the display every N lines." 9184 the value is an integer (N), update the display every N lines."
9185 :version "21.4" 9185 :version "22.1"
9186 :group 'gnus-thread 9186 :group 'gnus-thread
9187 :type '(choice (const :tag "off" nil) 9187 :type '(choice (const :tag "off" nil)
9188 number 9188 number
9189 (const :tag "frequently" t))) 9189 (const :tag "frequently" t)))
9190 9190