2002-05-20 Jason <jbaker@cs.utah.edu>

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

index 920b7d0..dd18ff8 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -43,6 +43,9 @@
  (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" 
+  "Deuglify broken Outlook (Express) articles and redisplay."
+  t)
  
  (defcustom gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
  
  (defcustom gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
@@ -133,8 +136,9 @@ 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))
  
    :group 'gnus-thread
    :type '(repeat function))
  
@@ -295,13 +299,16 @@ This variable can either be the symbols `first' (place point on the
  first subject), `unread' (place point on the subject line of the first
  unread article), `best' (place point on the subject line of the
  higest-scored article), `unseen' (place point on the subject line of
  first subject), `unread' (place point on the subject line of the first
  unread article), `best' (place point on the subject line of the
  higest-scored article), `unseen' (place point on the subject line of
-the first unseen article), or a function to be called to place point on
-some subject line.."
+the first unseen article), 'unseen-or-unread' (place point on the subject
+line of the first unseen article or, if all article have been seen, on the
+subject line of the first unread article), or a function to be called to
+place point on some subject line."
    :group 'gnus-group-select
    :type '(choice (const best)
                  (const unread)
                  (const first)
    :group 'gnus-group-select
    :type '(choice (const best)
                  (const unread)
                  (const first)
-                (const unseen)))
+                (const unseen)
+                (const unseen-or-unread)))
  
  (defcustom gnus-auto-select-next t
    "*If non-nil, offer to go to the next group from the end of the previous.
  
  (defcustom gnus-auto-select-next t
    "*If non-nil, offer to go to the next group from the end of the previous.
@@ -414,6 +421,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
@@ -530,7 +542,7 @@ this variable specifies group names."
    :type 'boolean)
  
  (defcustom gnus-auto-expirable-marks
    :type 'boolean)
  
  (defcustom gnus-auto-expirable-marks
-  (list gnus-killed-mark gnus-del-mark gnus-catchup-mark
+  (list gnus-spam-mark gnus-killed-mark gnus-del-mark gnus-catchup-mark
         gnus-low-score-mark gnus-ancient-mark gnus-read-mark
         gnus-souped-mark gnus-duplicate-mark)
    "*The list of marks converted into expiration if a group is auto-expirable."
         gnus-low-score-mark gnus-ancient-mark gnus-read-mark
         gnus-souped-mark gnus-duplicate-mark)
    "*The list of marks converted into expiration if a group is auto-expirable."
@@ -571,7 +583,11 @@ list of parameters to that command."
  It works along the same lines as a normal formatting string,
  with some simple extensions.
  
  It works along the same lines as a normal formatting string,
  with some simple extensions.
  
-%S  The subject"
+%S  The subject
+
+General format specifiers can also be used.
+See `(gnus)Formatting Variables'."
+  :link '(custom-manual "(gnus)Formatting Variables")
    :group 'gnus-threading
    :type 'string)
  
    :group 'gnus-threading
    :type 'string)
  
@@ -656,7 +672,9 @@ was sent, sorting by number means sorting by arrival time.)
  
  Ready-made functions include `gnus-thread-sort-by-number',
  `gnus-thread-sort-by-author', `gnus-thread-sort-by-subject',
  
  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' and
