Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 59996:aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Change development version from 21.3.50 to 22.0.50.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 09 Feb 2005 15:50:47 +0000 |
parents | 4b8110af6bbe |
children | b070535d2416 3ebd9bdb4fe5 |
comparison
equal
deleted
inserted
replaced
59995:8f4938738427 | 59996:aac0a33f5772 |
---|---|
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 |