Synch with Oort Gnus.

[elisp/gnus.git-] / lisp / gnus-sum.el
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el

index d9cddf3..8e05e70 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -51,11 +51,10 @@
  
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  (autoload 'gnus-cache-write-active "gnus-cache")
  
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  (autoload 'gnus-cache-write-active "gnus-cache")
-(autoload 'gnus-set-summary-default-charset "gnus-i18n" nil t)
  (autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
  (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
  (autoload 'mm-uu-dissect "mm-uu")
  (autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
  (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
  (autoload 'mm-uu-dissect "mm-uu")
-(autoload 'gnus-article-outlook-deuglify-article "deuglify" 
+(autoload 'gnus-article-outlook-deuglify-article "deuglify"
    "Deuglify broken Outlook (Express) articles and redisplay."
    t)
  
    "Deuglify broken Outlook (Express) articles and redisplay."
    t)
  
@@ -121,6 +120,11 @@ given by the `gnus-summary-same-subject' variable.)"
                  (const adopt)
                  (const empty)))
  
                  (const adopt)
                  (const empty)))
  
+(defcustom gnus-summary-make-false-root-always t
+  "Always make a false dummy root."
+  :group 'gnus-thread
+  :type 'boolean)
+
  (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
    "*A regexp to match subjects to be excluded from loose thread gathering.
  As loose thread gathering is done on subjects only, that means that
  (defcustom gnus-summary-gather-exclude-subject "^ *$\\|^(none)$"
    "*A regexp to match subjects to be excluded from loose thread gathering.
  As loose thread gathering is done on subjects only, that means that
@@ -148,13 +152,14 @@ comparing subjects."
    "List of functions taking a string argument that simplify subjects.
  The functions are applied recursively.
  
    "List of functions taking a string argument that simplify subjects.
  The functions are applied recursively.
  
-Useful functions to put in this list include: `gnus-simplify-subject-re',
-`gnus-simplify-subject-fuzzy' and `gnus-simplify-whitespace'."
+Useful functions to put in this list include:
+`gnus-simplify-subject-re', `gnus-simplify-subject-fuzzy',
+`gnus-simplify-whitespace', and `gnus-simplify-all-whitespace'."
    :group 'gnus-thread
    :type '(repeat function))
  
  (defcustom gnus-simplify-ignored-prefixes nil
    :group 'gnus-thread
    :type '(repeat function))
  
  (defcustom gnus-simplify-ignored-prefixes nil
-  "*Regexp, matches for which are removed from subject lines when simplifying fuzzily."
+  "*Remove matches for this regexp from subject lines when simplifying fuzzily."
    :group 'gnus-thread
    :type '(choice (const :tag "off" nil)
                  regexp))
    :group 'gnus-thread
    :type '(choice (const :tag "off" nil)
                  regexp))
@@ -196,7 +201,7 @@ This applies to marking commands as well as other commands that
  the end of an article.
  
  If nil, the marking commands do NOT go to the next unread article
  the end of an article.
  
  If nil, the marking commands do NOT go to the next unread article
-(they go to the next article instead).  If `never', commands that
+\(they go to the next article instead).  If `never', commands that
  usually go to the next unread article, will go to the next article,
  whether it is read or not."
    :group 'gnus-summary-marks
  usually go to the next unread article, will go to the next article,
  whether it is read or not."
    :group 'gnus-summary-marks
@@ -447,6 +452,11 @@ this variable specifies group names."
    :group 'gnus-summary-marks
    :type 'character)
  
    :group 'gnus-summary-marks
    :type 'character)
  
+(defcustom gnus-spam-mark ?H
+  "*Mark used for spam articles."
+  :group 'gnus-summary-marks
+  :type 'character)
+
  (defcustom gnus-souped-mark ?F
    "*Mark used for souped articles."
    :group 'gnus-summary-marks
  (defcustom gnus-souped-mark ?F
    "*Mark used for souped articles."
    :group 'gnus-summary-marks
@@ -522,11 +532,16 @@ this variable specifies group names."
    :group 'gnus-summary-marks
    :type 'character)
  
    :group 'gnus-summary-marks
    :type 'character)
  
-(defcustom gnus-undownloaded-mark ?@
+(defcustom gnus-undownloaded-mark ?-
    "*Mark used for articles that weren't downloaded."
    :group 'gnus-summary-marks
    :type 'character)
  
    "*Mark used for articles that weren't downloaded."
    :group 'gnus-summary-marks
    :type 'character)
  
+(defcustom gnus-downloaded-mark ?+
+  "*Mark used for articles that were downloaded."
+  :group 'gnus-summary-marks
+  :type 'character)
+
  (defcustom gnus-downloadable-mark ?%
    "*Mark used for articles that are to be downloaded."
    :group 'gnus-summary-marks
  (defcustom gnus-downloadable-mark ?%
    "*Mark used for articles that are to be downloaded."
    :group 'gnus-summary-marks
@@ -599,7 +614,7 @@ list of parameters to that command."
    :type 'boolean)
  
  (defcustom gnus-summary-dummy-line-format
    :type 'boolean)
  
  (defcustom gnus-summary-dummy-line-format
-  "  %(:                          :%) %S\n"
+  "   %(:                             :%) %S\n"
    "*The format specification for the dummy roots in the summary buffer.
  It works along the same lines as a normal formatting string,
  with some simple extensions.
    "*The format specification for the dummy roots in the summary buffer.
  It works along the same lines as a normal formatting string,
  with some simple extensions.
@@ -607,7 +622,7 @@ with some simple extensions.
  %S  The subject
  
  General format specifiers can also be used.
  %S  The subject
  
  General format specifiers can also be used.
-See (gnus)Formatting Variables."
+See `(gnus)Formatting Variables'."
    :link '(custom-manual "(gnus)Formatting Variables")
    :group 'gnus-threading
    :type 'string)
    :link '(custom-manual "(gnus)Formatting Variables")
    :group 'gnus-threading
    :type 'string)
@@ -666,7 +681,8 @@ was sent, sorting by number means sorting by arrival time.)
  
  Ready-made functions include `gnus-article-sort-by-number',
  `gnus-article-sort-by-author', `gnus-article-sort-by-subject',
  
  Ready-made functions include `gnus-article-sort-by-number',
  `gnus-article-sort-by-author', `gnus-article-sort-by-subject',
-`gnus-article-sort-by-date' and `gnus-article-sort-by-score'.
+`gnus-article-sort-by-date', `gnus-article-sort-by-random'
+and `gnus-article-sort-by-score'.
  
  When threading is turned on, the variable `gnus-thread-sort-functions'
  controls how articles are sorted."
  
  When threading is turned on, the variable `gnus-thread-sort-functions'
  controls how articles are sorted."
@@ -676,6 +692,7 @@ controls how articles are sorted."
                          (function-item gnus-article-sort-by-subject)
                          (function-item gnus-article-sort-by-date)
                          (function-item gnus-article-sort-by-score)
                          (function-item gnus-article-sort-by-subject)
                          (function-item gnus-article-sort-by-date)
                          (function-item gnus-article-sort-by-score)
+                        (function-item gnus-article-sort-by-random)
                          (function :tag "other"))))
  
  (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
                          (function :tag "other"))))
  
  (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
@@ -695,7 +712,8 @@ Ready-made functions include `gnus-thread-sort-by-number',
  `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject',
  `gnus-thread-sort-by-date', `gnus-thread-sort-by-score',
  `gnus-thread-sort-by-most-recent-number',
  `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject',
  `gnus-thread-sort-by-date', `gnus-thread-sort-by-score',
  `gnus-thread-sort-by-most-recent-number',
-`gnus-thread-sort-by-most-recent-date', and
+`gnus-thread-sort-by-most-recent-date',
+`gnus-thread-sort-by-random', and
  `gnus-thread-sort-by-total-score' (see `gnus-thread-score-function').
  
  When threading is turned off, the variable
  `gnus-thread-sort-by-total-score' (see `gnus-thread-score-function').
  
  When threading is turned off, the variable
@@ -707,6 +725,7 @@ When threading is turned off, the variable
                          (function-item gnus-thread-sort-by-date)
                          (function-item gnus-thread-sort-by-score)
                          (function-item gnus-thread-sort-by-total-score)
                          (function-item gnus-thread-sort-by-date)
                          (function-item gnus-thread-sort-by-score)
                          (function-item gnus-thread-sort-by-total-score)
+                        (function-item gnus-thread-sort-by-random)
                          (function :tag "other"))))
  
  (defcustom gnus-thread-score-function '+
                          (function :tag "other"))))
  
  (defcustom gnus-thread-score-function '+
@@ -811,7 +830,7 @@ is not run if `gnus-visual' is nil."
    :group 'gnus-summary-visual
    :type 'hook)
  
    :group 'gnus-summary-visual
    :type 'hook)
  
-(defcustom gnus-parse-headers-hook '(gnus-set-summary-default-charset)
+(defcustom gnus-parse-headers-hook '(gnus-summary-inherit-default-charset)
    "*A hook called before parsing the headers."
    :group 'gnus-various
    :type 'hook)
    "*A hook called before parsing the headers."
    :group 'gnus-various
    :type 'hook)
@@ -863,43 +882,40 @@ automatically when it is selected."
    :group 'gnus-summary-visual
    :type 'face)
  
    :group 'gnus-summary-visual
    :type 'face)
  
+(defvar gnus-tmp-downloaded nil)
+
  (defcustom gnus-summary-highlight
  (defcustom gnus-summary-highlight
-  '(((= mark gnus-canceled-mark)
+  '(((eq mark gnus-canceled-mark)
       . gnus-summary-cancelled-face)
       . gnus-summary-cancelled-face)
+    ((and uncached (> score default-high))
+     . gnus-summary-high-undownloaded-face)
+    ((and uncached (< score default-low))
+     . gnus-summary-low-undownloaded-face)
+    (uncached
+     . gnus-summary-normal-undownloaded-face)
      ((and (> score default-high)
      ((and (> score default-high)
-         (or (= mark gnus-dormant-mark)
-             (= mark gnus-ticked-mark)))
+         (or (eq mark gnus-dormant-mark)
+             (eq mark gnus-ticked-mark)))
       . gnus-summary-high-ticked-face)
      ((and (< score default-low)
       . gnus-summary-high-ticked-face)
      ((and (< score default-low)
-         (or (= mark gnus-dormant-mark)
-             (= mark gnus-ticked-mark)))
+         (or (eq mark gnus-dormant-mark)
+             (eq mark gnus-ticked-mark)))
       . gnus-summary-low-ticked-face)
       . gnus-summary-low-ticked-face)
-    ((or (= mark gnus-dormant-mark)
-        (= mark gnus-ticked-mark))
+    ((or (eq mark gnus-dormant-mark)
+        (eq mark gnus-ticked-mark))
       . gnus-summary-normal-ticked-face)
       . gnus-summary-normal-ticked-face)
-    ((and (> score default-high) (= mark gnus-ancient-mark))
+    ((and (> score default-high) (eq mark gnus-ancient-mark))
       . gnus-summary-high-ancient-face)
       . gnus-summary-high-ancient-face)
-    ((and (< score default-low) (= mark gnus-ancient-mark))
+    ((and (< score default-low) (eq mark gnus-ancient-mark))
       . gnus-summary-low-ancient-face)
       . gnus-summary-low-ancient-face)
-    ((= mark gnus-ancient-mark)
+    ((eq mark gnus-ancient-mark)
       . gnus-summary-normal-ancient-face)
       . gnus-summary-normal-ancient-face)
-    ((and (> score default-high) (= mark gnus-unread-mark))
+    ((and (> score default-high) (eq mark gnus-unread-mark))
       . gnus-summary-high-unread-face)
       . gnus-summary-high-unread-face)
-    ((and (< score default-low) (= mark gnus-unread-mark))
+    ((and (< score default-low) (eq mark gnus-unread-mark))
       . gnus-summary-low-unread-face)
       . gnus-summary-low-unread-face)
-    ((= mark gnus-unread-mark)
+    ((eq mark gnus-unread-mark)
       . gnus-summary-normal-unread-face)
       . gnus-summary-normal-unread-face)
-    ((and (> score default-high) (memq mark (list gnus-downloadable-mark
-                                                 gnus-undownloaded-mark)))
-     . gnus-summary-high-unread-face)
-    ((and (< score default-low) (memq mark (list gnus-downloadable-mark
-                                                gnus-undownloaded-mark)))
-     . gnus-summary-low-unread-face)
-    ((and (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))
-         (memq article gnus-newsgroup-unreads))
-     . gnus-summary-normal-unread-face)
-    ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))
-     . gnus-summary-normal-read-face)
      ((> score default-high)
       . gnus-summary-high-read-face)
      ((< score default-low)
      ((> score default-high)
       . gnus-summary-high-read-face)
      ((< score default-low)
@@ -1078,7 +1094,6 @@ the MIME-Version header is missed."
  (defvar gnus-article-ignored-charsets nil)
  (defvar gnus-scores-exclude-files nil)
  (defvar gnus-page-broken nil)
  (defvar gnus-article-ignored-charsets nil)
  (defvar gnus-scores-exclude-files nil)
  (defvar gnus-page-broken nil)
-(defvar gnus-inhibit-mime-unbuttonizing nil)
  
  (defvar gnus-original-article nil)
  (defvar gnus-article-internal-prepare-hook nil)
  
  (defvar gnus-original-article nil)
  (defvar gnus-article-internal-prepare-hook nil)
@@ -1127,7 +1142,9 @@ the MIME-Version header is missed."
      (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
      (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
      (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
      (?M ,(macroexpand '(mail-header-id gnus-tmp-header)) ?s)
      (?r ,(macroexpand '(mail-header-references gnus-tmp-header)) ?s)
      (?c (or (mail-header-chars gnus-tmp-header) 0) ?d)
+    (?k (gnus-summary-line-message-size gnus-tmp-header) ?s)
      (?L gnus-tmp-lines ?s)
      (?L gnus-tmp-lines ?s)
+    (?O gnus-tmp-downloaded ?c)
      (?I gnus-tmp-indentation ?s)
      (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
      (?R gnus-tmp-replied ?c)
      (?I gnus-tmp-indentation ?s)
      (?T (if (= gnus-tmp-level 0) "" (make-string (frame-width) ? )) ?s)
      (?R gnus-tmp-replied ?c)
@@ -1175,6 +1192,7 @@ the type of the variable (string, integer, character, etc).")
      (?u gnus-tmp-user-defined ?s)
      (?d (length gnus-newsgroup-dormant) ?d)
      (?t (length gnus-newsgroup-marked) ?d)
      (?u gnus-tmp-user-defined ?s)
      (?d (length gnus-newsgroup-dormant) ?d)
      (?t (length gnus-newsgroup-marked) ?d)
+    (?h (length gnus-newsgroup-spam-marked) ?d)
      (?r (length gnus-newsgroup-reads) ?d)
      (?z (gnus-summary-article-score gnus-tmp-article-number) ?d)
      (?E gnus-newsgroup-expunged-tally ?d)
      (?r (length gnus-newsgroup-reads) ?d)
      (?z (gnus-summary-article-score gnus-tmp-article-number) ?d)
      (?E gnus-newsgroup-expunged-tally ?d)
@@ -1191,6 +1209,8 @@ end position and text.")
  (defvar gnus-last-shell-command nil
    "Default shell command on article.")
  
  (defvar gnus-last-shell-command nil
    "Default shell command on article.")
  
+(defvar gnus-newsgroup-agentized nil
+  "Locally bound in each summary buffer to indicate whether the server has been agentized.")
  (defvar gnus-newsgroup-begin nil)
  (defvar gnus-newsgroup-end nil)
  (defvar gnus-newsgroup-last-rmail nil)
  (defvar gnus-newsgroup-begin nil)
  (defvar gnus-newsgroup-end nil)
  (defvar gnus-newsgroup-last-rmail nil)
@@ -1219,6 +1239,9 @@ end position and text.")
  (defvar gnus-newsgroup-marked nil
    "Sorted list of ticked articles in the current newsgroup (a subset of unread art).")
  
  (defvar gnus-newsgroup-marked nil
    "Sorted list of ticked articles in the current newsgroup (a subset of unread art).")
  
+(defvar gnus-newsgroup-spam-marked nil
+  "List of ranges of articles that have been marked as spam.")
+
  (defvar gnus-newsgroup-killed nil
    "List of ranges of articles that have been through the scoring process.")
  
  (defvar gnus-newsgroup-killed nil
    "List of ranges of articles that have been through the scoring process.")
  
@@ -1307,6 +1330,7 @@ end position and text.")
      gnus-newsgroup-last-folder gnus-newsgroup-last-file
      gnus-newsgroup-auto-expire gnus-newsgroup-unreads
      gnus-newsgroup-unselected gnus-newsgroup-marked
      gnus-newsgroup-last-folder gnus-newsgroup-last-file
      gnus-newsgroup-auto-expire gnus-newsgroup-unreads
      gnus-newsgroup-unselected gnus-newsgroup-marked
+    gnus-newsgroup-spam-marked
      gnus-newsgroup-reads gnus-newsgroup-saved
      gnus-newsgroup-replied gnus-newsgroup-forwarded
      gnus-newsgroup-recent
      gnus-newsgroup-reads gnus-newsgroup-saved
      gnus-newsgroup-replied gnus-newsgroup-forwarded
      gnus-newsgroup-recent
@@ -1356,7 +1380,12 @@ buffers. For example:
  ")
  
  ;; Byte-compiler warning.
  ")
  
  ;; Byte-compiler warning.
-(eval-when-compile (defvar gnus-article-mode-map))
+;(eval-when-compile (defvar gnus-article-mode-map))
+(eval-when-compile
+  (let ((features (cons 'gnus-sum features)))
+    (require 'gnus)
+    (require 'gnus-agent)
+    (require 'gnus-art)))
  
  ;; Subject simplification.
  
  
  ;; Subject simplification.
  
@@ -1376,6 +1405,13 @@ buffers. For example:
        (setq mystr (substring mystr 0 (match-beginning 0))))
      mystr))
  
        (setq mystr (substring mystr 0 (match-beginning 0))))
      mystr))
  
+(defun gnus-simplify-all-whitespace (str)
+  "Remove all whitespace from STR."
+  (let ((mystr str))
+    (while (string-match "[ \t\n]+" mystr)
+      (setq mystr (replace-match "" nil nil mystr)))
+    mystr))
+
  (defsubst gnus-simplify-subject-re (subject)
    "Remove \"Re:\" from subject lines."
    (if (string-match message-subject-re-regexp subject)
  (defsubst gnus-simplify-subject-re (subject)
    "Remove \"Re:\" from subject lines."
    (if (string-match message-subject-re-regexp subject)
@@ -1558,6 +1594,7 @@ increase the score of each group you read."
      "\C-c\C-s\C-d" gnus-summary-sort-by-date
      "\C-c\C-s\C-i" gnus-summary-sort-by-score
      "\C-c\C-s\C-o" gnus-summary-sort-by-original
      "\C-c\C-s\C-d" gnus-summary-sort-by-date
      "\C-c\C-s\C-i" gnus-summary-sort-by-score
      "\C-c\C-s\C-o" gnus-summary-sort-by-original
+    "\C-c\C-s\C-r" gnus-summary-sort-by-random
      "=" gnus-summary-expand-window
      "\C-x\C-s" gnus-summary-reselect-current-group
      "\M-g" gnus-summary-rescan-group
      "=" gnus-summary-expand-window
      "\C-x\C-s" gnus-summary-reselect-current-group
      "\M-g" gnus-summary-rescan-group
@@ -1586,7 +1623,7 @@ increase the score of each group you read."
      "i" gnus-summary-news-other-window
      "x" gnus-summary-limit-to-unread
      "s" gnus-summary-isearch-article
      "i" gnus-summary-news-other-window
      "x" gnus-summary-limit-to-unread
      "s" gnus-summary-isearch-article
-    "t" gnus-article-toggle-headers
+    "t" gnus-summary-toggle-header
      "g" gnus-summary-show-article
      "l" gnus-summary-goto-last-article
      "v" gnus-summary-preview-mime-message
      "g" gnus-summary-show-article
      "l" gnus-summary-goto-last-article
      "v" gnus-summary-preview-mime-message
@@ -1655,6 +1692,7 @@ increase the score of each group you read."
      "T" gnus-summary-limit-include-thread
      "d" gnus-summary-limit-exclude-dormant
      "t" gnus-summary-limit-to-age
      "T" gnus-summary-limit-include-thread
      "d" gnus-summary-limit-exclude-dormant
      "t" gnus-summary-limit-to-age
+    "." gnus-summary-limit-to-unseen
      "x" gnus-summary-limit-to-extra
      "p" gnus-summary-limit-to-display-predicate
      "E" gnus-summary-limit-include-expunged
      "x" gnus-summary-limit-to-extra
      "p" gnus-summary-limit-to-display-predicate
      "E" gnus-summary-limit-include-expunged
@@ -1700,7 +1738,8 @@ increase the score of each group you read."
  
    (gnus-define-keys (gnus-summary-buffer-map "Y" gnus-summary-mode-map)
      "g" gnus-summary-prepare
  
    (gnus-define-keys (gnus-summary-buffer-map "Y" gnus-summary-mode-map)
      "g" gnus-summary-prepare
-    "c" gnus-summary-insert-cached-articles)
+    "c" gnus-summary-insert-cached-articles
+    "d" gnus-summary-insert-dormant-articles)
  
    (gnus-define-keys (gnus-summary-exit-map "Z" gnus-summary-mode-map)
      "c" gnus-summary-catchup-and-exit
  
    (gnus-define-keys (gnus-summary-exit-map "Z" gnus-summary-mode-map)
      "c" gnus-summary-catchup-and-exit
@@ -1754,7 +1793,8 @@ increase the score of each group you read."
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "r" gnus-summary-caesar-message
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "r" gnus-summary-caesar-message
-    "t" gnus-article-toggle-headers
+    "m" gnus-summary-morse-message
+    "t" gnus-summary-toggle-header
      "g" gnus-treat-smiley
      "v" gnus-summary-verbose-headers
      "m" gnus-summary-toggle-mime
      "g" gnus-treat-smiley
      "v" gnus-summary-verbose-headers
      "m" gnus-summary-toggle-mime
@@ -1765,7 +1805,7 @@ increase the score of each group you read."
  
    (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
      "a" gnus-article-hide
  
    (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
      "a" gnus-article-hide
-    "h" gnus-article-toggle-headers
+    "h" gnus-article-hide-headers
      "b" gnus-article-hide-boring-headers
      "s" gnus-article-hide-signature
      "c" gnus-article-hide-citation
      "b" gnus-article-hide-boring-headers
      "s" gnus-article-hide-signature
      "c" gnus-article-hide-citation
@@ -1820,7 +1860,9 @@ increase the score of each group you read."
      "f" gnus-summary-fetch-faq
      "d" gnus-summary-describe-group
      "h" gnus-summary-describe-briefly
      "f" gnus-summary-fetch-faq
      "d" gnus-summary-describe-group
      "h" gnus-summary-describe-briefly
-    "i" gnus-info-find-node)
+    "i" gnus-info-find-node
+    "c" gnus-group-fetch-charter
+    "C" gnus-group-fetch-control)
  
    (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
      "e" gnus-summary-expire-articles
  
    (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
      "e" gnus-summary-expire-articles
@@ -1913,6 +1955,30 @@ increase the score of each group you read."
  
  (defvar gnus-article-post-menu nil)
  
  
  (defvar gnus-article-post-menu nil)
  
+(defconst gnus-summary-menu-maxlen 20)
+
+(defun gnus-summary-menu-split (menu)
+  ;; If we have lots of elements, divide them into groups of 20
+  ;; and make a pane (or submenu) for each one.
+  (if (> (length menu) (/ (* gnus-summary-menu-maxlen 3) 2))
+      (let ((menu menu) sublists next
+           (i 1))
+       (while menu
+         ;; Pull off the next gnus-summary-menu-maxlen elements
+         ;; and make them the next element of sublist.
+         (setq next (nthcdr gnus-summary-menu-maxlen menu))
+         (if next
+             (setcdr (nthcdr (1- gnus-summary-menu-maxlen) menu)
+                     nil))
+         (setq sublists (cons (cons (format "%s ... %s" (aref (car menu) 0)
+                                            (aref (car (last menu)) 0)) menu)
+                              sublists))
+         (setq i (1+ i))
+         (setq menu next))
+       (nreverse sublists))
+    ;; Few elements--put them all in one pane.
+    menu))
+
  (defun gnus-summary-make-menu-bar ()
    (gnus-turn-off-edit-menu 'summary)
  
  (defun gnus-summary-make-menu-bar ()
    (gnus-turn-off-edit-menu 'summary)
  
@@ -1951,7 +2017,7 @@ increase the score of each group you read."
      (let ((innards
            `(("Hide"
               ["All" gnus-article-hide t]
      (let ((innards
            `(("Hide"
               ["All" gnus-article-hide t]
-             ["Headers" gnus-article-toggle-headers t]
+             ["Headers" gnus-article-hide-headers t]
               ["Signature" gnus-article-hide-signature t]
               ["Citation" gnus-article-hide-citation t]
               ["List identifiers" gnus-article-hide-list-identifiers t]
               ["Signature" gnus-article-hide-signature t]
               ["Citation" gnus-article-hide-citation t]
               ["List identifiers" gnus-article-hide-list-identifiers t]
@@ -1978,27 +2044,26 @@ increase the score of each group you read."
               ["Show picons in mail headers" gnus-treat-mail-picon t]
               ["Show picons in news headers" gnus-treat-newsgroups-picon t]
               ("View as different encoding"
               ["Show picons in mail headers" gnus-treat-mail-picon t]
               ["Show picons in news headers" gnus-treat-newsgroups-picon t]
               ("View as different encoding"
-              ,@(mapcar
-                 (lambda (cs)
-                   ;; Since easymenu under FSF Emacs doesn't allow lambda
-                   ;; forms for menu commands, we should provide intern'ed
-                   ;; function symbols.
-                   (let ((command (intern (format "\
+              ,@(gnus-summary-menu-split
+                 (mapcar
+                  (lambda (cs)
+                    ;; Since easymenu under FSF Emacs doesn't allow lambda
+                    ;; forms for menu commands, we should provide intern'ed
+                    ;; function symbols.
+                    (let ((command (intern (format "\
  gnus-summary-show-article-from-menu-as-charset-%s" cs))))
  gnus-summary-show-article-from-menu-as-charset-%s" cs))))
-                     (fset command
-                           `(lambda ()
-                              (interactive)
-                              (let ((gnus-summary-show-article-charset-alist
-                                     '((1 . ,cs))))
-                                (gnus-summary-show-article 1))))
-                     `[,(symbol-name cs) ,command t]))
-                 (sort (if (fboundp 'coding-system-list)
-                           (coding-system-list)
-                         ;;(mapcar 'car mm-mime-mule-charset-alist)
-                         )
-                       (lambda (a b)
-                         (string< (symbol-name a)
-                                  (symbol-name b)))))))
+                      (fset command
+                            `(lambda ()
+                               (interactive)
+                               (let ((gnus-summary-show-article-charset-alist
+                                      '((1 . ,cs))))
+                                 (gnus-summary-show-article 1))))
+                      `[,(symbol-name cs) ,command t]))
+                  (sort (if (fboundp 'coding-system-list)
+                            (coding-system-list)
+                          ;;(mapcar 'car mm-mime-mule-charset-alist)
+                          )
+                        'string<)))))
              ("Washing"
               ("Remove Blanks"
                ["Leading" gnus-article-strip-leading-blank-lines t]
              ("Washing"
               ("Remove Blanks"
                ["Leading" gnus-article-strip-leading-blank-lines t]
@@ -2020,7 +2085,8 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
               ["Rot 13" gnus-summary-caesar-message
                ,@(if (featurep 'xemacs) '(t)
                    '(:help "\"Caesar rotate\" article by 13"))]
               ["Rot 13" gnus-summary-caesar-message
                ,@(if (featurep 'xemacs) '(t)
                    '(:help "\"Caesar rotate\" article by 13"))]
-             ["Unix pipe" gnus-summary-pipe-message t]
+             ["Morse decode" gnus-summary-morse-message t]
+             ["Unix pipe..." gnus-summary-pipe-message t]
               ["Add buttons" gnus-article-add-buttons t]
               ["Add buttons to head" gnus-article-add-buttons-to-head t]
               ["Stop page breaking" gnus-summary-stop-page-breaking t]
               ["Add buttons" gnus-article-add-buttons t]
               ["Add buttons to head" gnus-article-add-buttons-to-head t]
               ["Stop page breaking" gnus-summary-stop-page-breaking t]
@@ -2116,6 +2182,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
      (easy-menu-define
       gnus-summary-thread-menu gnus-summary-mode-map ""
       '("Threads"
      (easy-menu-define
       gnus-summary-thread-menu gnus-summary-mode-map ""
       '("Threads"
+       ["Find all messages in thread" gnus-summary-refer-thread t]
         ["Toggle threading" gnus-summary-toggle-threads t]
         ["Hide threads" gnus-summary-hide-all-threads t]
         ["Show threads" gnus-summary-show-all-threads t]
         ["Toggle threading" gnus-summary-toggle-threads t]
         ["Hide threads" gnus-summary-hide-all-threads t]
         ["Show threads" gnus-summary-show-all-threads t]
@@ -2216,11 +2283,12 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
         ["Author..." gnus-summary-limit-to-author t]
         ["Age..." gnus-summary-limit-to-age t]
         ["Extra..." gnus-summary-limit-to-extra t]
         ["Author..." gnus-summary-limit-to-author t]
         ["Age..." gnus-summary-limit-to-age t]
         ["Extra..." gnus-summary-limit-to-extra t]
-       ["Score" gnus-summary-limit-to-score t]
+       ["Score..." gnus-summary-limit-to-score t]
         ["Display Predicate" gnus-summary-limit-to-display-predicate t]
         ["Unread" gnus-summary-limit-to-unread t]
         ["Display Predicate" gnus-summary-limit-to-display-predicate t]
         ["Unread" gnus-summary-limit-to-unread t]
+       ["Unseen" gnus-summary-limit-to-unseen t]
         ["Non-dormant" gnus-summary-limit-exclude-dormant t]
         ["Non-dormant" gnus-summary-limit-exclude-dormant t]
-       ["Articles" gnus-summary-limit-to-articles t]
+       ["Next articles" gnus-summary-limit-to-articles t]
         ["Pop limit" gnus-summary-pop-limit t]
         ["Show dormant" gnus-summary-limit-include-dormant t]
         ["Hide childless dormant"
         ["Pop limit" gnus-summary-pop-limit t]
         ["Show dormant" gnus-summary-limit-include-dormant t]
         ["Hide childless dormant"
@@ -2279,10 +2347,17 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
         ["Sort by score" gnus-summary-sort-by-score t]
         ["Sort by lines" gnus-summary-sort-by-lines t]
         ["Sort by characters" gnus-summary-sort-by-chars t]
         ["Sort by score" gnus-summary-sort-by-score t]
         ["Sort by lines" gnus-summary-sort-by-lines t]
         ["Sort by characters" gnus-summary-sort-by-chars t]
+       ["Randomize" gnus-summary-sort-by-random t]
         ["Original sort" gnus-summary-sort-by-original t])
         ("Help"
         ["Fetch group FAQ" gnus-summary-fetch-faq t]
         ["Describe group" gnus-summary-describe-group t]
         ["Original sort" gnus-summary-sort-by-original t])
         ("Help"
         ["Fetch group FAQ" gnus-summary-fetch-faq t]
         ["Describe group" gnus-summary-describe-group t]
+       ["Fetch charter" gnus-group-fetch-charter
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Display the charter of the current group"))]
+       ["Fetch control message" gnus-group-fetch-control
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Display the archived control message for the current group"))]
         ["Read manual" gnus-info-find-node t])
         ("Modes"
         ["Pick and read" gnus-pick-mode t]
         ["Read manual" gnus-info-find-node t])
         ("Modes"
         ["Pick and read" gnus-pick-mode t]
@@ -2290,6 +2365,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
         ("Regeneration"
         ["Regenerate" gnus-summary-prepare t]
         ["Insert cached articles" gnus-summary-insert-cached-articles t]
         ("Regeneration"
         ["Regenerate" gnus-summary-prepare t]
         ["Insert cached articles" gnus-summary-insert-cached-articles t]
+       ["Insert dormant articles" gnus-summary-insert-dormant-articles t]
         ["Toggle threading" gnus-summary-toggle-threads t])
         ["See old articles" gnus-summary-insert-old-articles t]
         ["See new articles" gnus-summary-insert-new-articles t]
         ["Toggle threading" gnus-summary-toggle-threads t])
         ["See old articles" gnus-summary-insert-old-articles t]
         ["See new articles" gnus-summary-insert-new-articles t]
@@ -2696,6 +2772,7 @@ The following commands are available:
  (defun gnus-article-read-p (article)
    "Say whether ARTICLE is read or not."
    (not (or (memq article gnus-newsgroup-marked)
  (defun gnus-article-read-p (article)
    "Say whether ARTICLE is read or not."
    (not (or (memq article gnus-newsgroup-marked)
+          (memq article gnus-newsgroup-spam-marked)
            (memq article gnus-newsgroup-unreads)
            (memq article gnus-newsgroup-unselected)
            (memq article gnus-newsgroup-dormant))))
            (memq article gnus-newsgroup-unreads)
            (memq article gnus-newsgroup-unselected)
            (memq article gnus-newsgroup-dormant))))
@@ -2704,7 +2781,7 @@ The following commands are available:
  
  (defmacro gnus-summary-article-number ()
    "The article number of the article on the current line.
  
  (defmacro gnus-summary-article-number ()
    "The article number of the article on the current line.
-If there isn's an article number here, then we return the current
+If there isn't an article number here, then we return the current
  article number."
    '(progn
       (gnus-summary-skip-intangible)
  article number."
    '(progn
       (gnus-summary-skip-intangible)
@@ -2786,6 +2863,7 @@ article number."
  This is all marks except unread, ticked, dormant, and expirable."
    (not (or (= mark gnus-unread-mark)
            (= mark gnus-ticked-mark)
  This is all marks except unread, ticked, dormant, and expirable."
    (not (or (= mark gnus-unread-mark)
            (= mark gnus-ticked-mark)
+          (= mark gnus-spam-mark)
            (= mark gnus-dormant-mark)
            (= mark gnus-expirable-mark))))
  
            (= mark gnus-dormant-mark)
            (= mark gnus-expirable-mark))))
  
@@ -2797,10 +2875,10 @@ time; i.e., when generating the summary lines.  After that,
  marks of articles."
    `(cond
      ((memq ,number gnus-newsgroup-unsendable) gnus-unsendable-mark)
  marks of articles."
    `(cond
      ((memq ,number gnus-newsgroup-unsendable) gnus-unsendable-mark)
-    ((memq ,number gnus-newsgroup-undownloaded) gnus-undownloaded-mark)
      ((memq ,number gnus-newsgroup-downloadable) gnus-downloadable-mark)
      ((memq ,number gnus-newsgroup-unreads) gnus-unread-mark)
      ((memq ,number gnus-newsgroup-marked) gnus-ticked-mark)
      ((memq ,number gnus-newsgroup-downloadable) gnus-downloadable-mark)
      ((memq ,number gnus-newsgroup-unreads) gnus-unread-mark)
      ((memq ,number gnus-newsgroup-marked) gnus-ticked-mark)
+    ((memq ,number gnus-newsgroup-spam-marked) gnus-spam-mark)
      ((memq ,number gnus-newsgroup-dormant) gnus-dormant-mark)
      ((memq ,number gnus-newsgroup-expirable) gnus-expirable-mark)
      (t (or (cdr (assq ,number gnus-newsgroup-reads))
      ((memq ,number gnus-newsgroup-dormant) gnus-dormant-mark)
      ((memq ,number gnus-newsgroup-expirable) gnus-expirable-mark)
      (t (or (cdr (assq ,number gnus-newsgroup-reads))
@@ -2941,6 +3019,7 @@ buffer that was in action when the last article was fetched."
      (setq gnus-summary-buffer (current-buffer))
      (let ((name gnus-newsgroup-name)
           (marked gnus-newsgroup-marked)
      (setq gnus-summary-buffer (current-buffer))
      (let ((name gnus-newsgroup-name)
           (marked gnus-newsgroup-marked)
+         (spam gnus-newsgroup-spam-marked)
           (unread gnus-newsgroup-unreads)
           (headers gnus-current-headers)
           (data gnus-newsgroup-data)
           (unread gnus-newsgroup-unreads)
           (headers gnus-current-headers)
           (data gnus-newsgroup-data)
@@ -2963,6 +3042,7 @@ buffer that was in action when the last article was fetched."
         (set-buffer gnus-group-buffer)
         (setq gnus-newsgroup-name name
               gnus-newsgroup-marked marked
         (set-buffer gnus-group-buffer)
         (setq gnus-newsgroup-name name
               gnus-newsgroup-marked marked
+             gnus-newsgroup-spam-marked spam
               gnus-newsgroup-unreads unread
               gnus-current-headers headers
               gnus-newsgroup-data data
               gnus-newsgroup-unreads unread
               gnus-current-headers headers
               gnus-newsgroup-data data
@@ -3020,31 +3100,33 @@ buffer that was in action when the last article was fetched."
      (let ((gnus-replied-mark 129)
           (gnus-score-below-mark 130)
           (gnus-score-over-mark 130)
      (let ((gnus-replied-mark 129)
           (gnus-score-below-mark 130)
           (gnus-score-over-mark 130)
-         (gnus-download-mark 131)
+         (gnus-undownloaded-mark 131)
           (spec gnus-summary-line-format-spec)
           gnus-visual pos)
        (save-excursion
         (gnus-set-work-buffer)
         (let ((gnus-summary-line-format-spec spec)
           (spec gnus-summary-line-format-spec)
           gnus-visual pos)
        (save-excursion
         (gnus-set-work-buffer)
         (let ((gnus-summary-line-format-spec spec)
-             (gnus-newsgroup-downloadable '((0 . t))))
+             (gnus-newsgroup-downloadable '(0)))
           (gnus-summary-insert-line
            (make-full-mail-header 0 "" "nobody"
                                   "05 Apr 2001 23:33:09 +0400"
                                   "" "" 0 0 "" nil)
           (gnus-summary-insert-line
            (make-full-mail-header 0 "" "nobody"
                                   "05 Apr 2001 23:33:09 +0400"
                                   "" "" 0 0 "" nil)
-          0 nil 128 t nil "" nil 1)
+          0 nil t 128 t nil "" nil 1)
           (goto-char (point-min))
           (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
           (goto-char (point-min))
           (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
-                                            (- (point) 2)))))
+                                            (- (point) (point-min) 1)))))
           (goto-char (point-min))
           (push (cons 'replied (and (search-forward "\201" nil t)
           (goto-char (point-min))
           (push (cons 'replied (and (search-forward "\201" nil t)
-                                   (- (point) 2)))
+                                   (- (point) (point-min) 1)))
                 pos)
           (goto-char (point-min))
                 pos)
           (goto-char (point-min))
-         (push (cons 'score (and (search-forward "\202" nil t) (- (point) 2)))
+         (push (cons 'score (and (search-forward "\202" nil t)
+                                 (- (point) (point-min) 1)))
                 pos)
           (goto-char (point-min))
           (push (cons 'download
                 pos)
           (goto-char (point-min))
           (push (cons 'download
-                     (and (search-forward "\203" nil t) (- (point) 2)))
+                     (and (search-forward "\203" nil t)
+                          (- (point) (point-min) 1)))
                 pos)))
        (setq gnus-summary-mark-positions pos))))
  
                 pos)))
        (setq gnus-summary-mark-positions pos))))
  
@@ -3082,7 +3164,7 @@ buffer that was in action when the last article was fetched."
  
  (defun gnus-summary-insert-line (gnus-tmp-header
                                  gnus-tmp-level gnus-tmp-current
  
  (defun gnus-summary-insert-line (gnus-tmp-header
                                  gnus-tmp-level gnus-tmp-current
-                                gnus-tmp-unread gnus-tmp-replied
+                                undownloaded gnus-tmp-unread gnus-tmp-replied
                                  gnus-tmp-expirable gnus-tmp-subject-or-nil
                                  &optional gnus-tmp-dummy gnus-tmp-score
                                  gnus-tmp-process)
                                  gnus-tmp-expirable gnus-tmp-subject-or-nil
                                  &optional gnus-tmp-dummy gnus-tmp-score
                                  gnus-tmp-process)
@@ -3111,6 +3193,13 @@ buffer that was in action when the last article was fetched."
                 ((memq gnus-tmp-number gnus-newsgroup-unseen)
                  gnus-unseen-mark)
                 (t gnus-no-mark)))
                 ((memq gnus-tmp-number gnus-newsgroup-unseen)
                  gnus-unseen-mark)
                 (t gnus-no-mark)))
+        (gnus-tmp-downloaded
+         (cond (undownloaded 
+                 gnus-undownloaded-mark)
+                (gnus-newsgroup-agentized
+                 gnus-downloaded-mark)
+                (t
+                 gnus-no-mark)))
          (gnus-tmp-from (mail-header-from gnus-tmp-header))
          (gnus-tmp-name
           (cond
          (gnus-tmp-from (mail-header-from gnus-tmp-header))
          (gnus-tmp-name
           (cond
@@ -3204,6 +3293,18 @@ the thread are to be displayed."
           gnus-empty-thread-mark)
        number)))
  
           gnus-empty-thread-mark)
        number)))
  
+(defsubst gnus-summary-line-message-size (head)
+  "Return pretty-printed version of message size.
+This function is intended to be used in
+`gnus-summary-line-format-alist', which see."
+  (let ((c (or (mail-header-chars head) -1)))
+    (cond ((< c 0) "n/a")              ; chars not available
+         ((< c (* 1000 10)) (format "%1.1fk" (/ c 1024.0)))
+         ((< c (* 1000 100)) (format "%dk" (/ c 1024.0)))
+         ((< c (* 1000 10000)) (format "%1.1fM" (/ c (* 1024.0 1024))))
+         (t (format "%dM" (/ c (* 1024.0 1024)))))))
+
+
  (defun gnus-summary-set-local-parameters (group)
    "Go through the local params of GROUP and set all variable specs in that list."
    (let ((params (gnus-group-find-parameter group))
  (defun gnus-summary-set-local-parameters (group)
    "Go through the local params of GROUP and set all variable specs in that list."
    (let ((params (gnus-group-find-parameter group))
@@ -3355,7 +3456,7 @@ If SHOW-ALL is non-nil, already read articles are also listed."
               (let ((gnus-newsgroup-dormant nil))
                 (gnus-summary-initial-limit show-all))
             (gnus-summary-initial-limit show-all))
               (let ((gnus-newsgroup-dormant nil))
                 (gnus-summary-initial-limit show-all))
             (gnus-summary-initial-limit show-all))
-       ;; When untreaded, all articles are always shown.
+       ;; When unthreaded, all articles are always shown.
         (setq gnus-newsgroup-limit
               (mapcar
                (lambda (header) (mail-header-number header))
         (setq gnus-newsgroup-limit
               (mapcar
                (lambda (header) (mail-header-number header))
@@ -3421,6 +3522,8 @@ If SHOW-ALL is non-nil, already read articles are also listed."
         ;; Mark this buffer as "prepared".
         (setq gnus-newsgroup-prepared t)
         (gnus-run-hooks 'gnus-summary-prepared-hook)
         ;; Mark this buffer as "prepared".
         (setq gnus-newsgroup-prepared t)
         (gnus-run-hooks 'gnus-summary-prepared-hook)
+       (unless (gnus-ephemeral-group-p group)
+         (gnus-group-update-group group))
         t)))))
  
  (defun gnus-summary-auto-select-subject ()
         t)))))
  
  (defun gnus-summary-auto-select-subject ()
@@ -3522,7 +3625,16 @@ If SHOW-ALL is non-nil, already read articles are also listed."
                 (setcdr prev (cdr threads))
                 (setq threads prev))
             ;; Enter this thread into the hash table.
                 (setcdr prev (cdr threads))
                 (setq threads prev))
             ;; Enter this thread into the hash table.
-           (gnus-sethash subject threads hashtb)))
+           (gnus-sethash subject
+                         (if gnus-summary-make-false-root-always
+                             (progn
+                               ;; If you want a dummy root above all
+                               ;; threads...
+                               (setcar threads (list whole-subject
+                                                     (car threads)))
+                               threads)
+                           threads)
+                         hashtb)))
         (setq prev threads)
         (setq threads (cdr threads)))
        result)))
         (setq prev threads)
         (setq threads (cdr threads)))
        result)))
@@ -3642,7 +3754,7 @@ entered.
  Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
    (let* ((id (mail-header-id header))
          (id-dep (and id (intern id dependencies)))
  Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
    (let* ((id (mail-header-id header))
          (id-dep (and id (intern id dependencies)))
-        ref ref-dep ref-header replaced)
+        parent-id ref ref-dep ref-header replaced)
      ;; Enter this `header' in the `dependencies' table.
      (cond
       ((not id-dep)
      ;; Enter this `header' in the `dependencies' table.
      (cond
       ((not id-dep)
@@ -3685,7 +3797,8 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
  
      (when (and header (not replaced))
        ;; First check that we are not creating a References loop.
  
      (when (and header (not replaced))
        ;; First check that we are not creating a References loop.
-      (setq ref (gnus-parent-id (mail-header-references header)))
+      (setq parent-id (gnus-parent-id (mail-header-references header)))
+      (setq ref parent-id)
        (while (and ref
                   (setq ref-dep (intern-soft ref dependencies))
                   (boundp ref-dep)
        (while (and ref
                   (setq ref-dep (intern-soft ref dependencies))
                   (boundp ref-dep)
@@ -3695,10 +3808,10 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
             ;; root article.
             (progn
               (mail-header-set-references (car (symbol-value id-dep)) "none")
             ;; root article.
             (progn
               (mail-header-set-references (car (symbol-value id-dep)) "none")
-             (setq ref nil))
+             (setq ref nil)
+             (setq parent-id nil))
           (setq ref (gnus-parent-id (mail-header-references ref-header)))))
           (setq ref (gnus-parent-id (mail-header-references ref-header)))))
-      (setq ref (gnus-parent-id (mail-header-references header)))
-      (setq ref-dep (intern (or ref "none") dependencies))
+      (setq ref-dep (intern (or parent-id "none") dependencies))
        (if (boundp ref-dep)
           (setcdr (symbol-value ref-dep)
                   (nconc (cdr (symbol-value ref-dep))
        (if (boundp ref-dep)
           (setcdr (symbol-value ref-dep)
                   (nconc (cdr (symbol-value ref-dep))
@@ -3908,7 +4021,9 @@ the id of the parent article (if any)."
            (level (gnus-summary-thread-level)))
        (gnus-delete-line)
        (gnus-summary-insert-line
            (level (gnus-summary-thread-level)))
        (gnus-delete-line)
        (gnus-summary-insert-line
-       header level nil (gnus-article-mark article)
+       header level nil 
+       (memq article gnus-newsgroup-undownloaded)
+       (gnus-article-mark article)
         (memq article gnus-newsgroup-replied)
         (memq article gnus-newsgroup-expirable)
         ;; Only insert the Subject string when it's different
         (memq article gnus-newsgroup-replied)
         (memq article gnus-newsgroup-expirable)
         ;; Only insert the Subject string when it's different
@@ -4170,11 +4285,11 @@ If LINE, insert the rebuilt thread starting on line LINE."
    (if (not gnus-thread-sort-functions)
        threads
      (gnus-message 8 "Sorting threads...")
    (if (not gnus-thread-sort-functions)
        threads
      (gnus-message 8 "Sorting threads...")
-    (prog1
-       (gnus-sort-threads-1
+    (let ((max-lisp-eval-depth 5000))
+      (prog1 (gnus-sort-threads-1
          threads
          (gnus-make-sort-function gnus-thread-sort-functions))
          threads
          (gnus-make-sort-function gnus-thread-sort-functions))
-      (gnus-message 8 "Sorting threads...done"))))
+        (gnus-message 8 "Sorting threads...done")))))
  
  (defun gnus-sort-articles (articles)
    "Sort ARTICLES."
  
  (defun gnus-sort-articles (articles)
    "Sort ARTICLES."
@@ -4206,6 +4321,15 @@ using some other form will lead to serious barfage."
    (gnus-article-sort-by-number
     (gnus-thread-header h1) (gnus-thread-header h2)))
  
    (gnus-article-sort-by-number
     (gnus-thread-header h1) (gnus-thread-header h2)))
  
+(defsubst gnus-article-sort-by-random (h1 h2)
+  "Sort articles by article number."
+  (zerop (random 2)))
+
+(defun gnus-thread-sort-by-random (h1 h2)
+  "Sort threads by root article number."
+  (gnus-article-sort-by-random
+   (gnus-thread-header h1) (gnus-thread-header h2)))
+
  (defsubst gnus-article-sort-by-lines (h1 h2)
    "Sort articles by article Lines header."
    (< (mail-header-lines h1)
  (defsubst gnus-article-sort-by-lines (h1 h2)
    "Sort articles by article Lines header."
    (< (mail-header-lines h1)
@@ -4316,19 +4440,19 @@ Unscored articles will be counted as having a score of zero."
  (defun gnus-thread-latest-date (thread)
    "Return the highest article date in THREAD."
    (let ((previous-time 0))
  (defun gnus-thread-latest-date (thread)
    "Return the highest article date in THREAD."
    (let ((previous-time 0))
-    (apply 'max (mapcar
-                (lambda (header)
-                  (setq previous-time
-                        (time-to-seconds
-                         (mail-header-parse-date
-                          (condition-case ()
-                              (mail-header-date header)
-                            (error previous-time))))))
-                (sort
-                 (message-flatten-list thread)
-                 (lambda (h1 h2)
-                   (< (mail-header-number h1)
-                      (mail-header-number h2))))))))
+    (apply 'max
+          (mapcar
+           (lambda (header)
+             (setq previous-time
+                   (time-to-seconds
+                    (condition-case ()
+                        (mail-header-parse-date (mail-header-date header))
+                      (error previous-time)))))
+           (sort
+            (message-flatten-list thread)
+            (lambda (h1 h2)
+              (< (mail-header-number h1)
+                 (mail-header-number h2))))))))
  
  (defun gnus-thread-total-score-1 (root)
    ;; This function find the total score of the thread below ROOT.
  
  (defun gnus-thread-total-score-1 (root)
    ;; This function find the total score of the thread below ROOT.
@@ -4397,9 +4521,11 @@ or a straight list of headers."
    (let ((gnus-tmp-level 0)
         (default-score (or gnus-summary-default-score 0))
         (gnus-visual-p (gnus-visual-p 'summary-highlight 'highlight))
    (let ((gnus-tmp-level 0)
         (default-score (or gnus-summary-default-score 0))
         (gnus-visual-p (gnus-visual-p 'summary-highlight 'highlight))
+       (building-line-count gnus-summary-display-while-building)
+       (building-count (integerp gnus-summary-display-while-building))
         thread number subject stack state gnus-tmp-gathered beg-match
         thread number subject stack state gnus-tmp-gathered beg-match
-       new-roots gnus-tmp-new-adopts thread-end
-       gnus-tmp-header gnus-tmp-unread
+       new-roots gnus-tmp-new-adopts thread-end simp-subject
+       gnus-tmp-header gnus-tmp-unread gnus-tmp-downloaded
         gnus-tmp-replied gnus-tmp-subject-or-nil
         gnus-tmp-dummy gnus-tmp-indentation gnus-tmp-lines gnus-tmp-score
         gnus-tmp-score-char gnus-tmp-from gnus-tmp-name
         gnus-tmp-replied gnus-tmp-subject-or-nil
         gnus-tmp-dummy gnus-tmp-indentation gnus-tmp-lines gnus-tmp-score
         gnus-tmp-score-char gnus-tmp-from gnus-tmp-name
@@ -4416,6 +4542,8 @@ or a straight list of headers."
  
        ;; Do the threaded display.
  
  
        ;; Do the threaded display.
  
+      (if gnus-summary-display-while-building
+         (switch-to-buffer (buffer-name)))
        (while (or threads stack gnus-tmp-new-adopts new-roots)
  
         (if (and (= gnus-tmp-level 0)
        (while (or threads stack gnus-tmp-new-adopts new-roots)
  
         (if (and (= gnus-tmp-level 0)
@@ -4487,7 +4615,8 @@ or a straight list of headers."
               (setq gnus-tmp-level -1)))
  
           (setq number (mail-header-number gnus-tmp-header)
               (setq gnus-tmp-level -1)))
  
           (setq number (mail-header-number gnus-tmp-header)
-               subject (mail-header-subject gnus-tmp-header))
+               subject (mail-header-subject gnus-tmp-header)
+               simp-subject (gnus-simplify-subject-fully subject))
  
           (cond
            ;; If the thread has changed subject, we might want to make
  
           (cond
            ;; If the thread has changed subject, we might want to make
@@ -4495,8 +4624,7 @@ or a straight list of headers."
            ((and (null gnus-thread-ignore-subject)
                  (not (zerop gnus-tmp-level))
                  gnus-tmp-prev-subject
            ((and (null gnus-thread-ignore-subject)
                  (not (zerop gnus-tmp-level))
                  gnus-tmp-prev-subject
-                (not (inline
-                       (gnus-subject-equal gnus-tmp-prev-subject subject))))
+                (not (string= gnus-tmp-prev-subject simp-subject)))
             (setq new-roots (nconc new-roots (list (car thread)))
                   thread-end t
                   gnus-tmp-header nil))
             (setq new-roots (nconc new-roots (list (car thread)))
                   thread-end t
                   gnus-tmp-header nil))
@@ -4557,15 +4685,13 @@ or a straight list of headers."
              (cond
               ((and gnus-thread-ignore-subject
                     gnus-tmp-prev-subject
              (cond
               ((and gnus-thread-ignore-subject
                     gnus-tmp-prev-subject
-                   (not (inline (gnus-subject-equal
-                                 gnus-tmp-prev-subject subject))))
+                   (not (string= gnus-tmp-prev-subject simp-subject)))
                subject)
               ((zerop gnus-tmp-level)
                (if (and (eq gnus-summary-make-false-root 'empty)
                         (memq number gnus-tmp-gathered)
                         gnus-tmp-prev-subject
                subject)
               ((zerop gnus-tmp-level)
                (if (and (eq gnus-summary-make-false-root 'empty)
                         (memq number gnus-tmp-gathered)
                         gnus-tmp-prev-subject
-                       (inline (gnus-subject-equal
-                                gnus-tmp-prev-subject subject)))
+                       (string= gnus-tmp-prev-subject simp-subject))
                    gnus-summary-same-subject
                  subject))
               (t gnus-summary-same-subject)))
                    gnus-summary-same-subject
                  subject))
               (t gnus-summary-same-subject)))
@@ -4605,6 +4731,13 @@ or a straight list of headers."
                    ((memq number gnus-newsgroup-unseen)
                     gnus-unseen-mark)
                    (t gnus-no-mark))
                    ((memq number gnus-newsgroup-unseen)
                     gnus-unseen-mark)
                    (t gnus-no-mark))
+            gnus-tmp-downloaded
+             (cond ((memq number gnus-newsgroup-undownloaded) 
+                    gnus-undownloaded-mark)
+                   (gnus-newsgroup-agentized
+                    gnus-downloaded-mark)
+                   (t
+                    gnus-no-mark))
              gnus-tmp-from (mail-header-from gnus-tmp-header)
              gnus-tmp-name
              (cond
              gnus-tmp-from (mail-header-from gnus-tmp-header)
              gnus-tmp-name
              (cond
@@ -4650,7 +4783,7 @@ or a straight list of headers."
               (gnus-run-hooks 'gnus-summary-update-hook)
               (forward-line 1))
  
               (gnus-run-hooks 'gnus-summary-update-hook)
               (forward-line 1))
  
-           (setq gnus-tmp-prev-subject subject)))
+           (setq gnus-tmp-prev-subject simp-subject)))
  
         (when (nth 1 thread)
           (push (list (max 0 gnus-tmp-level)
  
         (when (nth 1 thread)
           (push (list (max 0 gnus-tmp-level)
@@ -4660,6 +4793,17 @@ or a straight list of headers."
         (push (if (nth 1 thread) 1 0) tree-stack)
         (incf gnus-tmp-level)
         (setq threads (if thread-end nil (cdar thread)))
         (push (if (nth 1 thread) 1 0) tree-stack)
         (incf gnus-tmp-level)
         (setq threads (if thread-end nil (cdar thread)))
+       (if gnus-summary-display-while-building
+           (if building-count
+               (progn
+                 ;; use a set frequency
+                 (setq building-line-count (1- building-line-count))
+                 (when (= building-line-count 0)
+                   (sit-for 0)
+                   (setq building-line-count
+                         gnus-summary-display-while-building)))
+             ;; always
+             (sit-for 0)))
         (unless threads
           (setq gnus-tmp-level 0)))))
    (gnus-message 7 "Generating summary...done"))
         (unless threads
           (setq gnus-tmp-level 0)))))
    (gnus-message 7 "Generating summary...done"))
@@ -4693,6 +4837,7 @@ or a straight list of headers."
               gnus-newsgroup-data)
         (gnus-summary-insert-line
          header 0 number
               gnus-newsgroup-data)
         (gnus-summary-insert-line
          header 0 number
+        (memq number gnus-newsgroup-undownloaded)
          mark (memq number gnus-newsgroup-replied)
          (memq number gnus-newsgroup-expirable)
          (mail-header-subject header) nil
          mark (memq number gnus-newsgroup-replied)
          (memq number gnus-newsgroup-expirable)
          (mail-header-subject header) nil
@@ -4833,7 +4978,6 @@ If SELECT-ARTICLES, only select those articles from GROUP."
      ;; Adjust and set lists of article marks.
      (when info
        (gnus-adjust-marked-articles info))
      ;; Adjust and set lists of article marks.
      (when info
        (gnus-adjust-marked-articles info))
-
      (if (setq articles select-articles)
         (setq gnus-newsgroup-unselected
               (gnus-sorted-difference gnus-newsgroup-unreads articles))
      (if (setq articles select-articles)
         (setq gnus-newsgroup-unselected
               (gnus-sorted-difference gnus-newsgroup-unreads articles))
@@ -4850,6 +4994,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
             (gnus-make-hashtable (length articles)))
        (gnus-set-global-variables)
        ;; Retrieve the headers and read them in.
             (gnus-make-hashtable (length articles)))
        (gnus-set-global-variables)
        ;; Retrieve the headers and read them in.
+
        (setq gnus-newsgroup-headers (gnus-fetch-headers articles))
  
        ;; Kludge to avoid having cached articles nixed out in virtual groups.
        (setq gnus-newsgroup-headers (gnus-fetch-headers articles))
  
        ;; Kludge to avoid having cached articles nixed out in virtual groups.
@@ -4929,12 +5074,15 @@ If SELECT-ARTICLES, only select those articles from GROUP."
      (gnus-get-predicate display)))
  
  ;; Uses the dynamically bound `number' variable.
      (gnus-get-predicate display)))
  
  ;; Uses the dynamically bound `number' variable.
-(defvar number)
+(eval-when-compile
+  (defvar number))
  (defun gnus-article-marked-p (type &optional article)
    (let ((article (or article number)))
      (cond
       ((eq type 'tick)
        (memq article gnus-newsgroup-marked))
  (defun gnus-article-marked-p (type &optional article)
    (let ((article (or article number)))
      (cond
       ((eq type 'tick)
        (memq article gnus-newsgroup-marked))
+     ((eq type 'spam)
+      (memq article gnus-newsgroup-spam-marked))
       ((eq type 'unsend)
        (memq article gnus-newsgroup-unsendable))
       ((eq type 'undownload)
       ((eq type 'unsend)
        (memq article gnus-newsgroup-unsendable))
       ((eq type 'undownload)
@@ -4971,7 +5119,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
  
  (defun gnus-articles-to-read (group &optional read-all)
    "Find out what articles the user wants to read."
  
  (defun gnus-articles-to-read (group &optional read-all)
    "Find out what articles the user wants to read."
-  (let* ((articles
+  (let* ((display (gnus-group-find-parameter group 'display))
+        (articles
           ;; Select all articles if `read-all' is non-nil, or if there
           ;; are no unread articles.
           (if (or read-all
           ;; Select all articles if `read-all' is non-nil, or if there
           ;; are no unread articles.
           (if (or read-all
@@ -5431,7 +5580,8 @@ The resulting hash table is returned, or nil if no Xrefs were found."
         ;; Update the number of unread articles.
         (setcar entry num)
         ;; Update the group buffer.
         ;; Update the number of unread articles.
         (setcar entry num)
         ;; Update the group buffer.
-       (gnus-group-update-group group t)))))
+       (unless (gnus-ephemeral-group-p group)
+         (gnus-group-update-group group t))))))
  
  (defvar gnus-newsgroup-none-id 0)
  
  
  (defvar gnus-newsgroup-none-id 0)
  
@@ -5853,8 +6003,7 @@ If EXCLUDE-GROUP, do not go to this group."
                       (progn
                         (while arts
                           (when (or (and undownloaded
                       (progn
                         (while arts
                           (when (or (and undownloaded
-                                        (eq gnus-undownloaded-mark
-                                            (gnus-data-mark (car arts))))
+                                        (memq (car arts) gnus-newsgroup-undownloaded))
                                     (gnus-data-unread-p (car arts)))
                             (setq result (car arts)
                                   arts nil))
                                     (gnus-data-unread-p (car arts)))
                             (setq result (car arts)
                                   arts nil))
@@ -6079,20 +6228,35 @@ displayed, no centering will be performed."
  
  (defun gnus-summary-toggle-truncation (&optional arg)
    "Toggle truncation of summary lines.
  
  (defun gnus-summary-toggle-truncation (&optional arg)
    "Toggle truncation of summary lines.
-With arg, turn line truncation on iff arg is positive."
+With arg, turn line truncation on if arg is positive."
    (interactive "P")
    (setq truncate-lines
         (if (null arg) (not truncate-lines)
           (> (prefix-numeric-value arg) 0)))
    (redraw-display))
  
    (interactive "P")
    (setq truncate-lines
         (if (null arg) (not truncate-lines)
           (> (prefix-numeric-value arg) 0)))
    (redraw-display))
  
+(defun gnus-summary-find-uncancelled ()
+  "Return the number of an uncancelled article.
+The current article is considered, then following articles, then previous
+articles.  If all articles are cancelled then return a dummy 0."
+  (let (found)
+    (dolist (rev '(nil t))
+      (unless found      ; don't demand the reverse list if we don't need it
+        (let ((data (gnus-data-find-list
+                     (gnus-summary-article-number) (gnus-data-list rev))))
+          (while (and data (not found))
+            (if (not (eq gnus-canceled-mark (gnus-data-mark (car data))))
+                (setq found (gnus-data-number (car data))))
+            (setq data (cdr data))))))
+    (or found 0)))
+
  (defun gnus-summary-reselect-current-group (&optional all rescan)
    "Exit and then reselect the current newsgroup.
  The prefix argument ALL means to select all articles."
    (interactive "P")
    (when (gnus-ephemeral-group-p gnus-newsgroup-name)
      (error "Ephemeral groups can't be reselected"))
  (defun gnus-summary-reselect-current-group (&optional all rescan)
    "Exit and then reselect the current newsgroup.
  The prefix argument ALL means to select all articles."
    (interactive "P")
    (when (gnus-ephemeral-group-p gnus-newsgroup-name)
      (error "Ephemeral groups can't be reselected"))
-  (let ((current-subject (gnus-summary-article-number))
+  (let ((current-subject (gnus-summary-find-uncancelled))
         (group gnus-newsgroup-name))
      (setq gnus-newsgroup-begin nil)
      (gnus-summary-exit)
         (group gnus-newsgroup-name))
      (setq gnus-newsgroup-begin nil)
      (gnus-summary-exit)
@@ -6170,6 +6334,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
    (gnus-async-halt-prefetch)
    (let* ((group gnus-newsgroup-name)
          (quit-config (gnus-group-quit-config gnus-newsgroup-name))
    (gnus-async-halt-prefetch)
    (let* ((group gnus-newsgroup-name)
          (quit-config (gnus-group-quit-config gnus-newsgroup-name))
+        (gnus-group-is-exiting-p t)
          (mode major-mode)
          (group-point nil)
          (buf (current-buffer)))
          (mode major-mode)
          (group-point nil)
          (buf (current-buffer)))
@@ -6265,6 +6430,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
    "Quit reading current newsgroup without updating read article info."
    (interactive)
    (let* ((group gnus-newsgroup-name)
    "Quit reading current newsgroup without updating read article info."
    (interactive)
    (let* ((group gnus-newsgroup-name)
+        (gnus-group-is-exiting-p t)
          (quit-config (gnus-group-quit-config group)))
      (when (or no-questions
               gnus-expert-user
          (quit-config (gnus-group-quit-config group)))
      (when (or no-questions
               gnus-expert-user
@@ -6301,6 +6467,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
        (gnus-configure-windows 'group 'force)
        ;; Clear the current group name.
        (setq gnus-newsgroup-name nil)
        (gnus-configure-windows 'group 'force)
        ;; Clear the current group name.
        (setq gnus-newsgroup-name nil)
+      (unless (gnus-ephemeral-group-p group)
+       (gnus-group-update-group group))
        (when (equal (gnus-group-group-name) group)
         (gnus-group-next-unread-group 1))
        (when quit-config
        (when (equal (gnus-group-group-name) group)
         (gnus-group-next-unread-group 1))
        (when quit-config
@@ -6443,7 +6611,7 @@ in."
     (list
      (when current-prefix-arg
        (completing-read
     (list
      (when current-prefix-arg
        (completing-read
-       "Faq dir: " (and (listp gnus-group-faq-directory)
+       "FAQ dir: " (and (listp gnus-group-faq-directory)
                         (mapcar (lambda (file) (list file))
                                 gnus-group-faq-directory))))))
    (let (gnus-faq-buffer)
                         (mapcar (lambda (file) (list file))
                                 gnus-group-faq-directory))))))
    (let (gnus-faq-buffer)
@@ -6475,10 +6643,6 @@ previous group instead."
    (let ((current-group gnus-newsgroup-name)
         (current-buffer (current-buffer))
         entered)
    (let ((current-group gnus-newsgroup-name)
         (current-buffer (current-buffer))
         entered)
-    ;; First we semi-exit this group to update Xrefs and all variables.
-    ;; We can't do a real exit, because the window conf must remain
-    ;; the same in case the user is prompted for info, and we don't
-    ;; want the window conf to change before that...
      (gnus-summary-exit t)
      (while (not entered)
        ;; Then we find what group we are supposed to enter.
      (gnus-summary-exit t)
      (while (not entered)
        ;; Then we find what group we are supposed to enter.
@@ -6504,10 +6668,20 @@ previous group instead."
         (let ((unreads (gnus-group-group-unread)))
           (if (and (or (eq t unreads)
                        (and unreads (not (zerop unreads))))
         (let ((unreads (gnus-group-group-unread)))
           (if (and (or (eq t unreads)
                        (and unreads (not (zerop unreads))))
-                  (gnus-summary-read-group
-                   target-group nil no-article
-                   (and (buffer-name current-buffer) current-buffer)
-                   nil backward))
+                  (progn
+                    ;; Now we semi-exit this group to update Xrefs
+                    ;; and all variables.  We can't do a real exit,
+                    ;; because the window conf must remain the same
+                    ;; in case the user is prompted for info, and we
+                    ;; don't want the window conf to change before
+                    ;; that...
+                    (when (gnus-buffer-live-p current-buffer)
+                      (set-buffer current-buffer)
+                      (gnus-summary-exit t))
+                    (gnus-summary-read-group
+                     target-group nil no-article
+                     (and (buffer-name current-buffer) current-buffer)
+                     nil backward)))
               (setq entered t)
             (setq current-group target-group
                   target-group nil)))))))
               (setq entered t)
             (setq current-group target-group
                   target-group nil)))))))
@@ -6544,8 +6718,8 @@ Returns the article selected or nil if there are no unread articles."
         (let ((data gnus-newsgroup-data))
           (while (and data
                       (and (not (and undownloaded
         (let ((data gnus-newsgroup-data))
           (while (and data
                       (and (not (and undownloaded
-                                    (eq gnus-undownloaded-mark
-                                        (gnus-data-mark (car data)))))
+                                    (memq (car data)
+                                          gnus-newsgroup-undownloaded)))
                            (if unseen
                                (or (not (memq
                                          (gnus-data-number (car data))
                            (if unseen
                                (or (not (memq
                                          (gnus-data-number (car data))
@@ -6597,6 +6771,14 @@ If optional argument UNREAD is non-nil, only unread article is selected."
    (interactive "p")
    (gnus-summary-next-subject (- n) t))
  
    (interactive "p")
    (gnus-summary-next-subject (- n) t))
  
+(defun gnus-summary-goto-subjects (articles)
+  "Insert the subject header for ARTICLES in the current buffer."
+  (save-excursion
+    (dolist (article articles)
+      (gnus-summary-goto-subject article t)))
+  (gnus-summary-limit (append articles gnus-newsgroup-limit))
+  (gnus-summary-position-point))
+  
  (defun gnus-summary-goto-subject (article &optional force silent)
    "Go the subject line of ARTICLE.
  If FORCE, also allow jumping to articles not currently shown."
  (defun gnus-summary-goto-subject (article &optional force silent)
    "Go the subject line of ARTICLE.
  If FORCE, also allow jumping to articles not currently shown."
@@ -6706,7 +6888,10 @@ be displayed."
  (defun gnus-summary-force-verify-and-decrypt ()
    (interactive)
    (let ((mm-verify-option 'known)
  (defun gnus-summary-force-verify-and-decrypt ()
    (interactive)
    (let ((mm-verify-option 'known)
-       (mm-decrypt-option 'known))
+       (mm-decrypt-option 'known)
+       (gnus-buttonized-mime-types (append (list "multipart/signed"
+                                                 "multipart/encrypted")
+                                           gnus-buttonized-mime-types)))
      (gnus-summary-select-article nil 'force)))
  
  (defun gnus-summary-set-current-mark (&optional current-mark)
      (gnus-summary-select-article nil 'force)))
  
  (defun gnus-summary-set-current-mark (&optional current-mark)
@@ -6780,7 +6965,7 @@ If BACKWARD, the previous article is selected instead of the next."
    (let ((keystrokes '((?\C-n (gnus-group-next-unread-group 1))
                       (?\C-p (gnus-group-prev-unread-group 1))))
         (cursor-in-echo-area t)
    (let ((keystrokes '((?\C-n (gnus-group-next-unread-group 1))
                       (?\C-p (gnus-group-prev-unread-group 1))))
         (cursor-in-echo-area t)
-       keve key group ended)
+       keve key group ended prompt)
      (save-excursion
        (set-buffer gnus-group-buffer)
        (goto-char start)
      (save-excursion
        (set-buffer gnus-group-buffer)
        (goto-char start)
@@ -6789,19 +6974,20 @@ If BACKWARD, the previous article is selected instead of the next."
                 (gnus-summary-best-group gnus-newsgroup-name)
               (gnus-summary-search-group backward gnus-keep-same-level))))
      (while (not ended)
                 (gnus-summary-best-group gnus-newsgroup-name)
               (gnus-summary-search-group backward gnus-keep-same-level))))
      (while (not ended)
-      (gnus-message
-       5 "No more%s articles%s" (if unread " unread" "")
-       (if (and group
-               (not (gnus-ephemeral-group-p gnus-newsgroup-name)))
-          (format " (Type %s for %s [%s])"
-                  (single-key-description cmd) group
-                  (car (gnus-gethash group gnus-newsrc-hashtb)))
-        (format " (Type %s to exit %s)"
-                (single-key-description cmd)
-                gnus-newsgroup-name)))
+      (setq prompt
+           (format
+            "No more%s articles%s " (if unread " unread" "")
+            (if (and group
+                     (not (gnus-ephemeral-group-p gnus-newsgroup-name)))
+                (format " (Type %s for %s [%s])"
+                        (single-key-description cmd) group
+                        (car (gnus-gethash group gnus-newsrc-hashtb)))
+              (format " (Type %s to exit %s)"
+                      (single-key-description cmd)
+                      gnus-newsgroup-name))))
        ;; Confirm auto selection.
        ;; Confirm auto selection.
-      (setq key (car (setq keve (gnus-read-event-char))))
-      (setq ended t)
+      (setq key (car (setq keve (gnus-read-event-char prompt)))
+           ended t)
        (cond
         ((assq key keystrokes)
         (let ((obuf (current-buffer)))
        (cond
         ((assq key keystrokes)
         (let ((obuf (current-buffer)))
@@ -6844,14 +7030,16 @@ If UNREAD is non-nil, only unread articles are selected."
     (and gnus-auto-select-same
         (gnus-summary-article-subject))))
  
     (and gnus-auto-select-same
         (gnus-summary-article-subject))))
  
-(defun gnus-summary-next-page (&optional lines circular)
+(defun gnus-summary-next-page (&optional lines circular stop)
    "Show next page of the selected article.
  If at the end of the current article, select the next article.
  LINES says how many lines should be scrolled up.
  
  If CIRCULAR is non-nil, go to the start of the article instead of
  selecting the next article when reaching the end of the current
    "Show next page of the selected article.
  If at the end of the current article, select the next article.
  LINES says how many lines should be scrolled up.
  
  If CIRCULAR is non-nil, go to the start of the article instead of
  selecting the next article when reaching the end of the current
-article."
+article.
+
+If STOP is non-nil, just stop when reaching the end of the message."
    (interactive "P")
    (setq gnus-summary-buffer (current-buffer))
    (gnus-set-global-variables)
    (interactive "P")
    (setq gnus-summary-buffer (current-buffer))
    (gnus-set-global-variables)
@@ -6877,7 +7065,9 @@ article."
           (gnus-eval-in-buffer-window gnus-article-buffer
             (setq endp (gnus-article-next-page lines)))
           (when endp
           (gnus-eval-in-buffer-window gnus-article-buffer
             (setq endp (gnus-article-next-page lines)))
           (when endp
-           (cond (circular
+           (cond (stop
+                  (gnus-message 3 "End of message"))
+                 (circular
                    (gnus-summary-beginning-of-article))
                   (lines
                    (gnus-message 3 "End of message"))
                    (gnus-summary-beginning-of-article))
                   (lines
                    (gnus-message 3 "End of message"))
@@ -7185,8 +7375,9 @@ articles that are younger than AGE days."
          days)
       (while (not days-got)
         (setq days (if younger
          days)
       (while (not days-got)
         (setq days (if younger
-                     (read-string "Limit to articles within (in days): ")
-                   (read-string "Limit to articles older than (in days): ")))
+                     (read-string "Limit to articles younger than (in days, older when negative): ")
+                   (read-string
+                    "Limit to articles older than (in days, younger when negative): ")))
         (when (> (length days) 0)
          (setq days (read days)))
         (if (numberp days)
         (when (> (length days) 0)
          (setq days (read days)))
         (if (numberp days)
@@ -7274,7 +7465,7 @@ If ALL is non-nil, limit strictly to unread articles."
       ;; Concat all the marks that say that an article is read and have
       ;; those removed.
       (list gnus-del-mark gnus-read-mark gnus-ancient-mark
       ;; Concat all the marks that say that an article is read and have
       ;; those removed.
       (list gnus-del-mark gnus-read-mark gnus-ancient-mark
-          gnus-killed-mark gnus-kill-file-mark
+          gnus-killed-mark gnus-spam-mark gnus-kill-file-mark
            gnus-low-score-mark gnus-expirable-mark
            gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark
            gnus-duplicate-mark gnus-souped-mark)
            gnus-low-score-mark gnus-expirable-mark
            gnus-canceled-mark gnus-catchup-mark gnus-sparse-mark
            gnus-duplicate-mark gnus-souped-mark)
@@ -7282,7 +7473,7 @@ If ALL is non-nil, limit strictly to unread articles."
  
  (defalias 'gnus-summary-delete-marked-with 'gnus-summary-limit-exclude-marks)
  (make-obsolete 'gnus-summary-delete-marked-with
  
  (defalias 'gnus-summary-delete-marked-with 'gnus-summary-limit-exclude-marks)
  (make-obsolete 'gnus-summary-delete-marked-with
-              'gnus-summary-limit-exlude-marks)
+              'gnus-summary-limit-exclude-marks)
  
  (defun gnus-summary-limit-exclude-marks (marks &optional reverse)
    "Exclude articles that are marked with MARKS (e.g. \"DK\").
  
  (defun gnus-summary-limit-exclude-marks (marks &optional reverse)
    "Exclude articles that are marked with MARKS (e.g. \"DK\").
@@ -7326,6 +7517,13 @@ Returns how many articles were removed."
         (gnus-summary-limit articles)
        (gnus-summary-position-point))))
  
         (gnus-summary-limit articles)
        (gnus-summary-position-point))))
  
+(defun gnus-summary-limit-to-unseen ()
+  "Limit to unseen articles."
+  (interactive)
+  (prog1
+      (gnus-summary-limit gnus-newsgroup-unseen)
+    (gnus-summary-position-point)))
+
  (defun gnus-summary-limit-include-thread (id)
    "Display all the hidden articles that is in the thread with ID in it.
  When called interactively, ID is the Message-ID of the current
  (defun gnus-summary-limit-include-thread (id)
    "Display all the hidden articles that is in the thread with ID in it.
  When called interactively, ID is the Message-ID of the current
@@ -7350,6 +7548,14 @@ article."
         (gnus-summary-limit (nconc articles gnus-newsgroup-limit))
        (gnus-summary-position-point))))
  
         (gnus-summary-limit (nconc articles gnus-newsgroup-limit))
        (gnus-summary-position-point))))
  
+(defun gnus-summary-insert-dormant-articles ()
+  "Insert all the dormat articles for this group into the current buffer."
+  (interactive)
+  (let ((gnus-verbose (max 6 gnus-verbose)))
+    (if (not gnus-newsgroup-dormant)
+       (gnus-message 3 "No cached articles for this group")
+      (gnus-summary-goto-subjects gnus-newsgroup-dormant))))
+
  (defun gnus-summary-limit-include-dormant ()
    "Display all the hidden articles that are marked as dormant.
  Note that this command only works on a subset of the articles currently
  (defun gnus-summary-limit-include-dormant ()
    "Display all the hidden articles that are marked as dormant.
  Note that this command only works on a subset of the articles currently
@@ -7556,7 +7762,8 @@ fetch-old-headers verbiage, and so on."
    ;; will really go down to a leaf article first, before slowly
    ;; working its way up towards the root.
    (when thread
    ;; will really go down to a leaf article first, before slowly
    ;; working its way up towards the root.
    (when thread
-    (let ((children
+    (let* ((max-lisp-eval-depth 5000)
+          (children
            (if (cdr thread)
                (apply '+ (mapcar 'gnus-summary-limit-children
                                  (cdr thread)))
            (if (cdr thread)
                (apply '+ (mapcar 'gnus-summary-limit-children
                                  (cdr thread)))
@@ -7768,7 +7975,7 @@ of what's specified by the `gnus-refer-thread-limit' variable."
           (gnus-message 3 "Couldn't fetch article %s" message-id)))))))
  
  (defun gnus-refer-article-methods ()
           (gnus-message 3 "Couldn't fetch article %s" message-id)))))))
  
  (defun gnus-refer-article-methods ()
-  "Return a list of referrable methods."
+  "Return a list of referable methods."
    (cond
     ;; No method, so we default to current and native.
     ((null gnus-refer-article-method)
    (cond
     ;; No method, so we default to current and native.
     ((null gnus-refer-article-method)
@@ -7826,8 +8033,8 @@ to guess what the document format is."
         (set-buffer gnus-original-article-buffer)
         ;; Have the digest group inherit the main mail address of
         ;; the parent article.
         (set-buffer gnus-original-article-buffer)
         ;; Have the digest group inherit the main mail address of
         ;; the parent article.
-       (when (setq to-address (or (message-fetch-field "reply-to")
-                                  (message-fetch-field "from")))
+       (when (setq to-address (or (gnus-fetch-field "reply-to")
+                                  (gnus-fetch-field "from")))
           (setq params (append
                         (list (cons 'to-address
                                     (funcall gnus-decode-encoded-word-function
           (setq params (append
                         (list (cons 'to-address
                                     (funcall gnus-decode-encoded-word-function
@@ -8205,12 +8412,19 @@ article.  If BACKWARD (the prefix) is non-nil, search backward instead."
    ;; We don't want to change current point nor window configuration.
    (save-excursion
      (save-window-excursion
    ;; We don't want to change current point nor window configuration.
    (save-excursion
      (save-window-excursion
-      (gnus-message 6 "Executing %s..." (key-description command))
-      ;; We'd like to execute COMMAND interactively so as to give arguments.
-      (gnus-execute header regexp
-                   `(call-interactively ',(key-binding command))
-                   backward)
-      (gnus-message 6 "Executing %s...done" (key-description command)))))
+      (let (gnus-visual
+           gnus-treat-strip-trailing-blank-lines
+           gnus-treat-strip-leading-blank-lines
+           gnus-treat-strip-multiple-blank-lines
+           gnus-treat-hide-boring-headers
+           gnus-treat-fold-newsgroups
+           gnus-article-prepare-hook)
+       (gnus-message 6 "Executing %s..." (key-description command))
+       ;; We'd like to execute COMMAND interactively so as to give arguments.
+       (gnus-execute header regexp
+                     `(call-interactively ',(key-binding command))
+                     backward)
+       (gnus-message 6 "Executing %s...done" (key-description command))))))
  
  (defun gnus-summary-beginning-of-article ()
    "Scroll the article back to the beginning."
  
  (defun gnus-summary-beginning-of-article ()
    "Scroll the article back to the beginning."
@@ -8267,6 +8481,7 @@ to save in."
           (copy-to-buffer buffer (point-min) (point-max))
           (set-buffer buffer)
           (gnus-article-delete-invisible-text)
           (copy-to-buffer buffer (point-min) (point-max))
           (set-buffer buffer)
           (gnus-article-delete-invisible-text)
+         (gnus-remove-text-with-property 'gnus-decoration)
           (when (gnus-visual-p 'article-highlight 'highlight)
             ;; Copy-to-buffer doesn't copy overlay.  So redo
             ;; highlight.
           (when (gnus-visual-p 'article-highlight 'highlight)
             ;; Copy-to-buffer doesn't copy overlay.  So redo
             ;; highlight.
@@ -8386,35 +8601,38 @@ If ARG is a negative number, turn header display off."
  If ARG is a positive number, show the entire header.
  If ARG is a negative number, hide the unwanted header lines."
    (interactive "P")
  If ARG is a positive number, show the entire header.
  If ARG is a negative number, hide the unwanted header lines."
    (interactive "P")
-  (save-excursion
-    (set-buffer gnus-article-buffer)
-    (save-restriction
+  (let ((window (and (gnus-buffer-live-p gnus-article-buffer)
+                    (get-buffer-window gnus-article-buffer t))))
+    (with-current-buffer gnus-article-buffer
+      (widen)
+      (article-narrow-to-head)
        (let* ((buffer-read-only nil)
              (inhibit-point-motion-hooks t)
        (let* ((buffer-read-only nil)
              (inhibit-point-motion-hooks t)
-            hidden e)
-       (save-restriction
-         (article-narrow-to-head)
-         (setq e (point-max)
-               hidden (if (numberp arg)
-                          (>= arg 0)
-                        (gnus-article-hidden-text-p 'headers))))
-       (delete-region (point-min) e)
-       (goto-char (point-min))
-       (save-excursion
-         (set-buffer gnus-original-article-buffer)
-         (goto-char (point-min))
-         (setq e (search-forward "\n\n" nil t)
-               e (if e (1- e) (point-max))))
-       (insert-buffer-substring gnus-original-article-buffer 1 e)
-       (save-restriction
-         (narrow-to-region (point-min) (point))
-         (article-decode-encoded-words)
-         (if  hidden
-             (let ((gnus-treat-hide-headers nil)
-                   (gnus-treat-hide-boring-headers nil))
-               (gnus-delete-wash-type 'headers)
-               (gnus-treat-article 'head))
-           (gnus-treat-article 'head)))
+            (hidden (if (numberp arg)
+                        (>= arg 0)
+                      (gnus-article-hidden-text-p 'headers)))
+            s e)
+       (delete-region (point-min) (point-max))
+       (with-current-buffer gnus-original-article-buffer
+         (goto-char (setq s (point-min)))
+         (setq e (if (search-forward "\n\n" nil t)
+                     (1- (point))
+                   (point-max))))
+       (insert-buffer-substring gnus-original-article-buffer s e)
+       (article-decode-encoded-words)
+       (if hidden
+           (let ((gnus-treat-hide-headers nil)
+                 (gnus-treat-hide-boring-headers nil))
+             (gnus-delete-wash-type 'headers)
+             (gnus-treat-article 'head))
+         (gnus-treat-article 'head))
+       (widen)
+       (if window
+           (set-window-start window (goto-char (point-min))))
+       (setq gnus-page-broken
+             (when gnus-break-pages
+               (gnus-narrow-to-page)
+               t))
         (gnus-set-mode-line 'article)))))
  
  (defun gnus-summary-show-all-headers ()
         (gnus-set-mode-line 'article)))))
  
  (defun gnus-summary-show-all-headers ()
@@ -8447,6 +8665,31 @@ forward."
           (message-caesar-buffer-body arg)
           (set-window-start (get-buffer-window (current-buffer)) start))))))
  
           (message-caesar-buffer-body arg)
           (set-window-start (get-buffer-window (current-buffer)) start))))))
  
+(autoload 'unmorse-region "morse"
+  "Convert morse coded text in region to ordinary ASCII text."
+  t)
+
+(defun gnus-summary-morse-message (&optional arg)
+  "Morse decode the current article."
+  (interactive "P")
+  (gnus-summary-select-article)
+  (let ((mail-header-separator ""))
+    (gnus-eval-in-buffer-window gnus-article-buffer
+      (save-excursion
+       (save-restriction
+         (widen)
+         (let ((pos (window-start))
+               buffer-read-only)
+           (goto-char (point-min))
+           (when (message-goto-body)
+             (gnus-narrow-to-body))
+           (goto-char (point-min))
+           (while (re-search-forward "·" (point-max) t)
+             (replace-match "."))
+           (unmorse-region (point-min) (point-max))
+           (widen)
+           (set-window-start (get-buffer-window (current-buffer)) pos)))))))
+
  (defun gnus-summary-stop-page-breaking ()
    "Stop page breaking in the current article."
    (interactive)
  (defun gnus-summary-stop-page-breaking ()
    "Stop page breaking in the current article."
    (interactive)
@@ -8470,6 +8713,10 @@ If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.
  If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but
  re-spool using this method.
  
  If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but
  re-spool using this method.
  
+When called interactively with TO-NEWSGROUP being nil, the value of
+the variable `gnus-move-split-methods' is used for finding a default
+for the target newsgroup.
+
  For this function to work, both the current newsgroup and the
  newsgroup that you want to move to have to support the `request-move'
  and `request-accept' functions.
  For this function to work, both the current newsgroup and the
  newsgroup that you want to move to have to support the `request-move'
  and `request-accept' functions.
@@ -8668,9 +8915,8 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
                        to-group (cdar marks) (list to-article) info)))
                   (setq marks (cdr marks)))
  
                        to-group (cdar marks) (list to-article) info)))
                   (setq marks (cdr marks)))
  
-               (gnus-request-set-mark to-group (list (list (list to-article)
-                                                           'add
-                                                           to-marks))))
+               (gnus-request-set-mark
+                to-group (list (list (list to-article) 'add to-marks))))
  
               (gnus-dribble-enter
                (concat "(gnus-group-set-info '"
  
               (gnus-dribble-enter
                (concat "(gnus-group-set-info '"
@@ -8707,6 +8953,9 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
  (defun gnus-summary-copy-article (&optional n to-newsgroup select-method)
    "Move the current article to a different newsgroup.
  If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.
  (defun gnus-summary-copy-article (&optional n to-newsgroup select-method)
    "Move the current article to a different newsgroup.
  If TO-NEWSGROUP is string, do not prompt for a newsgroup to move to.
+When called interactively, if TO-NEWSGROUP is nil, use the value of
+the variable `gnus-move-split-methods' for finding a default target
+newsgroup.
  If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but
  re-spool using this method."
    (interactive "P")
  If SELECT-METHOD is non-nil, do not move to a specific newsgroup, but
  re-spool using this method."
    (interactive "P")
@@ -8723,6 +8972,15 @@ If nil, use to the current newsgroup method."
    :type 'symbol
    :group 'gnus-summary-mail)
  
    :type 'symbol
    :group 'gnus-summary-mail)
  
+(defcustom gnus-summary-display-while-building nil
+  "If not-nil, show and update the summary buffer as it's being built.
+If the value is t, update the buffer after every line is inserted.  If
+the value is an integer (N), update the display every N lines."
+  :group 'gnus-thread
+  :type '(choice (const :tag "off" nil)
+                number
+                (const :tag "frequently" t)))
+
  (defun gnus-summary-respool-article (&optional n method)
    "Respool the current article.
  The article will be squeezed through the mail spooling process again,
  (defun gnus-summary-respool-article (&optional n method)
    "Respool the current article.
  The article will be squeezed through the mail spooling process again,
@@ -8925,6 +9183,7 @@ delete these instead."
      (error "Couldn't open server"))
    ;; Compute the list of articles to delete.
    (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
      (error "Couldn't open server"))
    ;; Compute the list of articles to delete.
    (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
+       (nnmail-expiry-target 'delete)
         not-deleted)
      (if (and gnus-novice-user
              (not (gnus-yes-or-no-p
         not-deleted)
      (if (and gnus-novice-user
              (not (gnus-yes-or-no-p
@@ -9229,6 +9488,13 @@ the actual number of articles marked is returned."
    (interactive "p")
    (gnus-summary-mark-forward n gnus-expirable-mark))
  
    (interactive "p")
    (gnus-summary-mark-forward n gnus-expirable-mark))
  
+(defun gnus-summary-mark-as-spam (n)
+  "Mark N articles forward as spam.
+If N is negative, mark backward instead.  The difference between N and
+the actual number of articles marked is returned."
+  (interactive "p")
+  (gnus-summary-mark-forward n gnus-spam-mark))
+
  (defun gnus-summary-mark-article-as-replied (article)
    "Mark ARTICLE as replied to and update the summary line.
  ARTICLE can also be a list of articles."
  (defun gnus-summary-mark-article-as-replied (article)
    "Mark ARTICLE as replied to and update the summary line.
  ARTICLE can also be a list of articles."
@@ -9259,10 +9525,7 @@ ARTICLE can also be a list of articles."
             (not (equal gnus-newsgroup-name (car gnus-article-current))))
      (error "No current article selected"))
    ;; Remove old bookmark, if one exists.
             (not (equal gnus-newsgroup-name (car gnus-article-current))))
      (error "No current article selected"))
    ;; Remove old bookmark, if one exists.
-  (let ((old (assq article gnus-newsgroup-bookmarks)))
-    (when old
-      (setq gnus-newsgroup-bookmarks
-           (delq old gnus-newsgroup-bookmarks))))
+  (gnus-pull article gnus-newsgroup-bookmarks)
    ;; Set the new bookmark, which is on the form
    ;; (article-number . line-number-in-body).
    (push
    ;; Set the new bookmark, which is on the form
    ;; (article-number . line-number-in-body).
    (push
@@ -9272,8 +9535,7 @@ ARTICLE can also be a list of articles."
            (count-lines
             (min (point)
                  (save-excursion
            (count-lines
             (min (point)
                  (save-excursion
-                  (goto-char (point-min))
-                  (search-forward "\n\n" nil t)
+                  (article-goto-body)
                    (point)))
             (point))))
     gnus-newsgroup-bookmarks)
                    (point)))
             (point))))
     gnus-newsgroup-bookmarks)
@@ -9283,13 +9545,10 @@ ARTICLE can also be a list of articles."
    "Remove the bookmark from the current article."
    (interactive (list (gnus-summary-article-number)))
    ;; Remove old bookmark, if one exists.
    "Remove the bookmark from the current article."
    (interactive (list (gnus-summary-article-number)))
    ;; Remove old bookmark, if one exists.
-  (let ((old (assq article gnus-newsgroup-bookmarks)))
-    (if old
-       (progn
-         (setq gnus-newsgroup-bookmarks
-               (delq old gnus-newsgroup-bookmarks))
-         (gnus-message 6 "Removed bookmark."))
-      (gnus-message 6 "No bookmark in current article."))))
+  (if (not (assq article gnus-newsgroup-bookmarks))
+      (gnus-message 6 "No bookmark in current article.")
+    (gnus-pull article gnus-newsgroup-bookmarks)
+    (gnus-message 6 "Removed bookmark.")))
  
  ;; Suggested by Daniel Quinlan <quinlan@best.com>.
  (defun gnus-summary-mark-as-dormant (n)
  
  ;; Suggested by Daniel Quinlan <quinlan@best.com>.
  (defun gnus-summary-mark-as-dormant (n)
@@ -9328,14 +9587,14 @@ the actual number of articles marked is returned."
  If N is negative, mark backwards instead.  Mark with MARK, ?r by default.
  The difference between N and the actual number of articles marked is
  returned.
  If N is negative, mark backwards instead.  Mark with MARK, ?r by default.
  The difference between N and the actual number of articles marked is
  returned.
-Iff NO-EXPIRE, auto-expiry will be inhibited."
+If NO-EXPIRE, auto-expiry will be inhibited."
    (interactive "p")
    (gnus-summary-show-thread)
    (let ((backward (< n 0))
         (gnus-summary-goto-unread
          (and gnus-summary-goto-unread
               (not (eq gnus-summary-goto-unread 'never))
    (interactive "p")
    (gnus-summary-show-thread)
    (let ((backward (< n 0))
         (gnus-summary-goto-unread
          (and gnus-summary-goto-unread
               (not (eq gnus-summary-goto-unread 'never))
-             (not (memq mark (list gnus-unread-mark
+             (not (memq mark (list gnus-unread-mark gnus-spam-mark
                                     gnus-ticked-mark gnus-dormant-mark)))))
         (n (abs n))
         (mark (or mark gnus-del-mark)))
                                     gnus-ticked-mark gnus-dormant-mark)))))
         (n (abs n))
         (mark (or mark gnus-del-mark)))
@@ -9359,6 +9618,7 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
    (let ((article (gnus-summary-article-number)))
      (setq gnus-newsgroup-unreads (delq article gnus-newsgroup-unreads))
      (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked))
    (let ((article (gnus-summary-article-number)))
      (setq gnus-newsgroup-unreads (delq article gnus-newsgroup-unreads))
      (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked))
+    (setq gnus-newsgroup-spam-marked (delq article gnus-newsgroup-spam-marked))
      (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant))
      (push (cons article mark) gnus-newsgroup-reads)
      ;; Possibly remove from cache, if that is used.
      (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant))
      (push (cons article mark) gnus-newsgroup-reads)
      ;; Possibly remove from cache, if that is used.
@@ -9390,6 +9650,8 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
             (gnus-error 1 "Can't mark negative article numbers")
             nil)
         (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked))
             (gnus-error 1 "Can't mark negative article numbers")
             nil)
         (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked))
+       (setq gnus-newsgroup-spam-marked
+             (delq article gnus-newsgroup-spam-marked))
         (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant))
         (setq gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable))
         (setq gnus-newsgroup-reads (delq article gnus-newsgroup-reads))
         (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant))
         (setq gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable))
         (setq gnus-newsgroup-reads (delq article gnus-newsgroup-reads))
@@ -9397,6 +9659,10 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
                (setq gnus-newsgroup-marked
                      (gnus-add-to-sorted-list gnus-newsgroup-marked
                                               article)))
                (setq gnus-newsgroup-marked
                      (gnus-add-to-sorted-list gnus-newsgroup-marked
                                               article)))
+             ((= mark gnus-spam-mark)
+              (setq gnus-newsgroup-spam-marked
+                    (gnus-add-to-sorted-list gnus-newsgroup-spam-marked
+                                             article)))
               ((= mark gnus-dormant-mark)
                (setq gnus-newsgroup-dormant
                      (gnus-add-to-sorted-list gnus-newsgroup-dormant
               ((= mark gnus-dormant-mark)
                (setq gnus-newsgroup-dormant
                      (gnus-add-to-sorted-list gnus-newsgroup-dormant
@@ -9428,7 +9694,7 @@ Four MARK strings are reserved: `? ' (unread), `?!' (ticked),
  If MARK is nil, then the default character `?r' is used.
  If ARTICLE is nil, then the article on the current line will be
  marked.
  If MARK is nil, then the default character `?r' is used.
  If ARTICLE is nil, then the article on the current line will be
  marked.
-Iff NO-EXPIRE, auto-expiry will be inhibited."
+If NO-EXPIRE, auto-expiry will be inhibited."
    ;; The mark might be a string.
    (when (stringp mark)
      (setq mark (aref mark 0)))
    ;; The mark might be a string.
    (when (stringp mark)
      (setq mark (aref mark 0)))
@@ -9449,6 +9715,7 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
         (error "No article on current line"))
        (if (not (if (or (= mark gnus-unread-mark)
                        (= mark gnus-ticked-mark)
         (error "No article on current line"))
        (if (not (if (or (= mark gnus-unread-mark)
                        (= mark gnus-ticked-mark)
+                      (= mark gnus-spam-mark)
                        (= mark gnus-dormant-mark))
                    (gnus-mark-article-as-unread article mark)
                  (gnus-mark-article-as-read article mark)))
                        (= mark gnus-dormant-mark))
                    (gnus-mark-article-as-unread article mark)
                  (gnus-mark-article-as-read article mark)))
@@ -9494,6 +9761,19 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
      (gnus-run-hooks 'gnus-summary-update-hook))
    t)
  
      (gnus-run-hooks 'gnus-summary-update-hook))
    t)
  
+(defun gnus-summary-update-download-mark (article)
+  "Update the secondary (read, process, cache) mark."
+  (gnus-summary-update-mark
+   (cond ((memq article gnus-newsgroup-undownloaded) 
+          gnus-undownloaded-mark)
+         (gnus-newsgroup-agentized
+          gnus-downloaded-mark)
+         (t
+          gnus-no-mark))
+   'download)
+  (gnus-summary-update-line t)
+  t)
+
  (defun gnus-summary-update-mark (mark type)
    (let ((forward (cdr (assq type gnus-summary-mark-positions)))
         (buffer-read-only nil))
  (defun gnus-summary-update-mark (mark type)
    (let ((forward (cdr (assq type gnus-summary-mark-positions)))
         (buffer-read-only nil))
@@ -9523,6 +9803,7 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
      ;; Remove from unread and marked lists.
      (setq gnus-newsgroup-unreads (delq article gnus-newsgroup-unreads))
      (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked))
      ;; Remove from unread and marked lists.
      (setq gnus-newsgroup-unreads (delq article gnus-newsgroup-unreads))
      (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked))
+    (setq gnus-newsgroup-spam-marked (delq article gnus-newsgroup-spam-marked))
      (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant))
      (push (cons article mark) gnus-newsgroup-reads)
      ;; Possibly remove from cache, if that is used.
      (setq gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant))
      (push (cons article mark) gnus-newsgroup-reads)
      ;; Possibly remove from cache, if that is used.
@@ -9538,6 +9819,7 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
           (gnus-error 1 "Can't mark negative article numbers")
           nil)
        (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked)
           (gnus-error 1 "Can't mark negative article numbers")
           nil)
        (setq gnus-newsgroup-marked (delq article gnus-newsgroup-marked)
+           gnus-newsgroup-spam-marked (delq article gnus-newsgroup-spam-marked)
             gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant)
             gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable)
             gnus-newsgroup-unreads (delq article gnus-newsgroup-unreads))
             gnus-newsgroup-dormant (delq article gnus-newsgroup-dormant)
             gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable)
             gnus-newsgroup-unreads (delq article gnus-newsgroup-unreads))
@@ -9549,6 +9831,10 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
        (cond ((= mark gnus-ticked-mark)
              (setq gnus-newsgroup-marked
                    (gnus-add-to-sorted-list gnus-newsgroup-marked article)))
        (cond ((= mark gnus-ticked-mark)
              (setq gnus-newsgroup-marked
                    (gnus-add-to-sorted-list gnus-newsgroup-marked article)))
+           ((= mark gnus-spam-mark)
+            (setq gnus-newsgroup-spam-marked
+                  (gnus-add-to-sorted-list gnus-newsgroup-spam-marked
+                                           article)))
             ((= mark gnus-dormant-mark)
              (setq gnus-newsgroup-dormant
                    (gnus-add-to-sorted-list gnus-newsgroup-dormant article)))
             ((= mark gnus-dormant-mark)
              (setq gnus-newsgroup-dormant
                    (gnus-add-to-sorted-list gnus-newsgroup-dormant article)))
@@ -9762,6 +10048,7 @@ The number of articles marked as read is returned."
               (progn
                 (when all
                   (setq gnus-newsgroup-marked nil
               (progn
                 (when all
                   (setq gnus-newsgroup-marked nil
+                       gnus-newsgroup-spam-marked nil
                         gnus-newsgroup-dormant nil))
                 (setq gnus-newsgroup-unreads gnus-newsgroup-downloadable))
             ;; We actually mark all articles as canceled, which we
                         gnus-newsgroup-dormant nil))
                 (setq gnus-newsgroup-unreads gnus-newsgroup-downloadable))
             ;; We actually mark all articles as canceled, which we
@@ -9807,7 +10094,9 @@ If ALL is non-nil, also mark ticked and dormant articles as read."
    (gnus-summary-position-point))
  
  (defun gnus-summary-catchup-all (&optional quietly)
    (gnus-summary-position-point))
  
  (defun gnus-summary-catchup-all (&optional quietly)
-  "Mark all articles in this newsgroup as read."
+  "Mark all articles in this newsgroup as read.
+This command is dangerous.  Normally, you want \\[gnus-summary-catchup]
+instead, which marks only unread articles as read."
    (interactive "P")
    (gnus-summary-catchup t quietly))
  
    (interactive "P")
    (gnus-summary-catchup t quietly))
  
@@ -9824,7 +10113,9 @@ If QUIETLY is non-nil, no questions will be asked."
        (gnus-summary-exit))))
  
  (defun gnus-summary-catchup-all-and-exit (&optional quietly)
        (gnus-summary-exit))))
  
  (defun gnus-summary-catchup-all-and-exit (&optional quietly)
-  "Mark all articles in this newsgroup as read, and then exit."
+  "Mark all articles in this newsgroup as read, and then exit.
+This command is dangerous.  Normally, you want \\[gnus-summary-catchup-and-exit]
+instead, which marks only unread articles as read."
    (interactive "P")
    (gnus-summary-catchup-and-exit t quietly))
  
    (interactive "P")
    (gnus-summary-catchup-and-exit t quietly))
  
@@ -10193,6 +10484,12 @@ Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'number reverse))
  
    (interactive "P")
    (gnus-summary-sort 'number reverse))
  
+(defun gnus-summary-sort-by-random (&optional reverse)
+  "Randomize the order in the summary buffer.
+Argument REVERSE means to randomize in reverse order."
+  (interactive "P")
+  (gnus-summary-sort 'random reverse))
+
  (defun gnus-summary-sort-by-author (&optional reverse)
    "Sort the summary buffer by author name alphabetically.
  If `case-fold-search' is non-nil, case of letters is ignored.
  (defun gnus-summary-sort-by-author (&optional reverse)
    "Sort the summary buffer by author name alphabetically.
  If `case-fold-search' is non-nil, case of letters is ignored.
@@ -10305,20 +10602,22 @@ The variable `gnus-default-article-saver' specifies the saver function."
      (gnus-set-mode-line 'summary)
      n))
  
      (gnus-set-mode-line 'summary)
      n))
  
-(defun gnus-summary-pipe-output (&optional arg)
+(defun gnus-summary-pipe-output (&optional arg headers)
    "Pipe the current article to a subprocess.
  If N is a positive number, pipe the N next articles.
  If N is a negative number, pipe the N previous articles.
  If N is nil and any articles have been marked with the process mark,
    "Pipe the current article to a subprocess.
  If N is a positive number, pipe the N next articles.
  If N is a negative number, pipe the N previous articles.
  If N is nil and any articles have been marked with the process mark,
-pipe those articles instead."
-  (interactive "P")
+pipe those articles instead.
+If HEADERS (the symbolic prefix), include the headers, too."
+  (interactive (gnus-interactive "P\ny"))
    (require 'gnus-art)
    (require 'gnus-art)
-  (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
+  (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe)
+       (gnus-save-all-headers (or headers gnus-save-all-headers)))
      (gnus-summary-save-article arg t))
    (let ((buffer (get-buffer "*Shell Command Output*")))
      (gnus-summary-save-article arg t))
    (let ((buffer (get-buffer "*Shell Command Output*")))
-    (if (and buffer
-            (with-current-buffer buffer (> (point-max) (point-min))))
-       (gnus-configure-windows 'pipe))))
+    (when (and buffer
+              (not (zerop (buffer-size buffer))))
+      (gnus-configure-windows 'pipe))))
  
  (defun gnus-summary-save-article-mail (&optional arg)
    "Append the current article to an mail file.
  
  (defun gnus-summary-save-article-mail (&optional arg)
    "Append the current article to an mail file.
@@ -10763,35 +11062,46 @@ If REVERSE, save parts that do not match TYPE."
            (setq gnus-newsgroup-selected-overlay (gnus-make-overlay from to))
            'face gnus-summary-selected-face))))))
  
            (setq gnus-newsgroup-selected-overlay (gnus-make-overlay from to))
            'face gnus-summary-selected-face))))))
  
-;; New implementation by Christian Limpach <Christian.Limpach@nice.ch>.
+(defvar gnus-summary-highlight-line-cached nil)
+(defvar gnus-summary-highlight-line-trigger nil)
+
+(defun gnus-summary-highlight-line-0 ()
+  (if (and (eq gnus-summary-highlight-line-trigger 
+               gnus-summary-highlight)
+           gnus-summary-highlight-line-cached)
+      gnus-summary-highlight-line-cached
+    (setq gnus-summary-highlight-line-trigger gnus-summary-highlight
+          gnus-summary-highlight-line-cached
+          (let* ((cond (list 'cond))
+                 (c cond)
+                 (list gnus-summary-highlight))
+            (while list
+              (setcdr c (cons (list (caar list) (list 'quote (cdar list))) nil))
+              (setq c (cdr c)
+                    list (cdr list)))
+            (gnus-byte-compile (list 'lambda nil cond))))))
+
  (defun gnus-summary-highlight-line ()
    "Highlight current line according to `gnus-summary-highlight'."
  (defun gnus-summary-highlight-line ()
    "Highlight current line according to `gnus-summary-highlight'."
-  (let* ((list gnus-summary-highlight)
-        (p (point))
-        (end (progn (end-of-line) (point)))
-        ;; now find out where the line starts and leave point there.
-        (beg (progn (beginning-of-line) (point)))
-        (article (gnus-summary-article-number))
-        (score (or (cdr (assq (or article gnus-current-article)
+  (let* ((beg (gnus-point-at-bol))
+        (article (or (gnus-summary-article-number) gnus-current-article))
+        (score (or (cdr (assq article
                                gnus-newsgroup-scored))
                     gnus-summary-default-score 0))
          (mark (or (gnus-summary-article-mark) gnus-unread-mark))
                                gnus-newsgroup-scored))
                     gnus-summary-default-score 0))
          (mark (or (gnus-summary-article-mark) gnus-unread-mark))
-        (inhibit-read-only t))
-    ;; Eval the cars of the lists until we find a match.
-    (let ((default gnus-summary-default-score)
-         (default-high gnus-summary-default-high-score)
-         (default-low gnus-summary-default-low-score))
-      (while (and list
-                 (not (eval (caar list))))
-       (setq list (cdr list))))
-    (let ((face (cdar list)))
+        (inhibit-read-only t)
+        (default gnus-summary-default-score)
+        (default-high gnus-summary-default-high-score)
+        (default-low gnus-summary-default-low-score)
+        (uncached (memq article gnus-newsgroup-undownloaded))
+        (downloaded (not uncached)))
+    (let ((face (funcall (gnus-summary-highlight-line-0))))
        (unless (eq face (get-text-property beg 'face))
         (gnus-put-text-property-excluding-characters-with-faces
        (unless (eq face (get-text-property beg 'face))
         (gnus-put-text-property-excluding-characters-with-faces
-        beg end 'face
+        beg (gnus-point-at-eol) 'face
          (setq face (if (boundp face) (symbol-value face) face)))
         (when gnus-summary-highlight-line-function
          (setq face (if (boundp face) (symbol-value face) face)))
         (when gnus-summary-highlight-line-function
-         (funcall gnus-summary-highlight-line-function article face))))
-    (goto-char p)))
+         (funcall gnus-summary-highlight-line-function article face))))))
  
  (defun gnus-update-read-articles (group unread &optional compute)
    "Update the list of read articles in GROUP.
  
  (defun gnus-update-read-articles (group unread &optional compute)
    "Update the list of read articles in GROUP.
@@ -10984,20 +11294,52 @@ UNREAD is a sorted list."
  ;;; @ end
  ;;;
  
  ;;; @ end
  ;;;
  
+(defun gnus-summary-inherit-default-charset ()
+  "Import `default-mime-charset' from summary buffer.
+Also take care of `default-mime-charset-unlimited' if the LIMIT version
+of FLIM is used."
+  (if (buffer-live-p gnus-summary-buffer)
+      (let (d-m-c d-m-c-u)
+       (with-current-buffer gnus-summary-buffer
+         (setq d-m-c (if (local-variable-p 'default-mime-charset
+                                           gnus-summary-buffer)
+                         default-mime-charset
+                       t)
+               ;; LIMIT
+               d-m-c-u (if (local-variable-p 'default-mime-charset-unlimited
+                                             gnus-summary-buffer)
+                           (symbol-value 'default-mime-charset-unlimited)
+                         t)))
+       (if (eq t d-m-c)
+           (kill-local-variable 'default-mime-charset)
+         (set (make-local-variable 'default-mime-charset) d-m-c))
+       (if (eq t d-m-c-u)
+           (kill-local-variable 'default-mime-charset-unlimited)
+         (set (make-local-variable 'default-mime-charset-unlimited)
+              d-m-c-u)))))
+
  (defun gnus-summary-setup-default-charset ()
    "Setup newsgroup default charset."
  (defun gnus-summary-setup-default-charset ()
    "Setup newsgroup default charset."
-  (if (equal gnus-newsgroup-name "nndraft:drafts")
-      (setq gnus-newsgroup-charset nil)
-    (let* ((ignored-charsets
-           (or gnus-newsgroup-ephemeral-ignored-charsets
-               (append
-                (and gnus-newsgroup-name
-                     (gnus-parameter-ignored-charsets gnus-newsgroup-name))
-                gnus-newsgroup-ignored-charsets))))
+  (if (member gnus-newsgroup-name '("nndraft:delayed" "nndraft:drafts"))
+      (progn
+       (setq gnus-newsgroup-charset nil)
+       (set (make-local-variable 'default-mime-charset) nil)
+       (when (boundp 'default-mime-charset-unlimited);; LIMIT
+         (set (make-local-variable 'default-mime-charset-unlimited) nil)))
+    (let ((ignored-charsets
+          (or gnus-newsgroup-ephemeral-ignored-charsets
+              (append
+               (and gnus-newsgroup-name
+                    (gnus-parameter-ignored-charsets gnus-newsgroup-name))
+               gnus-newsgroup-ignored-charsets)))
+         charset)
        (setq gnus-newsgroup-charset
             (or gnus-newsgroup-ephemeral-charset
        (setq gnus-newsgroup-charset
             (or gnus-newsgroup-ephemeral-charset
-               (and gnus-newsgroup-name
-                    (gnus-parameter-charset gnus-newsgroup-name))
+               (when (and gnus-newsgroup-name
+                          (setq charset (gnus-parameter-charset
+                                         gnus-newsgroup-name)))
+                 (make-local-variable 'default-mime-charset)
+                 (setq default-mime-charset charset))
                 gnus-default-charset))
        (set (make-local-variable 'gnus-newsgroup-ignored-charsets)
            ignored-charsets))))
                 gnus-default-charset))
        (set (make-local-variable 'gnus-newsgroup-ignored-charsets)
            ignored-charsets))))
@@ -11266,21 +11608,35 @@ If ALL is a number, fetch this number of articles."
        (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
             older len)
         (setq older
        (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
             older len)
         (setq older
-             (gnus-sorted-difference
-              (gnus-uncompress-range (list gnus-newsgroup-active))
-              old))
-       (setq len (length older))
+             ;; Some nntp servers lie about their active range.  When
+             ;; this happens, the active range can be in the millions.
+             ;; Use a compressed range to avoid creating a huge list.
+             (gnus-range-difference (list gnus-newsgroup-active) old))
+       (setq len (gnus-range-length older))
         (cond
          ((null older) nil)
          ((numberp all)
           (if (< all len)
         (cond
          ((null older) nil)
          ((numberp all)
           (if (< all len)
-             (setq older (last older all))))
-        (all nil)
+             (let ((older-range (nreverse older)))
+               (setq older nil)
+
+               (while (> all 0)
+                 (let* ((r (pop older-range))
+                        (min (if (numberp r) r (car r)))
+                        (max (if (numberp r) r (cdr r))))
+                   (while (and (<= min max)
+                               (> all 0))
+                     (push max older)
+                     (setq all (1- all)
+                           max (1- max))))))
+           (setq older (gnus-uncompress-range older))))
+        (all
+         (setq older (gnus-uncompress-range older)))
          (t
          (t
-         (if (and (numberp gnus-large-newsgroup)
+         (when (and (numberp gnus-large-newsgroup)
                    (> len gnus-large-newsgroup))
               (let* ((cursor-in-echo-area nil)
                    (> len gnus-large-newsgroup))
               (let* ((cursor-in-echo-area nil)
-                    (initial (gnus-parameter-large-newsgroup-initial 
+                    (initial (gnus-parameter-large-newsgroup-initial
                                gnus-newsgroup-name))
                      (input
                       (read-string
                                gnus-newsgroup-name))
                      (input
                       (read-string
@@ -11296,7 +11652,19 @@ If ALL is a number, fetch this number of articles."
                 (unless (string-match "^[ \t]*$" input)
                   (setq all (string-to-number input))
                   (if (< all len)
                 (unless (string-match "^[ \t]*$" input)
                   (setq all (string-to-number input))
                   (if (< all len)
-                     (setq older (last older all))))))))
+                     (let ((older-range (nreverse older)))
+                       (setq older nil)
+
+                       (while (> all 0)
+                         (let* ((r (pop older-range))
+                                (min (if (numberp r) r (car r)))
+                                (max (if (numberp r) r (cdr r))))
+                           (while (and (<= min max)
+                                       (> all 0))
+                             (push max older)
+                             (setq all (1- all)
+                                   max (1- max))))))))))
+         (setq older (gnus-uncompress-range older))))
         (if (not older)
             (message "No old news.")
           (gnus-summary-insert-articles older)
         (if (not older)
             (message "No old news.")
           (gnus-summary-insert-articles older)
@@ -11313,13 +11681,12 @@ If ALL is a number, fetch this number of articles."
             i new)
         (setq gnus-newsgroup-active
               (gnus-activate-group gnus-newsgroup-name 'scan))
             i new)
         (setq gnus-newsgroup-active
               (gnus-activate-group gnus-newsgroup-name 'scan))
-       (setq i (1+ (cdr old-active)))
-       (while (<= i (cdr gnus-newsgroup-active))
+       (setq i (cdr gnus-newsgroup-active))
+       (while (> i (cdr old-active))
           (push i new)
           (push i new)
-         (incf i))
+         (decf i))
         (if (not new)
             (message "No gnus is bad news.")
         (if (not new)
             (message "No gnus is bad news.")
-         (setq new (nreverse new))
           (gnus-summary-insert-articles new)
           (setq gnus-newsgroup-unreads
                 (gnus-sorted-nunion gnus-newsgroup-unreads new))
           (gnus-summary-insert-articles new)
           (setq gnus-newsgroup-unreads
                 (gnus-sorted-nunion gnus-newsgroup-unreads new))