+`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-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
@@ -748,15 +766,14 @@ If you'd like to simplify subjects like the
  `gnus-summary-next-same-subject' command does, you can use the
  following hook:
  
  `gnus-summary-next-same-subject' command does, you can use the
  following hook:
  
- (setq gnus-select-group-hook
-      (list
-       (lambda ()
-         (mapcar (lambda (header)
-                    (mail-header-set-subject
-                     header
-                     (gnus-simplify-subject
-                      (mail-header-subject header) 're-only)))
-                 gnus-newsgroup-headers))))"
+ (add-hook gnus-select-group-hook
+          (lambda ()
+            (mapcar (lambda (header)
+                      (mail-header-set-subject
+                       header
+                       (gnus-simplify-subject
+                        (mail-header-subject header) 're-only)))
+                    gnus-newsgroup-headers)))"
    :group 'gnus-group-select
    :type 'hook)
  
    :group 'gnus-group-select
    :type 'hook)
  
@@ -826,30 +843,30 @@ automatically when it is selected."
    :type 'face)
  
  (defcustom gnus-summary-highlight
    :type 'face)
  
  (defcustom gnus-summary-highlight
-  '(((= mark gnus-canceled-mark)
+  '(((eq mark gnus-canceled-mark)
       . gnus-summary-cancelled-face)
      ((and (> score default-high)
       . gnus-summary-cancelled-face)
      ((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)
      ((and (> score default-high) (memq mark (list gnus-downloadable-mark
                                                   gnus-undownloaded-mark)))
       . gnus-summary-normal-unread-face)
      ((and (> score default-high) (memq mark (list gnus-downloadable-mark
                                                   gnus-undownloaded-mark)))
@@ -980,14 +997,6 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
    :type '(choice (const nil)
                  integer))
  
    :type '(choice (const nil)
                  integer))
  
-(defcustom gnus-summary-save-parts-default-mime "image/.*"
-  "*A regexp to match MIME parts when saving multiple parts of a message
-with gnus-summary-save-parts (X m). This regexp will be used by default
-when prompting the user for which type of files to save."
-  :group 'gnus-summary
-  :type 'regexp)
-
-
  (defcustom gnus-summary-save-parts-default-mime "image/.*"
    "*A regexp to match MIME parts when saving multiple parts of a message
  with gnus-summary-save-parts (X m). This regexp will be used by default
  (defcustom gnus-summary-save-parts-default-mime "image/.*"
    "*A regexp to match MIME parts when saving multiple parts of a message
  with gnus-summary-save-parts (X m). This regexp will be used by default
@@ -1005,9 +1014,20 @@ that were fetched.  Say, for nnultimate groups."
  
  (defcustom gnus-summary-muttprint-program "muttprint"
    "Command (and optional arguments) used to run Muttprint."
  
  (defcustom gnus-summary-muttprint-program "muttprint"
    "Command (and optional arguments) used to run Muttprint."
+  :version "21.3"
    :group 'gnus-summary
    :type 'string)
  
    :group 'gnus-summary
    :type 'string)
  
+(defcustom gnus-article-loose-mime nil
+  "If non-nil, don't require MIME-Version header.
+Some brain-damaged MUA/MTA, e.g. Lotus Domino 5.0.6 clients, does not
+supply the MIME-Version header or deliberately strip it From the mail.
+Set it to non-nil, Gnus will treat some articles as MIME even if
+the MIME-Version header is missed."
+  :version "21.3"
+  :type 'boolean
+  :group 'gnus-article)
+
  ;;; Internal variables
  
  (defvar gnus-summary-display-cache nil)
  ;;; Internal variables
  
  (defvar gnus-summary-display-cache nil)
@@ -1031,9 +1051,6 @@ that were fetched.  Say, for nnultimate groups."
  (defvar gnus-summary-save-parts-type-history nil)
  (defvar gnus-summary-save-parts-last-directory nil)
  
  (defvar gnus-summary-save-parts-type-history nil)
  (defvar gnus-summary-save-parts-last-directory nil)
  
-(defvar gnus-summary-save-parts-type-history nil)
-(defvar gnus-summary-save-parts-last-directory nil)
-
  ;; Avoid highlighting in kill files.
  (defvar gnus-summary-inhibit-highlight nil)
  (defvar gnus-newsgroup-selected-overlay nil)
  ;; Avoid highlighting in kill files.
  (defvar gnus-summary-inhibit-highlight nil)
  (defvar gnus-newsgroup-selected-overlay nil)
@@ -1142,10 +1159,10 @@ the type of the variable (string, integer, character, etc).")
  (defvar gnus-newsgroup-limits nil)
  
  (defvar gnus-newsgroup-unreads nil
  (defvar gnus-newsgroup-limits nil)
  
  (defvar gnus-newsgroup-unreads nil
-  "List of unread articles in the current newsgroup.")
+  "Sorted list of unread articles in the current newsgroup.")
  
  (defvar gnus-newsgroup-unselected nil
  
  (defvar gnus-newsgroup-unselected nil
-  "List of unselected unread articles in the current newsgroup.")
+  "Sorted list of unselected unread articles in the current newsgroup.")
  
  (defvar gnus-newsgroup-reads nil
    "Alist of read articles and article marks in the current newsgroup.")
  
  (defvar gnus-newsgroup-reads nil
    "Alist of read articles and article marks in the current newsgroup.")
@@ -1153,13 +1170,13 @@ the type of the variable (string, integer, character, etc).")
  (defvar gnus-newsgroup-expunged-tally nil)
  
  (defvar gnus-newsgroup-marked nil
  (defvar gnus-newsgroup-expunged-tally nil)
  
  (defvar gnus-newsgroup-marked nil
-  "List of ticked articles in the current newsgroup (a subset of unread art).")
+  "Sorted list of ticked articles in the current newsgroup (a subset of unread art).")
  
  (defvar gnus-newsgroup-killed nil
    "List of ranges of articles that have been through the scoring process.")
  
  (defvar gnus-newsgroup-cached nil
  
  (defvar gnus-newsgroup-killed nil
    "List of ranges of articles that have been through the scoring process.")
  
  (defvar gnus-newsgroup-cached nil
-  "List of articles that come from the article cache.")
+  "Sorted list of articles that come from the article cache.")
  
  (defvar gnus-newsgroup-saved nil
    "List of articles that have been saved.")
  
  (defvar gnus-newsgroup-saved nil
    "List of articles that have been saved.")
@@ -1176,13 +1193,13 @@ the type of the variable (string, integer, character, etc).")
    "List of articles that have are recent in the current newsgroup.")
  
  (defvar gnus-newsgroup-expirable nil
    "List of articles that have are recent in the current newsgroup.")
  
  (defvar gnus-newsgroup-expirable nil
-  "List of articles in the current newsgroup that can be expired.")
+  "Sorted list of articles in the current newsgroup that can be expired.")
  
  (defvar gnus-newsgroup-processable nil
    "List of articles in the current newsgroup that can be processed.")
  
  (defvar gnus-newsgroup-downloadable nil
  
  (defvar gnus-newsgroup-processable nil
    "List of articles in the current newsgroup that can be processed.")
  
  (defvar gnus-newsgroup-downloadable nil
-  "List of articles in the current newsgroup that can be processed.")
+  "Sorted list of articles in the current newsgroup that can be processed.")
  
  (defvar gnus-newsgroup-undownloaded nil
    "List of articles in the current newsgroup that haven't been downloaded..")
  
  (defvar gnus-newsgroup-undownloaded nil
    "List of articles in the current newsgroup that haven't been downloaded..")
@@ -1194,7 +1211,7 @@ the type of the variable (string, integer, character, etc).")
    "List of articles in the current newsgroup that have bookmarks.")
  
  (defvar gnus-newsgroup-dormant nil
    "List of articles in the current newsgroup that have bookmarks.")
  
  (defvar gnus-newsgroup-dormant nil
-  "List of dormant articles in the current newsgroup.")
+  "Sorted list of dormant articles in the current newsgroup.")
  
  (defvar gnus-newsgroup-unseen nil
    "List of unseen articles in the current newsgroup.")
  
  (defvar gnus-newsgroup-unseen nil
    "List of unseen articles in the current newsgroup.")
@@ -1346,6 +1363,13 @@ 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)
@@ -1721,6 +1745,7 @@ increase the score of each group you read."
      "6" gnus-article-de-base64-unreadable
      "Z" gnus-article-decode-HZ
      "h" gnus-article-wash-html
      "6" gnus-article-de-base64-unreadable
      "Z" gnus-article-decode-HZ
      "h" gnus-article-wash-html
+    "u" gnus-article-unsplit-urls
      "s" gnus-summary-force-verify-and-decrypt
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "s" gnus-summary-force-verify-and-decrypt
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
@@ -1730,7 +1755,8 @@ increase the score of each group you read."
      "v" gnus-summary-verbose-headers
      "a" gnus-article-strip-headers-in-body ;; mnemonic: wash archive
      "p" gnus-article-verify-x-pgp-sig
      "v" gnus-summary-verbose-headers
      "a" gnus-article-strip-headers-in-body ;; mnemonic: wash archive
      "p" gnus-article-verify-x-pgp-sig
-    "d" gnus-article-treat-dumbquotes)
+    "d" gnus-article-treat-dumbquotes
+    "k" gnus-article-outlook-deuglify-article)
  
    (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
@@ -1834,10 +1860,57 @@ increase the score of each group you read."
      "o" gnus-article-save-part
      "c" gnus-article-copy-part
      "C" gnus-article-view-part-as-charset
      "o" gnus-article-save-part
      "c" gnus-article-copy-part
      "C" gnus-article-view-part-as-charset
-    "e" gnus-article-externalize-part
+    "e" gnus-article-view-part-externally
      "E" gnus-article-encrypt-body
      "i" gnus-article-inline-part
      "E" gnus-article-encrypt-body
      "i" gnus-article-inline-part
-    "|" gnus-article-pipe-part))
+    "|" gnus-article-pipe-part)
+
+  (gnus-define-keys (gnus-uu-mark-map "P" gnus-summary-mark-map)
+    "p" gnus-summary-mark-as-processable
+    "u" gnus-summary-unmark-as-processable
+    "U" gnus-summary-unmark-all-processable
+    "v" gnus-uu-mark-over
+    "s" gnus-uu-mark-series
+    "r" gnus-uu-mark-region
+    "g" gnus-uu-unmark-region
+    "R" gnus-uu-mark-by-regexp
+    "G" gnus-uu-unmark-by-regexp
+    "t" gnus-uu-mark-thread
+    "T" gnus-uu-unmark-thread
+    "a" gnus-uu-mark-all
+    "b" gnus-uu-mark-buffer
+    "S" gnus-uu-mark-sparse
+    "k" gnus-summary-kill-process-mark
+    "y" gnus-summary-yank-process-mark
+    "w" gnus-summary-save-process-mark
+    "i" gnus-uu-invert-processable)
+
+  (gnus-define-keys (gnus-uu-extract-map "X" gnus-summary-mode-map)
+    ;;"x" gnus-uu-extract-any
+    "m" gnus-summary-save-parts
+    "u" gnus-uu-decode-uu
+    "U" gnus-uu-decode-uu-and-save
+    "s" gnus-uu-decode-unshar
+    "S" gnus-uu-decode-unshar-and-save
+    "o" gnus-uu-decode-save
+    "O" gnus-uu-decode-save
+    "b" gnus-uu-decode-binhex
+    "B" gnus-uu-decode-binhex
+    "p" gnus-uu-decode-postscript
+    "P" gnus-uu-decode-postscript-and-save)
+
+  (gnus-define-keys
+      (gnus-uu-extract-view-map "v" gnus-uu-extract-map)
+    "u" gnus-uu-decode-uu-view
+    "U" gnus-uu-decode-uu-and-save-view
+    "s" gnus-uu-decode-unshar-view
+    "S" gnus-uu-decode-unshar-and-save-view
+    "o" gnus-uu-decode-save-view
+    "O" gnus-uu-decode-save-view
+    "b" gnus-uu-decode-binhex-view
+    "B" gnus-uu-decode-binhex-view
+    "p" gnus-uu-decode-postscript-view
+    "P" gnus-uu-decode-postscript-and-save-view))
  
  (defvar gnus-article-post-menu nil)
  
  
  (defvar gnus-article-post-menu nil)
  
@@ -1898,7 +1971,8 @@ increase the score of each group you read."
               ["Base64" gnus-article-de-base64-unreadable t]
               ["View all" gnus-mime-view-all-parts t]
               ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt t]
               ["Base64" gnus-article-de-base64-unreadable t]
               ["View all" gnus-mime-view-all-parts t]
               ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt t]
-             ["Encrypt body" gnus-article-encrypt-body t])
+             ["Encrypt body" gnus-article-encrypt-body t]
+             ["Extract all parts" gnus-summary-save-parts t])
              ("Date"
               ["Local" gnus-article-date-local t]
               ["ISO8601" gnus-article-date-iso8601 t]
              ("Date"
               ["Local" gnus-article-date-local t]
               ["ISO8601" gnus-article-date-iso8601 t]
@@ -1912,7 +1986,28 @@ increase the score of each group you read."
               ["Show X-Face" gnus-article-display-x-face t]
               ["Show picons in From" gnus-treat-from-picon t]
               ["Show picons in mail headers" gnus-treat-mail-picon t]
               ["Show X-Face" gnus-article-display-x-face t]
               ["Show picons in From" gnus-treat-from-picon t]
               ["Show picons in mail headers" gnus-treat-mail-picon t]
-             ["Show picons in news headers" gnus-treat-newsgroups-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-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)))))))
              ("Washing"
               ("Remove Blanks"
                ["Leading" gnus-article-strip-leading-blank-lines t]
              ("Washing"
               ("Remove Blanks"
                ["Leading" gnus-article-strip-leading-blank-lines t]
@@ -1945,8 +2040,11 @@ increase the score of each group you read."
               ["Unfold headers" gnus-article-treat-unfold-headers t]
               ["Fold newsgroups" gnus-article-treat-fold-newsgroups t]
               ["Html" gnus-article-wash-html t]
               ["Unfold headers" gnus-article-treat-unfold-headers t]
               ["Fold newsgroups" gnus-article-treat-fold-newsgroups t]
               ["Html" gnus-article-wash-html t]
+             ["URLs" gnus-article-unsplit-urls t]
               ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t]
               ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t]
-             ["HZ" gnus-article-decode-HZ t])
+             ["HZ" gnus-article-decode-HZ t]
+             ["OutlooK deuglify" gnus-article-outlook-deuglify-article t]
+             )
              ("Output"
               ["Save in default format" gnus-summary-save-article
                ,@(if (featurep 'xemacs) '(t)
              ("Output"
               ["Save in default format" gnus-summary-save-article
                ,@(if (featurep 'xemacs) '(t)
@@ -1994,7 +2092,8 @@ increase the score of each group you read."
               ["Unshar and save" gnus-uu-decode-unshar-and-save t]
               ["Save" gnus-uu-decode-save t]
               ["Binhex" gnus-uu-decode-binhex t]
               ["Unshar and save" gnus-uu-decode-unshar-and-save t]
               ["Save" gnus-uu-decode-save t]
               ["Binhex" gnus-uu-decode-binhex t]
-             ["Postscript" gnus-uu-decode-postscript t])
+             ["Postscript" gnus-uu-decode-postscript t]
+             ["All MIME parts" gnus-summary-save-parts t])
              ("Cache"
               ["Enter article" gnus-cache-enter-article t]
               ["Remove article" gnus-cache-remove-article t])
              ("Cache"
               ["Enter article" gnus-cache-enter-article t]
               ["Remove article" gnus-cache-remove-article t])
@@ -2010,7 +2109,7 @@ increase the score of each group you read."
              ["Fetch article with id..." gnus-summary-refer-article t]
              ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
              ["Redisplay" gnus-summary-show-article t]
              ["Fetch article with id..." gnus-summary-refer-article t]
              ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
              ["Redisplay" gnus-summary-show-article t]
-            ["Raw article" gnus-summary-show-raw-article t])))
+            ["Raw article" gnus-summary-show-raw-article :keys "C-u g"])))
        (easy-menu-define
         gnus-summary-article-menu gnus-summary-mode-map ""
         (cons "Article" innards))
        (easy-menu-define
         gnus-summary-article-menu gnus-summary-mode-map ""
         (cons "Article" innards))
@@ -2065,11 +2164,16 @@ increase the score of each group you read."
         ["Wide reply and yank" gnus-summary-wide-reply-with-original
          ,@(if (featurep 'xemacs) '(t)
              '(:help "Mail a reply, quoting this article"))]
         ["Wide reply and yank" gnus-summary-wide-reply-with-original
          ,@(if (featurep 'xemacs) '(t)
              '(:help "Mail a reply, quoting this article"))]
+       ["Very wide reply" gnus-summary-very-wide-reply t]
+       ["Very wide reply and yank" gnus-summary-very-wide-reply-with-original
+        ,@(if (featurep 'xemacs) '(t)
+            '(:help "Mail a very wide reply, quoting this article"))]
         ["Mail forward" gnus-summary-mail-forward t]
         ["Post forward" gnus-summary-post-forward t]
         ["Digest and mail" gnus-uu-digest-mail-forward t]
         ["Digest and post" gnus-uu-digest-post-forward t]
         ["Resend message" gnus-summary-resend-message t]
         ["Mail forward" gnus-summary-mail-forward t]
         ["Post forward" gnus-summary-post-forward t]
         ["Digest and mail" gnus-uu-digest-mail-forward t]
         ["Digest and post" gnus-uu-digest-post-forward t]
         ["Resend message" gnus-summary-resend-message t]
+       ["Resend message edit" gnus-summary-resend-message-edit t]
         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
         ["Send a mail" gnus-summary-mail-other-window t]
         ["Create a local message" gnus-summary-news-other-window t]
         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
         ["Send a mail" gnus-summary-mail-other-window t]
         ["Create a local message" gnus-summary-news-other-window t]
@@ -2414,7 +2518,7 @@ The following commands are available:
    (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
    (gnus-run-hooks 'gnus-summary-mode-hook)
    (turn-on-gnus-mailing-list-mode)
    (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
    (gnus-run-hooks 'gnus-summary-mode-hook)
    (turn-on-gnus-mailing-list-mode)
-  (mm-enable-multibyte-mule4)
+  (mm-enable-multibyte)
    (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
    (gnus-update-summary-mark-positions))
  
    (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
    (gnus-update-summary-mark-positions))
  
@@ -2813,7 +2917,12 @@ display only a single character."
  
  (defun gnus-summary-setup-buffer (group)
    "Initialize summary buffer."
  
  (defun gnus-summary-setup-buffer (group)
    "Initialize summary buffer."
-  (let ((buffer (gnus-summary-buffer-name group)))
+  (let ((buffer (gnus-summary-buffer-name group))
+       (dead-name (concat "*Dead Summary "
+                          (gnus-group-decoded-name group) "*")))
+    ;; If a dead summary buffer exists, we kill it.
+    (when (gnus-buffer-live-p dead-name)
+      (gnus-kill-buffer dead-name))
      (if (get-buffer buffer)
         (progn
           (set-buffer buffer)
      (if (get-buffer buffer)
         (progn
           (set-buffer buffer)
@@ -2932,17 +3041,19 @@ buffer that was in action when the last article was fetched."
            0 nil 128 t nil "" nil 1)
           (goto-char (point-min))
           (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
            0 nil 128 t nil "" nil 1)
           (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))))
  
@@ -2973,11 +3084,12 @@ buffer that was in action when the last article was fetched."
             (cond
              ((setq to (cdr (assq 'To extra-headers)))
               (concat "-> "
             (cond
              ((setq to (cdr (assq 'To extra-headers)))
               (concat "-> "
-                     (gnus-summary-extract-address-component
-                      (funcall gnus-decode-encoded-word-function to))))
+                     (inline
+                       (gnus-summary-extract-address-component
+                        (funcall gnus-decode-encoded-word-function to)))))
              ((setq newsgroups (cdr (assq 'Newsgroups extra-headers)))
               (concat "=> " newsgroups)))))
              ((setq newsgroups (cdr (assq 'Newsgroups extra-headers)))
               (concat "=> " newsgroups)))))
-     (gnus-summary-extract-address-component gnus-tmp-from))))
+     (inline (gnus-summary-extract-address-component gnus-tmp-from)))))
  
  (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
@@ -3281,7 +3393,10 @@ If NO-DISPLAY, don't generate a summary buffer."
                  gnus-auto-select-first)
             (progn
               (gnus-configure-windows 'summary)
                  gnus-auto-select-first)
             (progn
               (gnus-configure-windows 'summary)
-             (gnus-summary-goto-article (gnus-summary-article-number)))
+             (let ((art (gnus-summary-article-number)))
+               (unless (or (memq art gnus-newsgroup-undownloaded)
+                           (memq art gnus-newsgroup-downloadable))
+                 (gnus-summary-goto-article art))))
           ;; Don't select any articles.
           (gnus-summary-position-point)
           (gnus-configure-windows 'summary 'force)
           ;; Don't select any articles.
           (gnus-summary-position-point)
           (gnus-configure-windows 'summary 'force)
@@ -3309,6 +3424,8 @@ If NO-DISPLAY, don't generate a summary buffer."
      (gnus-summary-first-unread-subject))
     ((eq gnus-auto-select-subject 'unseen)
      (gnus-summary-first-unseen-subject))
      (gnus-summary-first-unread-subject))
     ((eq gnus-auto-select-subject 'unseen)
      (gnus-summary-first-unseen-subject))
+   ((eq gnus-auto-select-subject 'unseen-or-unread)
+    (gnus-summary-first-unseen-or-unread-subject))
     ((eq gnus-auto-select-subject 'first)
      ;; Do nothing.
      )
     ((eq gnus-auto-select-subject 'first)
      ;; Do nothing.
      )
@@ -3410,7 +3527,7 @@ If NO-DISPLAY, don't generate a summary buffer."
      (while threads
        (when (setq references (mail-header-references (caar threads)))
         (setq id (mail-header-id (caar threads))
      (while threads
        (when (setq references (mail-header-references (caar threads)))
         (setq id (mail-header-id (caar threads))
-             ids (gnus-split-references references)
+             ids (inline (gnus-split-references references))
               entered nil)
         (while (setq ref (pop ids))
           (setq ids (delete ref ids))
               entered nil)
         (while (setq ref (pop ids))
           (setq ids (delete ref ids))
@@ -3494,8 +3611,8 @@ If NO-DISPLAY, don't generate a summary buffer."
                   (setq threads nil)
                   (throw 'infloop t))
                 (unless (car (symbol-value refs))
                   (setq threads nil)
                   (throw 'infloop t))
                 (unless (car (symbol-value refs))
-            ;; These threads do not refer back to any other articles,
-                 ;; so they're roots.
+                 ;; These threads do not refer back to any other
+                 ;; articles, so they're roots.
                   (setq threads (append (cdr (symbol-value refs)) threads))))
               gnus-newsgroup-dependencies)))
      threads))
                   (setq threads (append (cdr (symbol-value refs)) threads))))
               gnus-newsgroup-dependencies)))
      threads))
@@ -3509,13 +3626,13 @@ if it was already present.
  
  If `gnus-summary-ignore-duplicates' is nil then duplicate Message-IDs
  will not be entered in the DEPENDENCIES table.  Otherwise duplicate
  
  If `gnus-summary-ignore-duplicates' is nil then duplicate Message-IDs
  will not be entered in the DEPENDENCIES table.  Otherwise duplicate
-Message-IDs will be renamed be renamed to a unique Message-ID before
-being entered.
+Message-IDs will be renamed to a unique Message-ID before being
+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)
+        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)
@@ -3532,7 +3649,8 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
       (force-new
        ;; Overrides an existing entry;
        ;; just set the header part of the entry.
       (force-new
        ;; Overrides an existing entry;
        ;; just set the header part of the entry.
-      (setcar (symbol-value id-dep) header))
+      (setcar (symbol-value id-dep) header)
+      (setq replaced t))
  
       ;; Renames the existing `header' to a unique Message-ID.
       ((not gnus-summary-ignore-duplicates)
  
       ;; Renames the existing `header' to a unique Message-ID.
       ((not gnus-summary-ignore-duplicates)
@@ -3555,8 +3673,8 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
                (or (mail-header-xref header) "")))
        (setq header nil)))
  
                (or (mail-header-xref header) "")))
        (setq header nil)))
  
-    (when header
-      ;; First check if 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)))
        (while (and ref
                   (setq ref-dep (intern-soft ref dependencies))
        (setq ref (gnus-parent-id (mail-header-references header)))
        (while (and ref
                   (setq ref-dep (intern-soft ref dependencies))
@@ -3578,6 +3696,11 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
         (set ref-dep (list nil (symbol-value id-dep)))))
      header))
  
         (set ref-dep (list nil (symbol-value id-dep)))))
      header))
  
+(defun gnus-extract-message-id-from-in-reply-to (string)
+  (if (string-match "<[^>]+>" string)
+      (substring string (match-beginning 0) (match-end 0))
+    nil))
+
  (defun gnus-build-sparse-threads ()
    (let ((headers gnus-newsgroup-headers)
         (mail-parse-charset gnus-newsgroup-charset)
  (defun gnus-build-sparse-threads ()
    (let ((headers gnus-newsgroup-headers)
         (mail-parse-charset gnus-newsgroup-charset)
@@ -3654,7 +3777,7 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
  (defsubst gnus-nov-parse-line (number dependencies &optional force-new)
    (let ((eol (gnus-point-at-eol))
         (buffer (current-buffer))
  (defsubst gnus-nov-parse-line (number dependencies &optional force-new)
    (let ((eol (gnus-point-at-eol))
         (buffer (current-buffer))
-       header)
+       header references in-reply-to)
  
      ;; overview: [num subject from date id refs chars lines misc]
      (unwind-protect
  
      ;; overview: [num subject from date id refs chars lines misc]
      (unwind-protect
@@ -3672,7 +3795,7 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
                           (nnheader-nov-field)) ; from
                  (nnheader-nov-field)   ; date
                  (nnheader-nov-read-message-id) ; id
                           (nnheader-nov-field)) ; from
                  (nnheader-nov-field)   ; date
                  (nnheader-nov-read-message-id) ; id
-                (nnheader-nov-field)   ; refs
+                (setq references (nnheader-nov-field)) ; refs
                  (nnheader-nov-read-integer) ; chars
                  (nnheader-nov-read-integer) ; lines
                  (unless (eobp)
                  (nnheader-nov-read-integer) ; chars
                  (nnheader-nov-read-integer) ; lines
                  (unless (eobp)
@@ -3683,6 +3806,12 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
  
        (widen))
  
  
        (widen))
  
+    (when (and (string= references "")
+              (setq in-reply-to (mail-header-extra header))
+              (setq in-reply-to (cdr (assq 'In-Reply-To in-reply-to))))
+      (mail-header-set-references
+       header (gnus-extract-message-id-from-in-reply-to in-reply-to)))
+
      (when gnus-alter-header-function
        (funcall gnus-alter-header-function header))
      (gnus-dependencies-add-header header dependencies force-new)))
      (when gnus-alter-header-function
        (funcall gnus-alter-header-function header))
      (gnus-dependencies-add-header header dependencies force-new)))
@@ -3717,7 +3846,9 @@ the id of the parent article (if any)."
           (push header gnus-newsgroup-headers)
           (if (memq number gnus-newsgroup-unselected)
               (progn
           (push header gnus-newsgroup-headers)
           (if (memq number gnus-newsgroup-unselected)
               (progn
-               (push number gnus-newsgroup-unreads)
+               (setq gnus-newsgroup-unreads
+                     (gnus-add-to-sorted-list gnus-newsgroup-unreads
+                                              number))
                 (setq gnus-newsgroup-unselected
                       (delq number gnus-newsgroup-unselected)))
             (push number gnus-newsgroup-ancient)))))))
                 (setq gnus-newsgroup-unselected
                       (delq number gnus-newsgroup-unselected)))
             (push number gnus-newsgroup-ancient)))))))
@@ -3743,7 +3874,9 @@ the id of the parent article (if any)."
               (if (memq (setq article (mail-header-number header))
                         gnus-newsgroup-unselected)
                   (progn
               (if (memq (setq article (mail-header-number header))
                         gnus-newsgroup-unselected)
                   (progn
-                   (push article gnus-newsgroup-unreads)
+                   (setq gnus-newsgroup-unreads
+                         (gnus-add-to-sorted-list
+                          gnus-newsgroup-unreads article))
                     (setq gnus-newsgroup-unselected
                           (delq article gnus-newsgroup-unselected)))
                 (push article gnus-newsgroup-ancient)))
                     (setq gnus-newsgroup-unselected
                           (delq article gnus-newsgroup-unselected)))
                 (push article gnus-newsgroup-ancient)))
@@ -4146,15 +4279,47 @@ Unscored articles will be counted as having a score of zero."
  
  (defun gnus-thread-total-score (thread)
    ;; This function find the total score of THREAD.
  
  (defun gnus-thread-total-score (thread)
    ;; This function find the total score of THREAD.
-  (cond ((null thread)
-        0)
-       ((consp thread)
-        (if (stringp (car thread))
-            (apply gnus-thread-score-function 0
-                   (mapcar 'gnus-thread-total-score-1 (cdr thread)))
-          (gnus-thread-total-score-1 thread)))
-       (t
-        (gnus-thread-total-score-1 (list thread)))))
+  (cond
+   ((null thread)
+    0)
+   ((consp thread)
+    (if (stringp (car thread))
+       (apply gnus-thread-score-function 0
+              (mapcar 'gnus-thread-total-score-1 (cdr thread)))
+      (gnus-thread-total-score-1 thread)))
+   (t
+    (gnus-thread-total-score-1 (list thread)))))
+
+(defun gnus-thread-sort-by-most-recent-number (h1 h2)
+  "Sort threads such that the thread with the most recently arrived article comes first."
+  (> (gnus-thread-highest-number h1) (gnus-thread-highest-number h2)))
+
+(defun gnus-thread-highest-number (thread)
+  "Return the highest article number in THREAD."
+  (apply 'max (mapcar (lambda (header)
+                       (mail-header-number header))
+                     (message-flatten-list thread))))
+
+(defun gnus-thread-sort-by-most-recent-date (h1 h2)
+  "Sort threads such that the thread with the most recently dated article comes first."
+  (> (gnus-thread-latest-date h1) (gnus-thread-latest-date h2)))
+
+(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))))))))
  
  (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.
@@ -4184,20 +4349,32 @@ Unscored articles will be counted as having a score of zero."
  
  (defvar gnus-tmp-thread-tree-header-string "")
  
  
  (defvar gnus-tmp-thread-tree-header-string "")
  
-(defvar gnus-sum-thread-tree-root "> "
+(defcustom gnus-sum-thread-tree-root "> "
    "With %B spec, used for the root of a thread.
    "With %B spec, used for the root of a thread.
-If nil, use subject instead.")
-(defvar gnus-sum-thread-tree-single-indent ""
+If nil, use subject instead."
+  :type 'string
+  :group 'gnus-thread)
+(defcustom gnus-sum-thread-tree-single-indent ""
    "With %B spec, used for a thread with just one message.
    "With %B spec, used for a thread with just one message.
-If nil, use subject instead.")
-(defvar gnus-sum-thread-tree-vertical "| "
-  "With %B spec, used for drawing a vertical line.")
-(defvar gnus-sum-thread-tree-indent "  "
-  "With %B spec, used for indenting.")
-(defvar gnus-sum-thread-tree-leaf-with-other "+-> "
-  "With %B spec, used for a leaf with brothers.")
-(defvar gnus-sum-thread-tree-single-leaf "\\-> "
-  "With %B spec, used for a leaf without brothers.")
+If nil, use subject instead."
+  :type 'string
+  :group 'gnus-thread)
+(defcustom gnus-sum-thread-tree-vertical "| "
+  "With %B spec, used for drawing a vertical line."
+  :type 'string
+  :group 'gnus-thread)
+(defcustom gnus-sum-thread-tree-indent "  "
+  "With %B spec, used for indenting."
+  :type 'string
+  :group 'gnus-thread)
+(defcustom gnus-sum-thread-tree-leaf-with-other "+-> "
+  "With %B spec, used for a leaf with brothers."
+  :type 'string
+  :group 'gnus-thread)
+(defcustom gnus-sum-thread-tree-single-leaf "\\-> "
+  "With %B spec, used for a leaf without brothers."
+  :type 'string
+  :group 'gnus-thread)
  
  (defun gnus-summary-prepare-threads (threads)
    "Prepare summary buffer from THREADS and indentation LEVEL.
  
  (defun gnus-summary-prepare-threads (threads)
    "Prepare summary buffer from THREADS and indentation LEVEL.
@@ -4341,7 +4518,9 @@ or a straight list of headers."
             (setq gnus-newsgroup-unreads
                   (delq number gnus-newsgroup-unreads))
             (if gnus-newsgroup-auto-expire
             (setq gnus-newsgroup-unreads
                   (delq number gnus-newsgroup-unreads))
             (if gnus-newsgroup-auto-expire
-               (push number gnus-newsgroup-expirable)
+               (setq gnus-newsgroup-expirable
+                     (gnus-add-to-sorted-list
+                      gnus-newsgroup-expirable number))
               (push (cons number gnus-low-score-mark)
                     gnus-newsgroup-reads))))
  
               (push (cons number gnus-low-score-mark)
                     gnus-newsgroup-reads))))
  
@@ -4633,8 +4812,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
        (setq cached gnus-newsgroup-cached))
  
      (setq gnus-newsgroup-unreads
        (setq cached gnus-newsgroup-cached))
  
      (setq gnus-newsgroup-unreads
-         (gnus-set-difference
-          (gnus-set-difference gnus-newsgroup-unreads gnus-newsgroup-marked)
+         (gnus-sorted-ndifference
+          (gnus-sorted-ndifference gnus-newsgroup-unreads
+                                   gnus-newsgroup-marked)
            gnus-newsgroup-dormant))
  
      (setq gnus-newsgroup-processable nil)
            gnus-newsgroup-dormant))
  
      (setq gnus-newsgroup-processable nil)
@@ -4647,9 +4827,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
  
      (if (setq articles select-articles)
         (setq gnus-newsgroup-unselected
  
      (if (setq articles select-articles)
         (setq gnus-newsgroup-unselected
-             (gnus-sorted-intersection
-              gnus-newsgroup-unreads
-              (gnus-sorted-complement gnus-newsgroup-unreads articles)))
+             (gnus-sorted-difference gnus-newsgroup-unreads articles))
        (setq articles (gnus-articles-to-read group read-all)))
  
      (cond
        (setq articles (gnus-articles-to-read group read-all)))
  
      (cond
@@ -4681,20 +4859,13 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                     gnus-newsgroup-headers))
        (setq gnus-newsgroup-articles fetched-articles)
        (setq gnus-newsgroup-unreads
                     gnus-newsgroup-headers))
        (setq gnus-newsgroup-articles fetched-articles)
        (setq gnus-newsgroup-unreads
-           (gnus-set-sorted-intersection
+           (gnus-sorted-nintersection
              gnus-newsgroup-unreads fetched-articles))
              gnus-newsgroup-unreads fetched-articles))
-
-      ;; The `seen' marks are treated specially.
-      (if (not gnus-newsgroup-seen)
-         (setq gnus-newsgroup-unseen gnus-newsgroup-articles)
-       (dolist (article gnus-newsgroup-articles)
-         (unless (gnus-member-of-range article gnus-newsgroup-seen)
-           (push article gnus-newsgroup-unseen)))
-       (setq gnus-newsgroup-unseen (nreverse gnus-newsgroup-unseen)))
+      (gnus-compute-unseen-list)
  
        ;; Removed marked articles that do not exist.
        (gnus-update-missing-marks
  
        ;; Removed marked articles that do not exist.
        (gnus-update-missing-marks
-       (gnus-sorted-complement fetched-articles articles))
+       (gnus-sorted-difference articles fetched-articles))
        ;; We might want to build some more threads first.
        (when (and gnus-fetch-old-headers
                  (eq gnus-headers-retrieved-by 'nov))
        ;; We might want to build some more threads first.
        (when (and gnus-fetch-old-headers
                  (eq gnus-headers-retrieved-by 'nov))
@@ -4723,19 +4894,29 @@ If SELECT-ARTICLES, only select those articles from GROUP."
        ;; GROUP is successfully selected.
        (or gnus-newsgroup-headers t)))))
  
        ;; GROUP is successfully selected.
        (or gnus-newsgroup-headers t)))))
  
+(defun gnus-compute-unseen-list ()
+  ;; The `seen' marks are treated specially.
+  (if (not gnus-newsgroup-seen)
+      (setq gnus-newsgroup-unseen gnus-newsgroup-articles)
+    (setq gnus-newsgroup-unseen
+         (gnus-inverse-list-range-intersection
+          gnus-newsgroup-articles gnus-newsgroup-seen))))
+
  (defun gnus-summary-display-make-predicate (display)
    (require 'gnus-agent)
    (when (= (length display) 1)
      (setq display (car display)))
    (unless gnus-summary-display-cache
  (defun gnus-summary-display-make-predicate (display)
    (require 'gnus-agent)
    (when (= (length display) 1)
      (setq display (car display)))
    (unless gnus-summary-display-cache
-    (dolist (elem (append (list (cons 'read 'read)
-                               (cons 'unseen 'unseen))
+    (dolist (elem (append '((unread . unread)
+                           (read . read)
+                           (unseen . unseen))
                           gnus-article-mark-lists))
        (push (cons (cdr elem)
                   (gnus-byte-compile
                    `(lambda () (gnus-article-marked-p ',(cdr elem)))))
             gnus-summary-display-cache)))
                           gnus-article-mark-lists))
        (push (cons (cdr elem)
                   (gnus-byte-compile
                    `(lambda () (gnus-article-marked-p ',(cdr elem)))))
             gnus-summary-display-cache)))
-  (let ((gnus-category-predicate-alist gnus-summary-display-cache))
+  (let ((gnus-category-predicate-alist gnus-summary-display-cache)
+       (gnus-category-predicate-cache gnus-summary-display-cache))
      (gnus-get-predicate display)))
  
  ;; Uses the dynamically bound `number' variable.
      (gnus-get-predicate display)))
  
  ;; Uses the dynamically bound `number' variable.
@@ -4787,7 +4968,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
           (if (or read-all
                   (and (zerop (length gnus-newsgroup-marked))
                        (zerop (length gnus-newsgroup-unreads)))
           (if (or read-all
                   (and (zerop (length gnus-newsgroup-marked))
                        (zerop (length gnus-newsgroup-unreads)))
-                 (eq gnus-newsgroup-display 'gnus-not-ignore))
+                 ;; Fetch all if the predicate is non-nil.
+                 gnus-newsgroup-display)
               ;; We want to select the headers for all the articles in
               ;; the group, so we select either all the active
               ;; articles in the group, or (if that's nil), the
               ;; We want to select the headers for all the articles in
               ;; the group, so we select either all the active
               ;; articles in the group, or (if that's nil), the
@@ -4796,9 +4978,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                (gnus-uncompress-range (gnus-active group))
                (gnus-cache-articles-in-group group))
             ;; Select only the "normal" subset of articles.
                (gnus-uncompress-range (gnus-active group))
                (gnus-cache-articles-in-group group))
             ;; Select only the "normal" subset of articles.
-           (sort (append gnus-newsgroup-dormant gnus-newsgroup-marked
-                         (copy-sequence gnus-newsgroup-unreads))
-                 '<)))
+           (gnus-sorted-nunion
+            (gnus-sorted-union gnus-newsgroup-dormant gnus-newsgroup-marked)
+            gnus-newsgroup-unreads)))
          (scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
          (scored (length scored-list))
          (number (length articles))
          (scored-list (gnus-killed-articles gnus-newsgroup-killed articles))
          (scored (length scored-list))
          (number (length articles))
@@ -4808,20 +4990,29 @@ If SELECT-ARTICLES, only select those articles from GROUP."
           (cond
            ((numberp read-all)
             read-all)
           (cond
            ((numberp read-all)
             read-all)
+          ((numberp gnus-newsgroup-display)
+           gnus-newsgroup-display)
            (t
             (condition-case ()
                 (cond
                  ((and (or (<= scored marked) (= scored number))
                        (numberp gnus-large-newsgroup)
                        (> number gnus-large-newsgroup))
            (t
             (condition-case ()
                 (cond
                  ((and (or (<= scored marked) (= scored number))
                        (numberp gnus-large-newsgroup)
                        (> number gnus-large-newsgroup))
-                 (let ((input
-                        (read-string
-                         (format
-                          "How many articles from %s (default %d): "
-                          (gnus-limit-string
-                           (gnus-group-decoded-name gnus-newsgroup-name)
-                           35)
-                          number))))
+                 (let* ((cursor-in-echo-area nil)
+                        (initial (gnus-parameter-large-newsgroup-initial 
+                                  gnus-newsgroup-name))
+                        (input
+                         (read-string
+                          (format
+                           "How many articles from %s (%s %d): "
+                           (gnus-limit-string
+                            (gnus-group-decoded-name gnus-newsgroup-name)
+                            35)
+                           (if initial "max" "default")
+                           number)
+                          (if initial
+                              (cons (number-to-string initial)
+                                    0)))))
                     (if (string-match "^[ \t]*$" input) number input)))
                  ((and (> scored marked) (< scored number)
                        (> (- scored number) 20))
                     (if (string-match "^[ \t]*$" input) number input)))
                  ((and (> scored marked) (< scored number)
                        (> (- scored number) 20))
@@ -4853,9 +5044,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
           ;; Select the N most recent articles.
           (setq articles (nthcdr (- number select) articles))))
        (setq gnus-newsgroup-unselected
           ;; Select the N most recent articles.
           (setq articles (nthcdr (- number select) articles))))
        (setq gnus-newsgroup-unselected
-           (gnus-sorted-intersection
-            gnus-newsgroup-unreads
-            (gnus-sorted-complement gnus-newsgroup-unreads articles)))
+           (gnus-sorted-difference gnus-newsgroup-unreads articles))
        (when gnus-alter-articles-to-read-function
         (setq gnus-newsgroup-unreads
               (sort
        (when gnus-alter-articles-to-read-function
         (setq gnus-newsgroup-unreads
               (sort
@@ -4932,6 +5121,10 @@ If SELECT-ARTICLES, only select those articles from GROUP."
         ((eq mark-type 'range)
         (cond
          ((eq mark 'seen)
         ((eq mark-type 'range)
         (cond
          ((eq mark 'seen)
+         ;; Fix the record for `seen' if it looks like (seen NUM1 . NUM2).
+         ;; It should be (seen (NUM1 . NUM2)).
+         (when (numberp (cddr marks))
+           (setcdr marks (list (cdr marks))))
           (setq articles (cdr marks))
           (while (and articles
                       (or (and (consp (car articles))
           (setq articles (cdr marks))
           (while (and articles
                       (or (and (consp (car articles))
@@ -5417,29 +5610,24 @@ Return a list of headers that match SEQUENCE (see
        ;; Allow the user to mangle the headers before parsing them.
        (gnus-run-hooks 'gnus-parse-headers-hook)
        (goto-char (point-min))
        ;; Allow the user to mangle the headers before parsing them.
        (gnus-run-hooks 'gnus-parse-headers-hook)
        (goto-char (point-min))
-      (while (not (eobp))
-       (condition-case ()
-           (while (and (or sequence allp)
-                       (not (eobp)))
-             (setq number (read cur))
-             (when (not allp)
-               (while (and sequence
-                           (< (car sequence) number))
-                 (setq sequence (cdr sequence))))
-             (when (and (or allp
-                            (and sequence
-                                 (eq number (car sequence))))
-                        (progn
-                          (setq sequence (cdr sequence))
-                          (setq header (inline
-                                         (gnus-nov-parse-line
-                                          number dependencies force-new)))))
-               (push header headers))
-             (forward-line 1))
-         (error
-          (gnus-error 4 "Strange nov line (%d)"
-                      (count-lines (point-min) (point)))))
-       (forward-line 1))
+      (gnus-parse-without-error
+       (while (and (or sequence allp)
+                   (not (eobp)))
+         (setq number (read cur))
+         (when (not allp)
+           (while (and sequence
+                       (< (car sequence) number))
+             (setq sequence (cdr sequence))))
+         (when (and (or allp
+                        (and sequence
+                             (eq number (car sequence))))
+                    (progn
+                      (setq sequence (cdr sequence))
+                      (setq header (inline
+                                     (gnus-nov-parse-line
+                                      number dependencies force-new)))))
+           (push header headers))
+         (forward-line 1)))
        ;; A common bug in inn is that if you have posted an article and
        ;; then retrieves the active file, it will answer correctly --
        ;; the new article is included.  However, a NOV entry for the
        ;; A common bug in inn is that if you have posted an article and
        ;; then retrieves the active file, it will answer correctly --
        ;; the new article is included.  However, a NOV entry for the
@@ -5838,13 +6026,13 @@ displayed, no centering will be performed."
          (marked (gnus-info-marks info))
          (active (gnus-active group)))
      (and info active
          (marked (gnus-info-marks info))
          (active (gnus-active group)))
      (and info active
-        (gnus-set-difference
-         (gnus-sorted-complement
-          (gnus-uncompress-range active)
-          (gnus-list-of-unread-articles group))
-         (append
-          (gnus-uncompress-range (cdr (assq 'dormant marked)))
-          (gnus-uncompress-range (cdr (assq 'tick marked))))))))
+        (gnus-list-range-difference
+         (gnus-list-range-difference
+          (gnus-sorted-complement
+           (gnus-uncompress-range active)
+           (gnus-list-of-unread-articles group))
+          (cdr (assq 'dormant marked)))
+         (cdr (assq 'tick marked))))))
  
  ;; Various summary commands
  
  
  ;; Various summary commands
  
@@ -5918,13 +6106,10 @@ The prefix argument ALL means to select all articles."
         (when gnus-newsgroup-kill-headers
           (setq gnus-newsgroup-killed
                 (gnus-compress-sequence
         (when gnus-newsgroup-kill-headers
           (setq gnus-newsgroup-killed
                 (gnus-compress-sequence
-                (nconc
-                 (gnus-set-sorted-intersection
-                  (gnus-uncompress-range gnus-newsgroup-killed)
-                  (setq gnus-newsgroup-unselected
-                        (sort gnus-newsgroup-unselected '<)))
-                 (setq gnus-newsgroup-unreads
-                       (sort gnus-newsgroup-unreads '<)))
+                (gnus-sorted-union
+                 (gnus-list-range-intersection
+                  gnus-newsgroup-unselected gnus-newsgroup-killed)
+                 gnus-newsgroup-unreads)
                  t)))
         (unless (listp (cdr gnus-newsgroup-killed))
           (setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
                  t)))
         (unless (listp (cdr gnus-newsgroup-killed))
           (setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
@@ -5934,7 +6119,8 @@ The prefix argument ALL means to select all articles."
             (set-buffer gnus-group-buffer)
             (gnus-undo-force-boundary))
           (gnus-update-read-articles
             (set-buffer gnus-group-buffer)
             (gnus-undo-force-boundary))
           (gnus-update-read-articles
-          group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
+          group (gnus-sorted-union
+                 gnus-newsgroup-unreads gnus-newsgroup-unselected))
           ;; Set the current article marks.
           (let ((gnus-newsgroup-scored
                  (if (and (not gnus-save-score)
           ;; Set the current article marks.
           (let ((gnus-newsgroup-scored
                  (if (and (not gnus-save-score)
@@ -6204,17 +6390,20 @@ The state which existed when entering the ephemeral is reset."
         (set-buffer buffer)
         (gnus-kill-buffer gnus-article-buffer)
         (gnus-kill-buffer gnus-original-article-buffer)))
         (set-buffer buffer)
         (gnus-kill-buffer gnus-article-buffer)
         (gnus-kill-buffer gnus-original-article-buffer)))
-    (cond (gnus-kill-summary-on-exit
-          (when (and gnus-use-trees
-                     (gnus-buffer-exists-p buffer))
-            (save-excursion
-              (set-buffer buffer)
-              (gnus-tree-close gnus-newsgroup-name)))
-          (gnus-kill-buffer buffer))
-         ((gnus-buffer-exists-p buffer)
-          (save-excursion
-            (set-buffer buffer)
-            (gnus-deaden-summary))))))
+    (cond
+     ;; Kill the buffer.
+     (gnus-kill-summary-on-exit
+      (when (and gnus-use-trees
+                (gnus-buffer-exists-p buffer))
+       (save-excursion
+         (set-buffer buffer)
+         (gnus-tree-close gnus-newsgroup-name)))
+      (gnus-kill-buffer buffer))
+     ;; Deaden the buffer.
+     ((gnus-buffer-exists-p buffer)
+      (save-excursion
+       (set-buffer buffer)
+       (gnus-deaden-summary))))))
  
  (defun gnus-summary-wake-up-the-dead (&rest args)
    "Wake up the dead summary buffer."
  
  (defun gnus-summary-wake-up-the-dead (&rest args)
    "Wake up the dead summary buffer."
@@ -6340,9 +6529,12 @@ Returns the article selected or nil if there are no unread articles."
                       (and (not (and undownloaded
                                      (eq gnus-undownloaded-mark
                                          (gnus-data-mark (car data)))))
                       (and (not (and undownloaded
                                      (eq gnus-undownloaded-mark
                                          (gnus-data-mark (car data)))))
-                          (not (and unseen
-                                    (memq (car data) gnus-newsgroup-unseen)))
-                          (not (gnus-data-unread-p (car data)))))
+                          (if unseen
+                              (or (not (memq
+                                        (gnus-data-number (car data))
+                                        gnus-newsgroup-unseen))
+                                  (not (gnus-data-unread-p (car data))))
+                            (not (gnus-data-unread-p (car data))))))
             (setq data (cdr data)))
           (when data
             (goto-char (gnus-data-pos (car data)))
             (setq data (cdr data)))
           (when data
             (goto-char (gnus-data-pos (car data)))
@@ -6392,6 +6584,8 @@ If optional argument UNREAD is non-nil, only unread article is selected."
    "Go the subject line of ARTICLE.
  If FORCE, also allow jumping to articles not currently shown."
    (interactive "nArticle number: ")
    "Go the subject line of ARTICLE.
  If FORCE, also allow jumping to articles not currently shown."
    (interactive "nArticle number: ")
+  (unless (numberp article)
+    (error "Article %s is not a number" article))
    (let ((b (point))
         (data (gnus-data-find article)))
      ;; We read in the article if we have to.
    (let ((b (point))
         (data (gnus-data-find article)))
      ;; We read in the article if we have to.
@@ -6428,13 +6622,13 @@ Given a prefix, will force an `article' buffer configuration."
    "Display ARTICLE in article buffer."
    (when (gnus-buffer-live-p gnus-article-buffer)
      (with-current-buffer gnus-article-buffer
    "Display ARTICLE in article buffer."
    (when (gnus-buffer-live-p gnus-article-buffer)
      (with-current-buffer gnus-article-buffer
-      (mm-enable-multibyte-mule4)))
+      (mm-enable-multibyte)))
    (gnus-set-global-variables)
    (when (gnus-buffer-live-p gnus-article-buffer)
      (with-current-buffer gnus-article-buffer
        (setq gnus-article-charset gnus-newsgroup-charset)
        (setq gnus-article-ignored-charsets gnus-newsgroup-ignored-charsets)
    (gnus-set-global-variables)
    (when (gnus-buffer-live-p gnus-article-buffer)
      (with-current-buffer gnus-article-buffer
        (setq gnus-article-charset gnus-newsgroup-charset)
        (setq gnus-article-ignored-charsets gnus-newsgroup-ignored-charsets)
-      (mm-enable-multibyte-mule4)))
+      (mm-enable-multibyte)))
    (if (null article)
        nil
      (prog1
    (if (null article)
        nil
      (prog1
@@ -6481,26 +6675,25 @@ be displayed."
                    (or (null gnus-current-article)
                        (not (eq gnus-current-article article))))
               force)
                    (or (null gnus-current-article)
                        (not (eq gnus-current-article article))))
               force)
-       ;; The requested article is different from the current article.
+         ;; The requested article is different from the current article.
           (progn
             (gnus-summary-display-article article all-headers)
             (when (gnus-buffer-live-p gnus-article-buffer)
               (with-current-buffer gnus-article-buffer
                 (if (not gnus-article-decoded-p) ;; a local variable
           (progn
             (gnus-summary-display-article article all-headers)
             (when (gnus-buffer-live-p gnus-article-buffer)
               (with-current-buffer gnus-article-buffer
                 (if (not gnus-article-decoded-p) ;; a local variable
-                   (mm-disable-multibyte-mule4))))
-           (when (or all-headers gnus-show-all-headers)
-             (gnus-article-show-all-headers))
+                   (mm-disable-multibyte))))
             (gnus-article-set-window-start
              (cdr (assq article gnus-newsgroup-bookmarks)))
             article)
             (gnus-article-set-window-start
              (cdr (assq article gnus-newsgroup-bookmarks)))
             article)
-       (when (or all-headers gnus-show-all-headers)
-         (gnus-article-show-all-headers))
         'old))))
  
  (defun gnus-summary-force-verify-and-decrypt ()
    (interactive)
    (let ((mm-verify-option 'known)
         'old))))
  
  (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)
@@ -6793,6 +6986,19 @@ Return nil if there are no unseen articles."
         (gnus-summary-first-subject t t t))
      (gnus-summary-position-point)))
  
         (gnus-summary-first-subject t t t))
      (gnus-summary-position-point)))
  
+(defun gnus-summary-first-unseen-or-unread-subject ()
+  "Place the point on the subject line of the first unseen article.
+Return nil if there are no unseen articles."
+  (interactive)
+  (prog1
+      (unless (when (gnus-summary-first-subject t t t)
+               (gnus-summary-show-thread)
+               (gnus-summary-first-subject t t t))
+       (when (gnus-summary-first-subject t)
+         (gnus-summary-show-thread)
+         (gnus-summary-first-subject t)))
+    (gnus-summary-position-point)))
+
  (defun gnus-summary-first-article ()
    "Select the first article.
  Return nil if there are no articles."
  (defun gnus-summary-first-article ()
    "Select the first article.
  Return nil if there are no articles."
@@ -6971,10 +7177,10 @@ articles that are younger than AGE days."
         (when (> (length days) 0)
          (setq days (read days)))
         (if (numberp days)
         (when (> (length days) 0)
          (setq days (read days)))
         (if (numberp days)
-          (progn 
+          (progn
              (setq days-got t)
              (if (< days 0)
              (setq days-got t)
              (if (< days 0)
-                (progn 
+                (progn
                    (setq younger (not younger))
                    (setq days (* days -1)))))
          (message "Please enter a number.")
                    (setq younger (not younger))
                    (setq days (* days -1)))))
          (message "Please enter a number.")
@@ -7004,7 +7210,7 @@ articles that are younger than AGE days."
    (interactive
     (let ((header
           (intern
    (interactive
     (let ((header
           (intern
-          (gnus-completing-read
+          (gnus-completing-read-with-default
             (symbol-name (car gnus-extra-headers))
             (if current-prefix-arg
                 "Exclude extra header:"
             (symbol-name (car gnus-extra-headers))
             (if current-prefix-arg
                 "Exclude extra header:"
@@ -7055,7 +7261,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)
@@ -7063,7 +7269,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\").
@@ -7177,15 +7383,17 @@ fetched for this group."
    "Mark all unread excluded articles as read.
  If ALL, mark even excluded ticked and dormants as read."
    (interactive "P")
    "Mark all unread excluded articles as read.
  If ALL, mark even excluded ticked and dormants as read."
    (interactive "P")
-  (let ((articles (gnus-sorted-complement
+  (setq gnus-newsgroup-limit (sort gnus-newsgroup-limit '<))
+  (let ((articles (gnus-sorted-ndifference
                    (sort
                     (mapcar (lambda (h) (mail-header-number h))
                             gnus-newsgroup-headers)
                     '<)
                    (sort
                     (mapcar (lambda (h) (mail-header-number h))
                             gnus-newsgroup-headers)
                     '<)
-                  (sort gnus-newsgroup-limit '<)))
+                  gnus-newsgroup-limit))
         article)
      (setq gnus-newsgroup-unreads
         article)
      (setq gnus-newsgroup-unreads
-         (gnus-intersection gnus-newsgroup-unreads gnus-newsgroup-limit))
+         (gnus-sorted-intersection gnus-newsgroup-unreads
+                                   gnus-newsgroup-limit))
      (if all
         (setq gnus-newsgroup-dormant nil
               gnus-newsgroup-marked nil
      (if all
         (setq gnus-newsgroup-dormant nil
               gnus-newsgroup-marked nil
@@ -7605,8 +7813,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
@@ -7628,8 +7836,11 @@ to guess what the document format is."
                 (gnus-group-read-ephemeral-group
                  name `(nndoc ,name (nndoc-address ,(get-buffer dig))
                               (nndoc-article-type
                 (gnus-group-read-ephemeral-group
                  name `(nndoc ,name (nndoc-address ,(get-buffer dig))
                               (nndoc-article-type
-                              ,(if force 'mbox 'guess))) t))
-           ;; Make all postings to this group go to the parent group.
+                              ,(if force 'mbox 'guess)))
+                t nil nil nil
+                `((adapt-file . ,(gnus-score-file-name gnus-newsgroup-name
+                                                       "ADAPT")))))
+             ;; Make all postings to this group go to the parent group.
               (nconc (gnus-info-params (gnus-get-info name))
                      params)
             ;; Couldn't select this doc group.
               (nconc (gnus-info-params (gnus-get-info name))
                      params)
             ;; Couldn't select this doc group.
@@ -7935,6 +8146,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.
@@ -7969,7 +8181,7 @@ If ARG (the prefix) is a number, show the article with the charset
  defined in `gnus-summary-show-article-charset-alist', or the charset
  input.
  If ARG (the prefix) is non-nil and not a number, show the raw article
  defined in `gnus-summary-show-article-charset-alist', or the charset
  input.
  If ARG (the prefix) is non-nil and not a number, show the raw article
-without any article massaging functions being run.  Normally, the key strokes 
+without any article massaging functions being run.  Normally, the key strokes
  are `C-u g'."
    (interactive "P")
    (cond
  are `C-u g'."
    (interactive "P")
    (cond
@@ -7978,13 +8190,10 @@ are `C-u g'."
      (let ((gnus-newsgroup-charset
            (or (cdr (assq arg gnus-summary-show-article-charset-alist))
                (mm-read-coding-system
      (let ((gnus-newsgroup-charset
            (or (cdr (assq arg gnus-summary-show-article-charset-alist))
                (mm-read-coding-system
-               "View as charset: "
+               "View as charset: " ;; actually it is coding system.
                 (save-excursion
                   (set-buffer gnus-article-buffer)
                 (save-excursion
                   (set-buffer gnus-article-buffer)
-                 (let ((coding-systems
-                        (detect-coding-region (point) (point-max))))
-                   (or (car-safe coding-systems)
-                       coding-systems))))))
+                 (mm-detect-coding-region (point) (point-max))))))
           (gnus-newsgroup-ignored-charsets 'gnus-all))
        (gnus-summary-select-article nil 'force)
        (let ((deps gnus-newsgroup-dependencies)
           (gnus-newsgroup-ignored-charsets 'gnus-all))
        (gnus-summary-select-article nil 'force)
        (let ((deps gnus-newsgroup-dependencies)
@@ -8068,22 +8277,20 @@ If ARG is a negative number, hide the unwanted header lines."
      (save-restriction
        (let* ((buffer-read-only nil)
              (inhibit-point-motion-hooks t)
      (save-restriction
        (let* ((buffer-read-only nil)
              (inhibit-point-motion-hooks t)
-            hidden e)
-       (setq hidden
-             (if (numberp arg)
-                 (>= arg 0)
-               (save-restriction
-                 (article-narrow-to-head)
-                 (gnus-article-hidden-text-p 'headers))))
-       (goto-char (point-min))
-       (when (search-forward "\n\n" nil t)
-         (delete-region (point-min) (1- (point))))
+            hidden s 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))
         (goto-char (point-min))
-       (save-excursion
-         (set-buffer gnus-original-article-buffer)
-         (goto-char (point-min))
-         (setq e (1- (or (search-forward "\n\n" nil t) (point-max)))))
-       (insert-buffer-substring gnus-original-article-buffer 1 e)
+       (with-current-buffer gnus-original-article-buffer
+         (goto-char (setq s (point-min)))
+         (setq e (search-forward "\n\n" nil t)
+               e (if e (1- e) (point-max))))
+       (insert-buffer-substring gnus-original-article-buffer s e)
         (save-restriction
           (narrow-to-region (point-min) (point))
           (article-decode-encoded-words)
         (save-restriction
           (narrow-to-region (point-min) (point))
           (article-decode-encoded-words)
@@ -8138,6 +8345,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.
@@ -8168,14 +8379,21 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
         art-group to-method new-xref article to-groups)
      (unless (assq action names)
        (error "Unknown action %s" action))
         art-group to-method new-xref article to-groups)
      (unless (assq action names)
        (error "Unknown action %s" action))
-    ;; We have to select an article to give
-    ;; `gnus-read-move-group-name' an opportunity to suggest an
-    ;; appropriate default.
-    (unless (gnus-buffer-live-p gnus-original-article-buffer)
-      (gnus-summary-select-article nil nil nil (car articles)))
      ;; Read the newsgroup name.
      (when (and (not to-newsgroup)
                (not select-method))
      ;; Read the newsgroup name.
      (when (and (not to-newsgroup)
                (not select-method))
+      (if (and gnus-move-split-methods
+              (not
+               (and (memq gnus-current-article articles)
+                    (gnus-buffer-live-p gnus-original-article-buffer))))
+         ;; When `gnus-move-split-methods' is non-nil, we have to
+         ;; select an article to give `gnus-read-move-group-name' an
+         ;; opportunity to suggest an appropriate default.  However,
+         ;; we needn't render or mark the article.
+         (let ((gnus-display-mime-function nil)
+               (gnus-article-prepare-hook nil)
+               (gnus-mark-article-hook nil))
+           (gnus-summary-select-article nil nil nil (car articles))))
        (setq to-newsgroup
             (gnus-read-move-group-name
              (cadr (assq action names))
        (setq to-newsgroup
             (gnus-read-move-group-name
              (cadr (assq action names))
@@ -8359,6 +8577,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")
@@ -8397,7 +8618,7 @@ latter case, they will be copied into the relevant groups."
                                   (car (gnus-find-method-for-group
                                         gnus-newsgroup-name)))))
                 (method
                                   (car (gnus-find-method-for-group
                                         gnus-newsgroup-name)))))
                 (method
-                (gnus-completing-read
+                (gnus-completing-read-with-default
                   methname "What backend do you want to use when respooling?"
                   methods nil t nil 'gnus-mail-method-history))
                 ms)
                   methname "What backend do you want to use when respooling?"
                   methods nil t nil 'gnus-mail-method-history))
                 ms)
@@ -8543,12 +8764,10 @@ This will be the case if the article has both been mailed and posted."
           ;; really expired articles as nonexistent.
           (unless (eq es expirable) ;If nothing was expired, we don't mark.
             (let ((gnus-use-cache nil))
           ;; really expired articles as nonexistent.
           (unless (eq es expirable) ;If nothing was expired, we don't mark.
             (let ((gnus-use-cache nil))
-             (while expirable
-               (unless (memq (car expirable) es)
-                 (when (gnus-data-find (car expirable))
-                   (gnus-summary-mark-article
-                    (car expirable) gnus-canceled-mark)))
-               (setq expirable (cdr expirable))))))
+             (dolist (article expirable)
+               (when (and (not (memq article es))
+                          (gnus-data-find article))
+                 (gnus-summary-mark-article article gnus-canceled-mark))))))
         (gnus-message 6 "Expiring articles...done")))))
  
  (defun gnus-summary-expire-articles-now ()
         (gnus-message 6 "Expiring articles...done")))))
  
  (defun gnus-summary-expire-articles-now ()
@@ -8616,18 +8835,22 @@ groups."
    (let (force raw current-handles)
      (cond
       ((null arg))
    (let (force raw current-handles)
      (cond
       ((null arg))
-     ((eq arg 1) (setq raw t))
-     ((eq arg 2) (setq raw t
-                      force t))
-     ((eq arg 3) (setq current-handles
-                      (and (gnus-buffer-live-p gnus-article-buffer)
-                           (with-current-buffer gnus-article-buffer
-                             (prog1
-                                 gnus-article-mime-handles
-                               (setq gnus-article-mime-handles nil))))))
-     (t (setq force t)))
-    (if (and raw (not force) (equal gnus-newsgroup-name "nndraft:drafts"))
-       (error "Can't edit the raw article in group nndraft:drafts"))
+     ((eq arg 1)
+      (setq raw t))
+     ((eq arg 2)
+      (setq raw t
+           force t))
+     ((eq arg 3)
+      (setq current-handles
+           (and (gnus-buffer-live-p gnus-article-buffer)
+                (with-current-buffer gnus-article-buffer
+                  (prog1
+                      gnus-article-mime-handles
+                    (setq gnus-article-mime-handles nil))))))
+     (t
+      (setq force t)))
+    (when (and raw (not force) (equal gnus-newsgroup-name "nndraft:drafts"))
+      (error "Can't edit the raw article in group nndraft:drafts"))
      (save-excursion
        (set-buffer gnus-summary-buffer)
        (let ((mail-parse-charset gnus-newsgroup-charset)
      (save-excursion
        (set-buffer gnus-summary-buffer)
        (let ((mail-parse-charset gnus-newsgroup-charset)
@@ -8639,7 +8862,7 @@ groups."
         (gnus-summary-show-article t)
         (when (and (not raw) (gnus-buffer-live-p gnus-article-buffer))
           (with-current-buffer gnus-article-buffer
         (gnus-summary-show-article t)
         (when (and (not raw) (gnus-buffer-live-p gnus-article-buffer))
           (with-current-buffer gnus-article-buffer
-           (mm-enable-multibyte-mule4)))
+           (mm-enable-multibyte)))
         (if (equal gnus-newsgroup-name "nndraft:drafts")
             (setq raw t))
         (gnus-article-edit-article
         (if (equal gnus-newsgroup-name "nndraft:drafts")
             (setq raw t))
         (gnus-article-edit-article
@@ -8724,10 +8947,7 @@ groups."
                     (insert ".\n")
                     (let ((nntp-server-buffer (current-buffer)))
                       (setq header (car (gnus-get-newsgroup-headers
                     (insert ".\n")
                     (let ((nntp-server-buffer (current-buffer)))
                       (setq header (car (gnus-get-newsgroup-headers
-                                        (save-excursion
-                                          (set-buffer gnus-summary-buffer)
-                                          gnus-newsgroup-dependencies)
-                                        t))))
+                                        nil t))))
                     (save-excursion
                       (set-buffer gnus-summary-buffer)
                       (gnus-data-set-header
                     (save-excursion
                       (set-buffer gnus-summary-buffer)
                       (gnus-data-set-header
@@ -8926,6 +9146,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."
@@ -9091,11 +9318,17 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
         (setq gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable))
         (setq gnus-newsgroup-reads (delq article gnus-newsgroup-reads))
         (cond ((= mark gnus-ticked-mark)
         (setq gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable))
         (setq gnus-newsgroup-reads (delq article gnus-newsgroup-reads))
         (cond ((= mark gnus-ticked-mark)
-              (push article gnus-newsgroup-marked))
+              (setq gnus-newsgroup-marked
+                    (gnus-add-to-sorted-list gnus-newsgroup-marked
+                                             article)))
               ((= mark gnus-dormant-mark)
               ((= mark gnus-dormant-mark)
-              (push article gnus-newsgroup-dormant))
+              (setq gnus-newsgroup-dormant
+                    (gnus-add-to-sorted-list gnus-newsgroup-dormant
+                                             article)))
               (t
               (t
-              (push article gnus-newsgroup-unreads)))
+              (setq gnus-newsgroup-unreads
+                    (gnus-add-to-sorted-list gnus-newsgroup-unreads
+                                             article))))
         (gnus-pull article gnus-newsgroup-reads)
  
         ;; See whether the article is to be put in the cache.
         (gnus-pull article gnus-newsgroup-reads)
  
         ;; See whether the article is to be put in the cache.
@@ -9205,9 +9438,10 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
    "Enter ARTICLE in the pertinent lists and remove it from others."
    ;; Make the article expirable.
    (let ((mark (or mark gnus-del-mark)))
    "Enter ARTICLE in the pertinent lists and remove it from others."
    ;; Make the article expirable.
    (let ((mark (or mark gnus-del-mark)))
-    (if (= mark gnus-expirable-mark)
-       (push article gnus-newsgroup-expirable)
-      (setq gnus-newsgroup-expirable (delq article gnus-newsgroup-expirable)))
+    (setq gnus-newsgroup-expirable
+         (if (= mark gnus-expirable-mark)
+             (gnus-add-to-sorted-list gnus-newsgroup-expirable article)
+           (delq article gnus-newsgroup-expirable)))
      ;; 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))
@@ -9235,11 +9469,14 @@ Iff NO-EXPIRE, auto-expiry will be inhibited."
         (gnus-dup-unsuppress-article article))
  
        (cond ((= mark gnus-ticked-mark)
         (gnus-dup-unsuppress-article article))
  
        (cond ((= mark gnus-ticked-mark)
-            (push article gnus-newsgroup-marked))
+            (setq gnus-newsgroup-marked
+                  (gnus-add-to-sorted-list gnus-newsgroup-marked article)))
             ((= mark gnus-dormant-mark)
             ((= mark gnus-dormant-mark)
-            (push article gnus-newsgroup-dormant))
+            (setq gnus-newsgroup-dormant
+                  (gnus-add-to-sorted-list gnus-newsgroup-dormant article)))
             (t
             (t
-            (push article gnus-newsgroup-unreads)))
+            (setq gnus-newsgroup-unreads
+                  (gnus-add-to-sorted-list gnus-newsgroup-unreads article))))
        (gnus-pull article gnus-newsgroup-reads)
        t)))
  
        (gnus-pull article gnus-newsgroup-reads)
        t)))
  
@@ -10140,23 +10377,26 @@ save those articles instead."
          (to-newsgroup
           (cond
            ((null split-name)
          (to-newsgroup
           (cond
            ((null split-name)
-           (gnus-completing-read default prom
-                                 gnus-active-hashtb
-                                 'gnus-valid-move-group-p
-                                 nil prefix
-                                 'gnus-group-history))
+           (gnus-completing-read-with-default
+            default prom
+            gnus-active-hashtb
+            'gnus-valid-move-group-p
+            nil prefix
+            'gnus-group-history))
            ((= 1 (length split-name))
            ((= 1 (length split-name))
-           (gnus-completing-read (car split-name) prom
-                                 gnus-active-hashtb
-                                 'gnus-valid-move-group-p
-                                 nil nil
-                                 'gnus-group-history))
+           (gnus-completing-read-with-default
+            (car split-name) prom
+            gnus-active-hashtb
+            'gnus-valid-move-group-p
+            nil nil
+            'gnus-group-history))
            (t
            (t
-           (gnus-completing-read nil prom
-                                 (mapcar (lambda (el) (list el))
-                                         (nreverse split-name))
-                                 nil nil nil
-                                 'gnus-group-history))))
+           (gnus-completing-read-with-default
+            nil prom
+            (mapcar (lambda (el) (list el))
+                    (nreverse split-name))
+            nil nil nil
+            'gnus-group-history))))
          (to-method (gnus-server-to-method (gnus-group-method to-newsgroup))))
      (when to-newsgroup
        (if (or (string= to-newsgroup "")
          (to-method (gnus-server-to-method (gnus-group-method to-newsgroup))))
      (when to-newsgroup
        (if (or (string= to-newsgroup "")
@@ -10196,7 +10436,8 @@ If REVERSE, save parts that do not match TYPE."
      (save-excursion
        (set-buffer gnus-article-buffer)
        (let ((handles (or gnus-article-mime-handles
      (save-excursion
        (set-buffer gnus-article-buffer)
        (let ((handles (or gnus-article-mime-handles
-                        (mm-dissect-buffer) (mm-uu-dissect))))
+                        (mm-dissect-buffer nil gnus-article-loose-mime)
+                        (mm-uu-dissect))))
         (when handles
           (gnus-summary-save-parts-1 type dir handles reverse)
           (unless gnus-article-mime-handles ;; Don't destroy this case.
         (when handles
           (gnus-summary-save-parts-1 type dir handles reverse)
           (unless gnus-article-mime-handles ;; Don't destroy this case.
@@ -10283,7 +10524,9 @@ If REVERSE, save parts that do not match TYPE."
           (gnus-data-enter
            after-article gnus-reffed-article-number
            gnus-unread-mark b (car pslist) 0 (- e b))
           (gnus-data-enter
            after-article gnus-reffed-article-number
            gnus-unread-mark b (car pslist) 0 (- e b))
-         (push gnus-reffed-article-number gnus-newsgroup-unreads)
+         (setq gnus-newsgroup-unreads
+               (gnus-add-to-sorted-list gnus-newsgroup-unreads
+                                        gnus-reffed-article-number))
           (setq gnus-reffed-article-number (1- gnus-reffed-article-number))
           (setq pslist (cdr pslist)))))))
  
           (setq gnus-reffed-article-number (1- gnus-reffed-article-number))
           (setq pslist (cdr pslist)))))))
  
@@ -10446,39 +10689,35 @@ If REVERSE, save parts that do not match TYPE."
  (defun gnus-summary-highlight-line ()
    "Highlight current line according to `gnus-summary-highlight'."
    (let* ((list 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)))
+        (beg (gnus-point-at-bol))
          (article (gnus-summary-article-number))
          (score (or (cdr (assq (or article gnus-current-article)
                                gnus-newsgroup-scored))
                     gnus-summary-default-score 0))
          (mark (or (gnus-summary-article-mark) gnus-unread-mark))
          (article (gnus-summary-article-number))
          (score (or (cdr (assq (or article gnus-current-article)
                                gnus-newsgroup-scored))
                     gnus-summary-default-score 0))
          (mark (or (gnus-summary-article-mark) gnus-unread-mark))
-        (inhibit-read-only t))
+        (inhibit-read-only t)
+        (default gnus-summary-default-score)
+        (default-high gnus-summary-default-high-score)
+        (default-low gnus-summary-default-low-score))
      ;; Eval the cars of the lists until we find a match.
      ;; 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))))
+    (while (and list
+               (not (eval (caar list))))
+      (setq list (cdr list)))
      (let ((face (cdar list)))
        (unless (eq face (get-text-property beg 'face))
         (gnus-put-text-property-excluding-characters-with-faces
      (let ((face (cdar list)))
        (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)
  
  (defun gnus-update-read-articles (group unread &optional compute)
-  "Update the list of read articles in GROUP."
+  "Update the list of read articles in GROUP.
+UNREAD is a sorted list."
    (let* ((active (or gnus-newsgroup-active (gnus-active group)))
          (entry (gnus-gethash group gnus-newsrc-hashtb))
          (info (nth 2 entry))
          (prev 1)
    (let* ((active (or gnus-newsgroup-active (gnus-active group)))
          (entry (gnus-gethash group gnus-newsrc-hashtb))
          (info (nth 2 entry))
          (prev 1)
-        (unread (sort (copy-sequence unread) '<))
          read)
      (if (or (not info) (not active))
         ;; There is no info on this group if it was, in fact,
          read)
      (if (or (not info) (not active))
         ;; There is no info on this group if it was, in fact,
@@ -10707,9 +10946,10 @@ returned."
  
  (defun gnus-summary-insert-articles (articles)
    (when (setq articles
  
  (defun gnus-summary-insert-articles (articles)
    (when (setq articles
-             (gnus-set-difference articles
-                                  (mapcar (lambda (h) (mail-header-number h))
-                                          gnus-newsgroup-headers)))
+             (gnus-sorted-difference articles
+                                     (mapcar (lambda (h)
+                                               (mail-header-number h))
+                                             gnus-newsgroup-headers)))
      (setq gnus-newsgroup-headers
           (merge 'list
                  gnus-newsgroup-headers
      (setq gnus-newsgroup-headers
           (merge 'list
                  gnus-newsgroup-headers
@@ -10747,44 +10987,51 @@ If ALL is non-nil, already read articles become readable.
  If ALL is a number, fetch this number of articles."
    (interactive "P")
    (prog1
  If ALL is a number, fetch this number of articles."
    (interactive "P")
    (prog1
-      (let ((old (mapcar 'car gnus-newsgroup-data))
-           (i (car gnus-newsgroup-active))
+      (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
             older len)
             older len)
-       (while (<= i (cdr gnus-newsgroup-active))
-         (or (memq i old) (push i older))
-         (incf i))
+       (setq older
+             (gnus-sorted-difference
+              (gnus-uncompress-range (list gnus-newsgroup-active))
+              old))
         (setq len (length older))
         (cond
          ((null older) nil)
          ((numberp all)
           (if (< all len)
         (setq len (length older))
         (cond
          ((null older) nil)
          ((numberp all)
           (if (< all len)
-             (setq older (subseq older 0 all))))
+             (setq older (last older all))))
          (all nil)
          (t
           (if (and (numberp gnus-large-newsgroup)
                    (> len gnus-large-newsgroup))
          (all nil)
          (t
           (if (and (numberp gnus-large-newsgroup)
                    (> len gnus-large-newsgroup))
-             (let ((input
-                    (read-string
-                     (format
-                      "How many articles from %s (default %d): "
-                      (gnus-limit-string
-                       (gnus-group-decoded-name gnus-newsgroup-name) 35)
-                      len))))
+             (let* ((cursor-in-echo-area nil)
+                    (initial (gnus-parameter-large-newsgroup-initial 
+                              gnus-newsgroup-name))
+                    (input
+                     (read-string
+                      (format
+                       "How many articles from %s (%s %d): "
+                       (gnus-limit-string
+                        (gnus-group-decoded-name gnus-newsgroup-name) 35)
+                       (if initial "max" "default")
+                       len)
+                      (if initial
+                          (cons (number-to-string initial)
+                                0)))))
                 (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 (subseq older 0 all))))))))
+                     (setq older (last older all))))))))
         (if (not older)
             (message "No old news.")
           (gnus-summary-insert-articles older)
         (if (not older)
             (message "No old news.")
           (gnus-summary-insert-articles older)
-         (gnus-summary-limit (gnus-union older old))))
+         (gnus-summary-limit (gnus-sorted-nunion old older))))
      (gnus-summary-position-point)))
  
  (defun gnus-summary-insert-new-articles ()
    "Insert all new articles in this group."
    (interactive)
    (prog1
      (gnus-summary-position-point)))
  
  (defun gnus-summary-insert-new-articles ()
    "Insert all new articles in this group."
    (interactive)
    (prog1
-      (let ((old (mapcar 'car gnus-newsgroup-data))
+      (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
             (old-active gnus-newsgroup-active)
             (nnmail-fetched-sources (list t))
             i new)
             (old-active gnus-newsgroup-active)
             (nnmail-fetched-sources (list t))
             i new)
@@ -10799,8 +11046,8 @@ If ALL is a number, fetch this number of articles."
           (setq new (nreverse new))
           (gnus-summary-insert-articles new)
           (setq gnus-newsgroup-unreads
           (setq new (nreverse new))
           (gnus-summary-insert-articles new)
           (setq gnus-newsgroup-unreads
-               (append gnus-newsgroup-unreads new))
-         (gnus-summary-limit (gnus-union old new))))
+               (gnus-sorted-nunion gnus-newsgroup-unreads new))
+         (gnus-summary-limit (gnus-sorted-nunion old new))))
      (gnus-summary-position-point)))
  
  (gnus-summary-make-all-marking-commands)
      (gnus-summary-position-point)))
  
  (gnus-summary-make-all-marking-commands)