Importing Pterodactyl Gnus v0.80.

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

index ebc08c0..9a8a28c 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1,5 +1,5 @@
  ;;; gnus-sum.el --- summary mode commands for Gnus
  ;;; gnus-sum.el --- summary mode commands for Gnus
-;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;; Keywords: news
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;; Keywords: news
@@ -34,6 +34,7 @@
  (require 'gnus-int)
  (require 'gnus-undo)
  (require 'gnus-util)
  (require 'gnus-int)
  (require 'gnus-undo)
  (require 'gnus-util)
+(require 'mm-decode)
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  
  (defcustom gnus-kill-summary-on-exit t
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  
  (defcustom gnus-kill-summary-on-exit t
@@ -252,8 +253,12 @@ equal will be included."
  (defcustom gnus-auto-select-first t
    "*If nil, don't select the first unread article when entering a group.
  If this variable is `best', select the highest-scored unread article
  (defcustom gnus-auto-select-first t
    "*If nil, don't select the first unread article when entering a group.
  If this variable is `best', select the highest-scored unread article
-in the group.  If neither nil nor `best', select the first unread
-article.
+in the group.  If t, select the first unread article.
+
+This variable can also be a function to place point on a likely
+subject line.  Useful values include `gnus-summary-first-unread-subject',
+`gnus-summary-first-unread-article' and
+`gnus-summary-best-unread-article'.
  
  If you want to prevent automatic selection of the first unread article
  in some newsgroups, set the variable to nil in
  
  If you want to prevent automatic selection of the first unread article
  in some newsgroups, set the variable to nil in
@@ -261,7 +266,10 @@ in some newsgroups, set the variable to nil in
    :group 'gnus-group-select
    :type '(choice (const :tag "none" nil)
                  (const best)
    :group 'gnus-group-select
    :type '(choice (const :tag "none" nil)
                  (const best)
-                (sexp :menu-tag "first" t)))
+                (sexp :menu-tag "first" t)
+                (function-item gnus-summary-first-unread-subject)
+                (function-item gnus-summary-first-unread-article)
+                (function-item gnus-summary-best-unread-article)))
  
  (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.
@@ -302,6 +310,7 @@ and non-`vertical', do both horizontal and vertical recentering."
    :group 'gnus-summary-maneuvering
    :type '(choice (const :tag "none" nil)
                  (const vertical)
    :group 'gnus-summary-maneuvering
    :type '(choice (const :tag "none" nil)
                  (const vertical)
+                (integer :tag "height")
                  (sexp :menu-tag "both" t)))
  
  (defcustom gnus-show-all-headers nil
                  (sexp :menu-tag "both" t)))
  
  (defcustom gnus-show-all-headers nil
@@ -314,7 +323,7 @@ and non-`vertical', do both horizontal and vertical recentering."
    "*If non-nil, ignore articles with identical Message-ID headers."
    :group 'gnus-summary
    :type 'boolean)
    "*If non-nil, ignore articles with identical Message-ID headers."
    :group 'gnus-summary
    :type 'boolean)
-  
+
  (defcustom gnus-single-article-buffer t
    "*If non-nil, display all articles in the same buffer.
  If nil, each group will get its own article buffer."
  (defcustom gnus-single-article-buffer t
    "*If non-nil, display all articles in the same buffer.
  If nil, each group will get its own article buffer."
@@ -336,7 +345,7 @@ It uses the same syntax as the `gnus-split-methods' variable."
                          (cons :value ("" "") regexp (repeat string))
                          (sexp :value nil))))
  
                          (cons :value ("" "") regexp (repeat string))
                          (sexp :value nil))))
  
-(defcustom gnus-unread-mark ? 
+(defcustom gnus-unread-mark ? ;Whitespace
    "*Mark used for unread articles."
    :group 'gnus-summary-marks
    :type 'character)
    "*Mark used for unread articles."
    :group 'gnus-summary-marks
    :type 'character)
@@ -451,7 +460,7 @@ It uses the same syntax as the `gnus-split-methods' variable."
    :group 'gnus-summary-marks
    :type 'character)
  
    :group 'gnus-summary-marks
    :type 'character)
  
-(defcustom gnus-empty-thread-mark ? 
+(defcustom gnus-empty-thread-mark ? ;Whitespace
    "*There is no thread under the article."
    :group 'gnus-summary-marks
    :type 'character)
    "*There is no thread under the article."
    :group 'gnus-summary-marks
    :type 'character)
@@ -466,6 +475,19 @@ It uses the same syntax as the `gnus-split-methods' variable."
    :group 'gnus-extract-view
    :type 'boolean)
  
    :group 'gnus-extract-view
    :type 'boolean)
  
+(defcustom gnus-auto-expirable-marks
+  (list 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."
+  :group 'gnus-summary
+  :type '(repeat character))
+
+(defcustom gnus-inhibit-user-auto-expire t
+  "*If non-nil, user marking commands will not mark an article as expirable, even if the group has auto-expire turned on."
+  :group 'gnus-summary
+  :type 'boolean)
+
  (defcustom gnus-view-pseudos nil
    "*If `automatic', pseudo-articles will be viewed automatically.
  If `not-confirm', pseudos will be viewed automatically, and the user
  (defcustom gnus-view-pseudos nil
    "*If `automatic', pseudo-articles will be viewed automatically.
  If `not-confirm', pseudos will be viewed automatically, and the user
@@ -584,7 +606,7 @@ See `gnus-thread-score-function' for en explanation of what a
  \"thread score\" is.
  
  This variable is local to the summary buffers."
  \"thread score\" is.
  
  This variable is local to the summary buffers."
-  :group 'gnus-treading
+  :group 'gnus-threading
    :group 'gnus-score-default
    :type '(choice (const :tag "off" nil)
                  integer))
    :group 'gnus-score-default
    :type '(choice (const :tag "off" nil)
                  integer))
@@ -761,10 +783,49 @@ mark:    The articles mark."
  The function is called with one parameter, the article header vector,
  which it may alter in any way.")
  
  The function is called with one parameter, the article header vector,
  which it may alter in any way.")
  
+(defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string
+  "Variable that says which function should be used to decode a string with encoded words.")
+
+(defcustom gnus-extra-headers nil
+  "*Extra headers to parse."
+  :group 'gnus-summary
+  :type '(repeat symbol))
+
+(defcustom gnus-ignored-from-addresses
+  (and user-mail-address (regexp-quote user-mail-address))
+  "*Regexp of From headers that may be suppressed in favor of To headers."
+  :group 'gnus-summary
+  :type 'regexp)
+
+(defcustom gnus-group-charset-alist
+  '(("^hk\\>\\|^tw\\>\\|\\<big5\\>" cn-big5)
+    ("^cn\\>\\|\\<chinese\\>" cn-gb-2312)
+    ("^fj\\>\\|^japan\\>" iso-2022-jp-2)
+    ("^relcom\\>" koi8-r)
+    ("^\\(cz\\|hun\\|pl\\|sk\\)\\>" iso-8859-2)
+    ("^israel\\>" iso-8859-1)
+    ("^han\\>" euc-kr)
+    ("^\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1)
+    (".*" iso-8859-1))
+  "Alist of regexps (to match group names) and default charsets to be used when reading."
+  :type '(repeat (list (regexp :tag "Group")
+                      (symbol :tag "Charset")))
+  :group 'gnus-charset)
+
+(defcustom gnus-newsgroup-ignored-charsets '(unknown-8bit)
+  "List of charsets that should be ignored.
+When these charsets are used in the \"charset\" parameter, the
+default charset will be used instead."
+  :type '(repeat symbol)
+  :group 'gnus-charset)
+
  ;;; Internal variables
  
  ;;; Internal variables
  
+(defvar gnus-article-mime-handles nil)
+(defvar gnus-article-decoded-p nil)
  (defvar gnus-scores-exclude-files nil)
  (defvar gnus-page-broken nil)
  (defvar gnus-scores-exclude-files nil)
  (defvar gnus-page-broken nil)
+(defvar gnus-inhibit-mime-unbuttonizing nil)
  
  (defvar gnus-original-article nil)
  (defvar gnus-article-internal-prepare-hook nil)
  
  (defvar gnus-original-article nil)
  (defvar gnus-article-internal-prepare-hook nil)
@@ -819,6 +880,7 @@ which it may alter in any way.")
      (?l (bbb-grouplens-score gnus-tmp-header) ?s)
      (?V (gnus-thread-total-score (and (boundp 'thread) (car thread))) ?d)
      (?U gnus-tmp-unread ?c)
      (?l (bbb-grouplens-score gnus-tmp-header) ?s)
      (?V (gnus-thread-total-score (and (boundp 'thread) (car thread))) ?d)
      (?U gnus-tmp-unread ?c)
+    (?f (gnus-summary-from-or-to-or-newsgroups gnus-tmp-header) ?s)
      (?t (gnus-summary-number-of-articles-in-thread
          (and (boundp 'thread) (car thread)) gnus-tmp-level)
         ?d)
      (?t (gnus-summary-number-of-articles-in-thread
          (and (boundp 'thread) (car thread)) gnus-tmp-level)
         ?d)
@@ -945,6 +1007,7 @@ variable (string, integer, character, etc).")
  (defvar gnus-have-all-headers nil)
  (defvar gnus-last-article nil)
  (defvar gnus-newsgroup-history nil)
  (defvar gnus-have-all-headers nil)
  (defvar gnus-last-article nil)
  (defvar gnus-newsgroup-history nil)
+(defvar gnus-newsgroup-charset nil)
  
  (defconst gnus-summary-local-variables
    '(gnus-newsgroup-name
  
  (defconst gnus-summary-local-variables
    '(gnus-newsgroup-name
@@ -976,12 +1039,52 @@ variable (string, integer, character, etc).")
      (gnus-newsgroup-expunged-tally . 0)
      gnus-cache-removable-articles gnus-newsgroup-cached
      gnus-newsgroup-data gnus-newsgroup-data-reverse
      (gnus-newsgroup-expunged-tally . 0)
      gnus-cache-removable-articles gnus-newsgroup-cached
      gnus-newsgroup-data gnus-newsgroup-data-reverse
-    gnus-newsgroup-limit gnus-newsgroup-limits)
+    gnus-newsgroup-limit gnus-newsgroup-limits
+    gnus-newsgroup-charset)
    "Variables that are buffer-local to the summary buffers.")
  
  ;; Byte-compiler warning.
  (defvar gnus-article-mode-map)
  
    "Variables that are buffer-local to the summary buffers.")
  
  ;; Byte-compiler warning.
  (defvar gnus-article-mode-map)
  
+;; MIME stuff.
+
+(defvar gnus-decode-encoded-word-methods
+  '(mail-decode-encoded-word-string)
+  "List of methods used to decode encoded words.
+
+This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item is
+FUNCTION, FUNCTION will be apply to all newsgroups. If item is a
+(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups
+whose names match REGEXP.
+
+For example:
+((\"chinese\" . gnus-decode-encoded-word-string-by-guess)
+ mail-decode-encoded-word-string
+ (\"chinese\" . rfc1843-decode-string))
+")
+
+(defvar gnus-decode-encoded-word-methods-cache nil)
+
+(defun gnus-multi-decode-encoded-word-string (string)
+  "Apply the functions from `gnus-encoded-word-methods' that match."
+  (unless (and gnus-decode-encoded-word-methods-cache
+              (eq gnus-newsgroup-name
+                  (car gnus-decode-encoded-word-methods-cache)))
+    (setq gnus-decode-encoded-word-methods-cache (list gnus-newsgroup-name))
+    (mapc '(lambda (x)
+            (if (symbolp x)
+                (nconc gnus-decode-encoded-word-methods-cache (list x))
+              (if (and gnus-newsgroup-name
+                       (string-match (car x) gnus-newsgroup-name))
+                  (nconc gnus-decode-encoded-word-methods-cache
+                         (list (cdr x))))))
+         gnus-decode-encoded-word-methods))
+  (let ((xlist gnus-decode-encoded-word-methods-cache))
+    (pop xlist)
+    (while xlist
+      (setq string (funcall (pop xlist) string))))
+  string)
+
  ;; Subject simplification.
  
  (defun gnus-simplify-whitespace (str)
  ;; Subject simplification.
  
  (defun gnus-simplify-whitespace (str)
@@ -1172,6 +1275,7 @@ increase the score of each group you read."
      "\C-c\M-\C-s" gnus-summary-limit-include-expunged
      "\C-c\C-s\C-n" gnus-summary-sort-by-number
      "\C-c\C-s\C-l" gnus-summary-sort-by-lines
      "\C-c\M-\C-s" gnus-summary-limit-include-expunged
      "\C-c\C-s\C-n" gnus-summary-sort-by-number
      "\C-c\C-s\C-l" gnus-summary-sort-by-lines
+    "\C-c\C-s\C-c" gnus-summary-sort-by-chars
      "\C-c\C-s\C-a" gnus-summary-sort-by-author
      "\C-c\C-s\C-s" gnus-summary-sort-by-subject
      "\C-c\C-s\C-d" gnus-summary-sort-by-date
      "\C-c\C-s\C-a" gnus-summary-sort-by-author
      "\C-c\C-s\C-s" gnus-summary-sort-by-subject
      "\C-c\C-s\C-d" gnus-summary-sort-by-date
@@ -1202,13 +1306,14 @@ increase the score of each group you read."
      "a" gnus-summary-post-news
      "x" gnus-summary-limit-to-unread
      "s" gnus-summary-isearch-article
      "a" gnus-summary-post-news
      "x" gnus-summary-limit-to-unread
      "s" gnus-summary-isearch-article
-    "t" gnus-article-hide-headers
+    "t" gnus-summary-toggle-header
      "g" gnus-summary-show-article
      "l" gnus-summary-goto-last-article
      "\C-c\C-v\C-v" gnus-uu-decode-uu-view
      "\C-d" gnus-summary-enter-digest-group
      "\M-\C-d" gnus-summary-read-document
      "\M-\C-e" gnus-summary-edit-parameters
      "g" gnus-summary-show-article
      "l" gnus-summary-goto-last-article
      "\C-c\C-v\C-v" gnus-uu-decode-uu-view
      "\C-d" gnus-summary-enter-digest-group
      "\M-\C-d" gnus-summary-read-document
      "\M-\C-e" gnus-summary-edit-parameters
+    "\M-\C-g" gnus-summary-customize-parameters
      "\C-c\C-b" gnus-bug
      "*" gnus-cache-enter-article
      "\M-*" gnus-cache-remove-article
      "\C-c\C-b" gnus-bug
      "*" gnus-cache-enter-article
      "\M-*" gnus-cache-remove-article
@@ -1218,7 +1323,10 @@ increase the score of each group you read."
      "L" gnus-summary-lower-score
      "\M-i" gnus-symbolic-argument
      "h" gnus-summary-select-article-buffer
      "L" gnus-summary-lower-score
      "\M-i" gnus-symbolic-argument
      "h" gnus-summary-select-article-buffer
-    
+
+    "b" gnus-article-view-part
+    "\M-t" gnus-summary-toggle-display-buttonized
+
      "V" gnus-summary-score-map
      "X" gnus-uu-extract-map
      "S" gnus-summary-send-map)
      "V" gnus-summary-score-map
      "X" gnus-uu-extract-map
      "S" gnus-summary-send-map)
@@ -1260,6 +1368,7 @@ increase the score of each group you read."
      "a" gnus-summary-limit-to-author
      "u" gnus-summary-limit-to-unread
      "m" gnus-summary-limit-to-marks
      "a" gnus-summary-limit-to-author
      "u" gnus-summary-limit-to-unread
      "m" gnus-summary-limit-to-marks
+    "M" gnus-summary-limit-exclude-marks
      "v" gnus-summary-limit-to-score
      "*" gnus-summary-limit-include-cached
      "D" gnus-summary-limit-include-dormant
      "v" gnus-summary-limit-to-score
      "*" gnus-summary-limit-include-cached
      "D" gnus-summary-limit-include-dormant
@@ -1348,6 +1457,8 @@ increase the score of each group you read."
      "o" gnus-article-treat-overstrike
      "e" gnus-article-emphasize
      "w" gnus-article-fill-cited-article
      "o" gnus-article-treat-overstrike
      "e" gnus-article-emphasize
      "w" gnus-article-fill-cited-article
+    "Q" gnus-article-fill-long-lines
+    "C" gnus-article-capitalize-sentences
      "c" gnus-article-remove-cr
      "q" gnus-article-de-quoted-unreadable
      "f" gnus-article-display-x-face
      "c" gnus-article-remove-cr
      "q" gnus-article-de-quoted-unreadable
      "f" gnus-article-display-x-face
@@ -1366,6 +1477,7 @@ increase the score of each group you read."
      "c" gnus-article-hide-citation
      "C" gnus-article-hide-citation-in-followups
      "p" gnus-article-hide-pgp
      "c" gnus-article-hide-citation
      "C" gnus-article-hide-citation-in-followups
      "p" gnus-article-hide-pgp
+    "B" gnus-article-strip-banner
      "P" gnus-article-hide-pem
      "\C-c" gnus-article-hide-citation-maybe)
  
      "P" gnus-article-hide-pem
      "\C-c" gnus-article-hide-citation-maybe)
  
@@ -1377,7 +1489,9 @@ increase the score of each group you read."
  
    (gnus-define-keys (gnus-summary-wash-mime-map "M" gnus-summary-wash-map)
      "w" gnus-article-decode-mime-words
  
    (gnus-define-keys (gnus-summary-wash-mime-map "M" gnus-summary-wash-map)
      "w" gnus-article-decode-mime-words
-    "c" gnus-article-decode-charset)
+    "c" gnus-article-decode-charset
+    "v" gnus-mime-view-all-parts
+    "b" gnus-article-view-part)
  
    (gnus-define-keys (gnus-summary-wash-time-map "T" gnus-summary-wash-map)
      "z" gnus-article-date-ut
  
    (gnus-define-keys (gnus-summary-wash-time-map "T" gnus-summary-wash-map)
      "z" gnus-article-date-ut
@@ -1394,7 +1508,8 @@ increase the score of each group you read."
      "m" gnus-article-strip-multiple-blank-lines
      "a" gnus-article-strip-blank-lines
      "A" gnus-article-strip-all-blank-lines
      "m" gnus-article-strip-multiple-blank-lines
      "a" gnus-article-strip-blank-lines
      "A" gnus-article-strip-all-blank-lines
-    "s" gnus-article-strip-leading-space)
+    "s" gnus-article-strip-leading-space
+    "e" gnus-article-strip-trailing-space)
  
    (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map)
      "v" gnus-version
  
    (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map)
      "v" gnus-version
@@ -1428,7 +1543,18 @@ increase the score of each group you read."
      "h" gnus-summary-save-article-folder
      "v" gnus-summary-save-article-vm
      "p" gnus-summary-pipe-output
      "h" gnus-summary-save-article-folder
      "v" gnus-summary-save-article-vm
      "p" gnus-summary-pipe-output
-    "s" gnus-soup-add-article))
+    "s" gnus-soup-add-article)
+
+  (gnus-define-keys (gnus-summary-mime-map "K" gnus-summary-mode-map)
+    "b" gnus-summary-display-buttonized
+    "m" gnus-summary-repair-multipart
+    "v" gnus-article-view-part
+    "o" gnus-article-save-part
+    "c" gnus-article-copy-part
+    "e" gnus-article-externalize-part
+    "i" gnus-article-inline-part
+    "|" gnus-article-pipe-part)
+  )
  
  (defun gnus-summary-make-menu-bar ()
    (gnus-turn-off-edit-menu 'summary)
  
  (defun gnus-summary-make-menu-bar ()
    (gnus-turn-off-edit-menu 'summary)
@@ -1472,6 +1598,7 @@ increase the score of each group you read."
                ["Signature" gnus-article-hide-signature t]
                ["Citation" gnus-article-hide-citation t]
                ["PGP" gnus-article-hide-pgp t]
                ["Signature" gnus-article-hide-signature t]
                ["Citation" gnus-article-hide-citation t]
                ["PGP" gnus-article-hide-pgp t]
+             ["Banner" gnus-article-strip-banner t]
                ["Boring headers" gnus-article-hide-boring-headers t])
               ("Highlight"
                ["All" gnus-article-highlight t]
                ["Boring headers" gnus-article-hide-boring-headers t])
               ("Highlight"
                ["All" gnus-article-highlight t]
@@ -1481,7 +1608,8 @@ increase the score of each group you read."
              ("MIME"
               ["Words" gnus-article-decode-mime-words t]
               ["Charset" gnus-article-decode-charset t]
              ("MIME"
               ["Words" gnus-article-decode-mime-words t]
               ["Charset" gnus-article-decode-charset t]
-             ["QP" gnus-article-de-quoted-unreadable t])
+             ["QP" gnus-article-de-quoted-unreadable t]
+             ["View all" gnus-mime-view-all-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]
@@ -1496,11 +1624,14 @@ increase the score of each group you read."
                 ["Trailing" gnus-article-remove-trailing-blank-lines t]
                 ["All of the above" gnus-article-strip-blank-lines t]
                 ["All" gnus-article-strip-all-blank-lines t]
                 ["Trailing" gnus-article-remove-trailing-blank-lines t]
                 ["All of the above" gnus-article-strip-blank-lines t]
                 ["All" gnus-article-strip-all-blank-lines t]
-               ["Leading space" gnus-article-strip-leading-space t])
+               ["Leading space" gnus-article-strip-leading-space t]
+              ["Trailing space" gnus-article-strip-trailing-space t])
                ["Overstrike" gnus-article-treat-overstrike t]
                ["Dumb quotes" gnus-article-treat-dumbquotes t]
                ["Emphasis" gnus-article-emphasize t]
                ["Word wrap" gnus-article-fill-cited-article t]
                ["Overstrike" gnus-article-treat-overstrike t]
                ["Dumb quotes" gnus-article-treat-dumbquotes t]
                ["Emphasis" gnus-article-emphasize t]
                ["Word wrap" gnus-article-fill-cited-article t]
+             ["Fill long lines" gnus-article-fill-long-lines t]
+             ["Capitalize sentences" gnus-article-capitalize-sentences t]
                ["CR" gnus-article-remove-cr t]
                ["Show X-Face" gnus-article-display-x-face t]
                ["Quoted-Printable" gnus-article-de-quoted-unreadable t]
                ["CR" gnus-article-remove-cr t]
                ["Show X-Face" gnus-article-display-x-face t]
                ["Quoted-Printable" gnus-article-de-quoted-unreadable t]
@@ -1654,6 +1785,7 @@ increase the score of each group you read."
         ["Hide childless dormant"
          gnus-summary-limit-exclude-childless-dormant t]
         ;;["Hide thread" gnus-summary-limit-exclude-thread t]
         ["Hide childless dormant"
          gnus-summary-limit-exclude-childless-dormant t]
         ;;["Hide thread" gnus-summary-limit-exclude-thread t]
+       ["Hide marked" gnus-summary-limit-exclude-marks t]
         ["Show expunged" gnus-summary-show-all-expunged t])
         ("Process Mark"
         ["Set mark" gnus-summary-mark-as-processable t]
         ["Show expunged" gnus-summary-show-all-expunged t])
         ("Process Mark"
         ["Set mark" gnus-summary-mark-as-processable t]
@@ -1700,7 +1832,8 @@ increase the score of each group you read."
         ["Sort by subject" gnus-summary-sort-by-subject t]
         ["Sort by date" gnus-summary-sort-by-date t]
         ["Sort by score" gnus-summary-sort-by-score t]
         ["Sort by subject" gnus-summary-sort-by-subject t]
         ["Sort by date" gnus-summary-sort-by-date t]
         ["Sort by score" gnus-summary-sort-by-score t]
-       ["Sort by lines" gnus-summary-sort-by-lines t])
+       ["Sort by lines" gnus-summary-sort-by-lines t]
+       ["Sort by characters" gnus-summary-sort-by-chars t])
         ("Help"
         ["Fetch group FAQ" gnus-summary-fetch-faq t]
         ["Describe group" gnus-summary-describe-group t]
         ("Help"
         ["Fetch group FAQ" gnus-summary-fetch-faq t]
         ["Describe group" gnus-summary-describe-group t]
@@ -1724,6 +1857,7 @@ increase the score of each group you read."
         ["Edit local kill file" gnus-summary-edit-local-kill t]
         ["Edit main kill file" gnus-summary-edit-global-kill t]
         ["Edit group parameters" gnus-summary-edit-parameters t]
         ["Edit local kill file" gnus-summary-edit-local-kill t]
         ["Edit main kill file" gnus-summary-edit-global-kill t]
         ["Edit group parameters" gnus-summary-edit-parameters t]
+       ["Customize group parameters" gnus-summary-customize-parameters t]
         ["Send a bug report" gnus-bug t]
         ("Exit"
         ["Catchup and exit" gnus-summary-catchup-and-exit t]
         ["Send a bug report" gnus-bug t]
         ("Exit"
         ["Catchup and exit" gnus-summary-catchup-and-exit t]
@@ -1754,6 +1888,7 @@ increase the score of each group you read."
                      ("article body" "body" string)
                      ("article head" "head" string)
                      ("xref" "xref" string)
                      ("article body" "body" string)
                      ("article head" "head" string)
                      ("xref" "xref" string)
+                    ("extra header" "extra" string)
                      ("lines" "lines" number)
                      ("followups to author" "followup" string)))
           (types '((number ("less than" <)
                      ("lines" "lines" number)
                      ("followups to author" "followup" string)))
           (types '((number ("less than" <)
@@ -1855,7 +1990,7 @@ The following commands are available:
    (setq mode-name "Summary")
    (make-local-variable 'minor-mode-alist)
    (use-local-map gnus-summary-mode-map)
    (setq mode-name "Summary")
    (make-local-variable 'minor-mode-alist)
    (use-local-map gnus-summary-mode-map)
-  (buffer-disable-undo (current-buffer))
+  (buffer-disable-undo)
    (setq buffer-read-only t)            ;Disable modification
    (setq truncate-lines t)
    (setq selective-display t)
    (setq buffer-read-only t)            ;Disable modification
    (setq truncate-lines t)
    (setq selective-display t)
@@ -1868,8 +2003,6 @@ The following commands are available:
    (make-local-variable 'gnus-summary-dummy-line-format)
    (make-local-variable 'gnus-summary-dummy-line-format-spec)
    (make-local-variable 'gnus-summary-mark-positions)
    (make-local-variable 'gnus-summary-dummy-line-format)
    (make-local-variable 'gnus-summary-dummy-line-format-spec)
    (make-local-variable 'gnus-summary-mark-positions)
-  (make-local-hook 'post-command-hook)
-  (add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
    (make-local-hook 'pre-command-hook)
    (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
    (gnus-run-hooks 'gnus-summary-mode-hook)
    (make-local-hook 'pre-command-hook)
    (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
    (gnus-run-hooks 'gnus-summary-mode-hook)
@@ -1879,9 +2012,8 @@ The following commands are available:
  
  (defun gnus-summary-make-local-variables ()
    "Make all the local summary buffer variables."
  
  (defun gnus-summary-make-local-variables ()
    "Make all the local summary buffer variables."
-  (let ((locals gnus-summary-local-variables)
-       global local)
-    (while (setq local (pop locals))
+  (let (global)
+    (dolist (local gnus-summary-local-variables)
        (if (consp local)
           (progn
             (if (eq (cdr local) 'global)
        (if (consp local)
           (progn
             (if (eq (cdr local) 'global)
@@ -1889,11 +2021,9 @@ The following commands are available:
                 (setq global (symbol-value (car local)))
               ;; Use the value from the list.
               (setq global (eval (cdr local))))
                 (setq global (symbol-value (car local)))
               ;; Use the value from the list.
               (setq global (eval (cdr local))))
-           (make-local-variable (car local))
-           (set (car local) global))
+           (set (make-local-variable (car local)) global))
         ;; Simple nil-valued local variable.
         ;; Simple nil-valued local variable.
-       (make-local-variable local)
-       (set local nil)))))
+       (set (make-local-variable local) nil)))))
  
  (defun gnus-summary-clear-local-variables ()
    (let ((locals gnus-summary-local-variables))
  
  (defun gnus-summary-clear-local-variables ()
    (let ((locals gnus-summary-local-variables))
@@ -2217,7 +2347,7 @@ marks of articles."
      (while (setq point (pop config))
        (when (and (< point (point-max))
                  (goto-char point)
      (while (setq point (pop config))
        (when (and (< point (point-max))
                  (goto-char point)
-                (= (following-char) ?\n))
+                (eq (char-after) ?\n))
         (subst-char-in-region point (1+ point) ?\n ?\r)))))
  
  ;; Various summary mode internalish functions.
         (subst-char-in-region point (1+ point) ?\n ?\r)))))
  
  ;; Various summary mode internalish functions.
@@ -2289,7 +2419,8 @@ marks of articles."
           (original gnus-original-article-buffer)
           (gac gnus-article-current)
           (reffed gnus-reffed-article-number)
           (original gnus-original-article-buffer)
           (gac gnus-article-current)
           (reffed gnus-reffed-article-number)
-         (score-file gnus-current-score-file))
+         (score-file gnus-current-score-file)
+         (default-charset gnus-newsgroup-charset))
        (save-excursion
         (set-buffer gnus-group-buffer)
         (setq gnus-newsgroup-name name
        (save-excursion
         (set-buffer gnus-group-buffer)
         (setq gnus-newsgroup-name name
@@ -2302,7 +2433,8 @@ marks of articles."
               gnus-article-buffer article-buffer
               gnus-original-article-buffer original
               gnus-reffed-article-number reffed
               gnus-article-buffer article-buffer
               gnus-original-article-buffer original
               gnus-reffed-article-number reffed
-             gnus-current-score-file score-file)
+             gnus-current-score-file score-file
+             gnus-newsgroup-charset default-charset)
         ;; The article buffer also has local variables.
         (when (gnus-buffer-live-p gnus-article-buffer)
           (set-buffer gnus-article-buffer)
         ;; The article buffer also has local variables.
         (when (gnus-buffer-live-p gnus-article-buffer)
           (set-buffer gnus-article-buffer)
@@ -2321,7 +2453,8 @@ marks of articles."
  (defun gnus-summary-last-article-p (&optional article)
    "Return whether ARTICLE is the last article in the buffer."
    (if (not (setq article (or article (gnus-summary-article-number))))
  (defun gnus-summary-last-article-p (&optional article)
    "Return whether ARTICLE is the last article in the buffer."
    (if (not (setq article (or article (gnus-summary-article-number))))
-      t                ; All non-existent numbers are the last article.  :-)
+      ;; All non-existent numbers are the last article.  :-)
+      t
      (not (cdr (gnus-data-find-list article)))))
  
  (defun gnus-make-thread-indent-array ()
      (not (cdr (gnus-data-find-list article)))))
  
  (defun gnus-make-thread-indent-array ()
@@ -2351,7 +2484,7 @@ marks of articles."
         (let ((gnus-summary-line-format-spec spec)
               (gnus-newsgroup-downloadable '((0 . t))))
           (gnus-summary-insert-line
         (let ((gnus-summary-line-format-spec spec)
               (gnus-newsgroup-downloadable '((0 . t))))
           (gnus-summary-insert-line
-          [0 "" "" "" "" "" 0 0 ""]  0 nil 128 t nil "" nil 1)
+          [0 "" "" "" "" "" 0 0 "" nil]  0 nil 128 t nil "" nil 1)
           (goto-char (point-min))
           (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
                                              (- (point) 2)))))
           (goto-char (point-min))
           (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
                                              (- (point) 2)))))
@@ -2375,6 +2508,30 @@ marks of articles."
     (point) (progn (eval gnus-summary-dummy-line-format-spec) (point))
     (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
  
     (point) (progn (eval gnus-summary-dummy-line-format-spec) (point))
     (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
  
+(defun gnus-summary-from-or-to-or-newsgroups (header)
+  (let ((to (cdr (assq 'To (mail-header-extra header))))
+       (newsgroups (cdr (assq 'Newsgroups (mail-header-extra header))))
+       (mail-parse-charset gnus-newsgroup-charset))
+    (cond
+     ((and to
+          gnus-ignored-from-addresses
+          (string-match gnus-ignored-from-addresses
+                        (mail-header-from header)))
+      (concat "-> "
+             (or (car (funcall gnus-extract-address-components
+                               (funcall
+                                gnus-decode-encoded-word-function to)))
+                 (funcall gnus-decode-encoded-word-function to))))
+     ((and newsgroups
+          gnus-ignored-from-addresses
+          (string-match gnus-ignored-from-addresses
+                        (mail-header-from header)))
+      (concat "=> " newsgroups))
+     (t
+      (or (car (funcall gnus-extract-address-components
+                       (mail-header-from header)))
+         (mail-header-from header))))))
+
  (defun gnus-summary-insert-line (gnus-tmp-header
                                  gnus-tmp-level gnus-tmp-current
                                  gnus-tmp-unread gnus-tmp-replied
  (defun gnus-summary-insert-line (gnus-tmp-header
                                  gnus-tmp-level gnus-tmp-current
                                  gnus-tmp-unread gnus-tmp-replied
@@ -2388,7 +2545,7 @@ marks of articles."
           (if (or (null gnus-summary-default-score)
                   (<= (abs (- gnus-tmp-score gnus-summary-default-score))
                       gnus-summary-zcore-fuzz))
           (if (or (null gnus-summary-default-score)
                   (<= (abs (- gnus-tmp-score gnus-summary-default-score))
                       gnus-summary-zcore-fuzz))
-             ? 
+             ? ;Whitespace
             (if (< gnus-tmp-score gnus-summary-default-score)
                 gnus-score-below-mark gnus-score-over-mark)))
          (gnus-tmp-replied
             (if (< gnus-tmp-score gnus-summary-default-score)
                 gnus-score-below-mark gnus-score-over-mark)))
          (gnus-tmp-replied
@@ -2421,7 +2578,7 @@ marks of articles."
        (setq gnus-tmp-name gnus-tmp-from))
      (unless (numberp gnus-tmp-lines)
        (setq gnus-tmp-lines 0))
        (setq gnus-tmp-name gnus-tmp-from))
      (unless (numberp gnus-tmp-lines)
        (setq gnus-tmp-lines 0))
-    (gnus-put-text-property-excluding-characters-with-faces
+    (gnus-put-text-property
       (point)
       (progn (eval gnus-summary-line-format-spec) (point))
       'gnus-number gnus-tmp-number)
       (point)
       (progn (eval gnus-summary-line-format-spec) (point))
       'gnus-number gnus-tmp-number)
@@ -2453,7 +2610,7 @@ marks of articles."
          (if (or (null gnus-summary-default-score)
                  (<= (abs (- score gnus-summary-default-score))
                      gnus-summary-zcore-fuzz))
          (if (or (null gnus-summary-default-score)
                  (<= (abs (- score gnus-summary-default-score))
                      gnus-summary-zcore-fuzz))
-            ? 
+            ? ;Whitespace
            (if (< score gnus-summary-default-score)
                gnus-score-below-mark gnus-score-over-mark))
          'score))
            (if (< score gnus-summary-default-score)
                gnus-score-below-mark gnus-score-over-mark))
          'score))
@@ -2522,7 +2679,7 @@ If NO-DISPLAY, don't generate a summary buffer."
                                    kill-buffer no-display
                                    select-articles)
                                   (setq show-all nil
                                    kill-buffer no-display
                                    select-articles)
                                   (setq show-all nil
-                                  select-articles nil)))))
+                                       select-articles nil)))))
                 (eq gnus-auto-select-next 'quietly))
        (set-buffer gnus-group-buffer)
        ;; The entry function called above goes to the next
                 (eq gnus-auto-select-next 'quietly))
        (set-buffer gnus-group-buffer)
        ;; The entry function called above goes to the next
@@ -2661,16 +2818,21 @@ If NO-DISPLAY, don't generate a summary buffer."
                  (not no-display)
                  gnus-newsgroup-unreads
                  gnus-auto-select-first)
                  (not no-display)
                  gnus-newsgroup-unreads
                  gnus-auto-select-first)
-           (unless (if (eq gnus-auto-select-first 'best)
-                       (gnus-summary-best-unread-article)
-                     (gnus-summary-first-unread-article))
-             (gnus-configure-windows 'summary))
+           (progn
+             (gnus-configure-windows 'summary)
+             (cond
+              ((eq gnus-auto-select-first 'best)
+               (gnus-summary-best-unread-article))
+              ((eq gnus-auto-select-first t)
+               (gnus-summary-first-unread-article))
+              ((gnus-functionp gnus-auto-select-first)
+               (funcall gnus-auto-select-first))))
           ;; Don't select any articles, just move point to the first
           ;; article in the group.
           (goto-char (point-min))
           (gnus-summary-position-point)
           (gnus-configure-windows 'summary 'force)
           ;; Don't select any articles, just move point to the first
           ;; article in the group.
           (goto-char (point-min))
           (gnus-summary-position-point)
           (gnus-configure-windows 'summary 'force)
-         (gnus-set-mode-line 'summary))        
+         (gnus-set-mode-line 'summary))
         (when (get-buffer-window gnus-group-buffer t)
           ;; Gotta use windows, because recenter does weird stuff if
           ;; the current buffer ain't the displayed window.
         (when (get-buffer-window gnus-group-buffer t)
           ;; Gotta use windows, because recenter does weird stuff if
           ;; the current buffer ain't the displayed window.
@@ -3016,24 +3178,6 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
              (setq heads nil)))))
       gnus-newsgroup-dependencies)))
  
              (setq heads nil)))))
       gnus-newsgroup-dependencies)))
  
-;; The following macros and functions were written by Felix Lee
-;; <flee@cse.psu.edu>.
-
-(defmacro gnus-nov-read-integer ()
-  '(prog1
-       (if (= (following-char) ?\t)
-          0
-        (let ((num (ignore-errors (read buffer))))
-          (if (numberp num) num 0)))
-     (unless (eobp)
-       (search-forward "\t" eol 'move))))
-
-(defmacro gnus-nov-skip-field ()
-  '(search-forward "\t" eol 'move))
-
-(defmacro gnus-nov-field ()
-  '(buffer-substring (point) (if (gnus-nov-skip-field) (1- (point)) eol)))
-
  ;; This function has to be called with point after the article number
  ;; on the beginning of the line.
  (defsubst gnus-nov-parse-line (number dependencies &optional force-new)
  ;; This function has to be called with point after the article number
  ;; on the beginning of the line.
  (defsubst gnus-nov-parse-line (number dependencies &optional force-new)
@@ -3050,17 +3194,19 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
  
           (setq header
                 (make-full-mail-header
  
           (setq header
                 (make-full-mail-header
-                number                 ; number
-                (rfc2047-decode-string (gnus-nov-field)) ; subject
-                (rfc2047-decode-string (gnus-nov-field)) ; from
-                (gnus-nov-field)       ; date
-                (or (gnus-nov-field)
-                    (nnheader-generate-fake-message-id)) ; id
-                (gnus-nov-field)       ; refs
-                (gnus-nov-read-integer) ; chars
-                (gnus-nov-read-integer) ; lines
-                (unless (= (following-char) ?\n)
-                  (gnus-nov-field))))) ; misc
+                number                         ; number
+                (funcall gnus-decode-encoded-word-function
+                         (nnheader-nov-field)) ; subject
+                (funcall gnus-decode-encoded-word-function
+                         (nnheader-nov-field)) ; from
+                (nnheader-nov-field)           ; date
+                (nnheader-nov-read-message-id) ; id
+                (nnheader-nov-field)           ; refs
+                (nnheader-nov-read-integer)    ; chars
+                (nnheader-nov-read-integer)    ; lines
+                (unless (eobp)
+                  (nnheader-nov-field))                ; misc
+                (nnheader-nov-parse-extra))))  ; extra
  
        (widen))
  
  
        (widen))
  
@@ -3445,6 +3591,16 @@ If LINE, insert the rebuilt thread starting on line LINE."
    (gnus-article-sort-by-lines
     (gnus-thread-header h1) (gnus-thread-header h2)))
  
    (gnus-article-sort-by-lines
     (gnus-thread-header h1) (gnus-thread-header h2)))
  
+(defsubst gnus-article-sort-by-chars (h1 h2)
+  "Sort articles by octet length."
+  (< (mail-header-chars h1)
+     (mail-header-chars h2)))
+
+(defun gnus-thread-sort-by-chars (h1 h2)
+  "Sort threads by root article octet length."
+  (gnus-article-sort-by-chars
+   (gnus-thread-header h1) (gnus-thread-header h2)))
+
  (defsubst gnus-article-sort-by-author (h1 h2)
    "Sort articles by root author."
    (string-lessp
  (defsubst gnus-article-sort-by-author (h1 h2)
    "Sort articles by root author."
    (string-lessp
@@ -3505,7 +3661,7 @@ Unscored articles will be counted as having a score of zero."
    (> (gnus-thread-total-score h1) (gnus-thread-total-score h2)))
  
  (defun gnus-thread-total-score (thread)
    (> (gnus-thread-total-score h1) (gnus-thread-total-score h2)))
  
  (defun gnus-thread-total-score (thread)
-  ;;  This function find the total score of THREAD.
+  ;; This function find the total score of THREAD.
    (cond ((null thread)
          0)
         ((consp thread)
    (cond ((null thread)
          0)
         ((consp thread)
@@ -3536,6 +3692,12 @@ Unscored articles will be counted as having a score of zero."
  (defvar gnus-tmp-root-expunged nil)
  (defvar gnus-tmp-dummy-line nil)
  
  (defvar gnus-tmp-root-expunged nil)
  (defvar gnus-tmp-dummy-line nil)
  
+(defvar gnus-tmp-header)
+(defun gnus-extra-header (type &optional header)
+  "Return the extra header of TYPE."
+  (or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
+      ""))
+
  (defun gnus-summary-prepare-threads (threads)
    "Prepare summary buffer from THREADS and indentation LEVEL.
  THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])'
  (defun gnus-summary-prepare-threads (threads)
    "Prepare summary buffer from THREADS and indentation LEVEL.
  THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])'
@@ -3733,7 +3895,7 @@ or a straight list of headers."
              (if (or (null gnus-summary-default-score)
                      (<= (abs (- gnus-tmp-score gnus-summary-default-score))
                          gnus-summary-zcore-fuzz))
              (if (or (null gnus-summary-default-score)
                      (<= (abs (- gnus-tmp-score gnus-summary-default-score))
                          gnus-summary-zcore-fuzz))
-                ? 
+                ? ;Whitespace
                (if (< gnus-tmp-score gnus-summary-default-score)
                    gnus-score-below-mark gnus-score-over-mark))
              gnus-tmp-replied
                (if (< gnus-tmp-score gnus-summary-default-score)
                    gnus-score-below-mark gnus-score-over-mark))
              gnus-tmp-replied
@@ -3763,7 +3925,7 @@ or a straight list of headers."
               (setq gnus-tmp-name gnus-tmp-from))
             (unless (numberp gnus-tmp-lines)
               (setq gnus-tmp-lines 0))
               (setq gnus-tmp-name gnus-tmp-from))
             (unless (numberp gnus-tmp-lines)
               (setq gnus-tmp-lines 0))
-           (gnus-put-text-property-excluding-characters-with-faces
+           (gnus-put-text-property
              (point)
              (progn (eval gnus-summary-line-format-spec) (point))
              'gnus-number number)
              (point)
              (progn (eval gnus-summary-line-format-spec) (point))
              'gnus-number number)
@@ -3852,6 +4014,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
      (setq gnus-newsgroup-name group)
      (setq gnus-newsgroup-unselected nil)
      (setq gnus-newsgroup-unreads (gnus-list-of-unread-articles group))
      (setq gnus-newsgroup-name group)
      (setq gnus-newsgroup-unselected nil)
      (setq gnus-newsgroup-unreads (gnus-list-of-unread-articles group))
+    (gnus-summary-setup-default-charset)
  
      ;; Adjust and set lists of article marks.
      (when info
  
      ;; Adjust and set lists of article marks.
      (when info
@@ -3886,6 +4049,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
        ;; Init the dependencies hash table.
        (setq gnus-newsgroup-dependencies
             (gnus-make-hashtable (length articles)))
        ;; Init the dependencies hash table.
        (setq gnus-newsgroup-dependencies
             (gnus-make-hashtable (length articles)))
+      (gnus-set-global-variables)
        ;; Retrieve the headers and read them in.
        (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name)
        (setq gnus-newsgroup-headers
        ;; Retrieve the headers and read them in.
        (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name)
        (setq gnus-newsgroup-headers
@@ -4038,7 +4202,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
      out))
  
  (defun gnus-adjust-marked-articles (info)
      out))
  
  (defun gnus-adjust-marked-articles (info)
-  "Set all article lists and remove all marks that are no longer legal."
+  "Set all article lists and remove all marks that are no longer valid."
    (let* ((marked-lists (gnus-info-marks info))
          (active (gnus-active (gnus-info-group info)))
          (min (car active))
    (let* ((marked-lists (gnus-info-marks info))
          (active (gnus-active (gnus-info-group info)))
          (min (car active))
@@ -4096,7 +4260,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
    (let ((types gnus-article-mark-lists)
         (info (gnus-get-info gnus-newsgroup-name))
         (uncompressed '(score bookmark killed))
    (let ((types gnus-article-mark-lists)
         (info (gnus-get-info gnus-newsgroup-name))
         (uncompressed '(score bookmark killed))
-       type list newmarked symbol)
+       type list newmarked symbol delta-marks)
      (when info
        ;; Add all marks lists that are non-nil to the list of marks lists.
        (while (setq type (pop types))
      (when info
        ;; Add all marks lists that are non-nil to the list of marks lists.
        (while (setq type (pop types))
@@ -4121,12 +4285,28 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                 (setq arts (cdr arts)))
               (setq list (cdr all))))
  
                 (setq arts (cdr arts)))
               (setq list (cdr all))))
  
+         (when (gnus-check-backend-function 'request-set-mark
+                                            gnus-newsgroup-name)
+           ;; score & bookmark are not proper flags (they are cons cells)
+           ;; cache is a internal gnus flag
+           (unless (memq (cdr type) '(cache score bookmark))
+             (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
+                    (del (gnus-remove-from-range old list))
+                    (add (gnus-remove-from-range list old)))
+               (if add
+                   (push (list add 'add (list (cdr type))) delta-marks))
+               (if del
+                   (push (list del 'del (list (cdr type))) delta-marks)))))
+
           (push (cons (cdr type)
                       (if (memq (cdr type) uncompressed) list
                         (gnus-compress-sequence
                          (set symbol (sort list '<)) t)))
                 newmarked)))
  
           (push (cons (cdr type)
                       (if (memq (cdr type) uncompressed) list
                         (gnus-compress-sequence
                          (set symbol (sort list '<)) t)))
                 newmarked)))
  
+      (if delta-marks
+         (gnus-request-set-mark gnus-newsgroup-name delta-marks))
+
        ;; Enter these new marks into the info of the group.
        (if (nthcdr 3 info)
           (setcar (nthcdr 3 info) newmarked)
        ;; Enter these new marks into the info of the group.
        (if (nthcdr 3 info)
           (setcar (nthcdr 3 info) newmarked)
@@ -4145,7 +4325,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
    "This function sets the mode line of the article or summary buffers.
  If WHERE is `summary', the summary mode line format will be used."
    ;; Is this mode line one we keep updated?
    "This function sets the mode line of the article or summary buffers.
  If WHERE is `summary', the summary mode line format will be used."
    ;; Is this mode line one we keep updated?
-  (when (memq where gnus-updated-mode-lines)
+  (when (and (memq where gnus-updated-mode-lines)
+            (symbol-value
+             (intern (format "gnus-%s-mode-line-format-spec" where))))
      (let (mode-string)
        (save-excursion
         ;; We evaluate this in the summary buffer since these
      (let (mode-string)
        (save-excursion
         ;; We evaluate this in the summary buffer since these
@@ -4195,7 +4377,7 @@ If WHERE is `summary', the summary mode line format will be used."
           ;; We might have to chop a bit of the string off...
           (when (> (length mode-string) max-len)
             (setq mode-string
           ;; We might have to chop a bit of the string off...
           (when (> (length mode-string) max-len)
             (setq mode-string
-                 (concat (truncate-string mode-string (- max-len 3))
+                 (concat (truncate-string-to-width mode-string (- max-len 3))
                           "...")))
           ;; Pad the mode string a bit.
           (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
                           "...")))
           ;; Pad the mode string a bit.
           (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
@@ -4273,7 +4455,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
          (active (gnus-active group))
          ninfo)
      (when entry
          (active (gnus-active group))
          ninfo)
      (when entry
-      ;; First peel off all illegal article numbers.
+      ;; First peel off all invalid article numbers.
        (when active
         (let ((ids articles)
               id first)
        (when active
         (let ((ids articles)
               id first)
@@ -4301,7 +4483,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
        ;; Then we add the read articles to the range.
        (gnus-add-to-range
         ninfo (setq articles (sort articles '<))))))
        ;; Then we add the read articles to the range.
        (gnus-add-to-range
         ninfo (setq articles (sort articles '<))))))
-  
+
  (defun gnus-group-make-articles-read (group articles)
    "Update the info of GROUP to say that ARTICLES are read."
    (let* ((num 0)
  (defun gnus-group-make-articles-read (group articles)
    "Update the info of GROUP to say that ARTICLES are read."
    (let* ((num 0)
@@ -4342,15 +4524,6 @@ The resulting hash table is returned, or nil if no Xrefs were found."
         ;; Update the group buffer.
         (gnus-group-update-group group t)))))
  
         ;; Update the group buffer.
         (gnus-group-update-group group t)))))
  
-(defun gnus-methods-equal-p (m1 m2)
-  (let ((m1 (or m1 gnus-select-method))
-       (m2 (or m2 gnus-select-method)))
-    (or (equal m1 m2)
-       (and (eq (car m1) (car m2))
-            (or (not (memq 'address (assoc (symbol-name (car m1))
-                                           gnus-valid-select-methods)))
-                (equal (nth 1 m1) (nth 1 m2)))))))
-
  (defvar gnus-newsgroup-none-id 0)
  
  (defun gnus-get-newsgroup-headers (&optional dependencies force-new)
  (defvar gnus-newsgroup-none-id 0)
  
  (defun gnus-get-newsgroup-headers (&optional dependencies force-new)
@@ -4359,11 +4532,13 @@ The resulting hash table is returned, or nil if no Xrefs were found."
          (or dependencies
              (save-excursion (set-buffer gnus-summary-buffer)
                              gnus-newsgroup-dependencies)))
          (or dependencies
              (save-excursion (set-buffer gnus-summary-buffer)
                              gnus-newsgroup-dependencies)))
-       headers id end ref)
+       headers id end ref
+       (mail-parse-charset gnus-newsgroup-charset))
      (save-excursion
        (set-buffer nntp-server-buffer)
        ;; Translate all TAB characters into SPACE characters.
        (subst-char-in-region (point-min) (point-max) ?\t ?  t)
      (save-excursion
        (set-buffer nntp-server-buffer)
        ;; Translate all TAB characters into SPACE characters.
        (subst-char-in-region (point-min) (point-max) ?\t ?  t)
+      (subst-char-in-region (point-min) (point-max) ?\r ?  t)
        (gnus-run-hooks 'gnus-parse-headers-hook)
        (let ((case-fold-search t)
             in-reply-to header p lines chars)
        (gnus-run-hooks 'gnus-parse-headers-hook)
        (let ((case-fold-search t)
             in-reply-to header p lines chars)
@@ -4395,13 +4570,15 @@ The resulting hash table is returned, or nil if no Xrefs were found."
             (progn
               (goto-char p)
               (if (search-forward "\nsubject: " nil t)
             (progn
               (goto-char p)
               (if (search-forward "\nsubject: " nil t)
-                 (rfc2047-decode-string (nnheader-header-value))
+                 (funcall gnus-decode-encoded-word-function
+                          (nnheader-header-value))
                 "(none)"))
             ;; From.
             (progn
               (goto-char p)
               (if (search-forward "\nfrom: " nil t)
                 "(none)"))
             ;; From.
             (progn
               (goto-char p)
               (if (search-forward "\nfrom: " nil t)
-                 (rfc2047-decode-string (nnheader-header-value))
+                 (funcall gnus-decode-encoded-word-function
+                          (nnheader-header-value))
                 "(nobody)"))
             ;; Date.
             (progn
                 "(nobody)"))
             ;; Date.
             (progn
@@ -4471,7 +4648,19 @@ The resulting hash table is returned, or nil if no Xrefs were found."
             (progn
               (goto-char p)
               (and (search-forward "\nxref: " nil t)
             (progn
               (goto-char p)
               (and (search-forward "\nxref: " nil t)
-                  (nnheader-header-value)))))
+                  (nnheader-header-value)))
+           ;; Extra.
+           (when gnus-extra-headers
+             (let ((extra gnus-extra-headers)
+                   out)
+               (while extra
+                 (goto-char p)
+                 (when (search-forward
+                        (concat "\n" (symbol-name (car extra)) ": ") nil t)
+                   (push (cons (car extra) (nnheader-header-value))
+                         out))
+                 (pop extra))
+               out))))
           (when (equal id ref)
             (setq ref nil))
  
           (when (equal id ref)
             (setq ref nil))
  
@@ -4497,11 +4686,13 @@ list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
    ;; Get the Xref when the users reads the articles since most/some
    ;; NNTP servers do not include Xrefs when using XOVER.
    (setq gnus-article-internal-prepare-hook '(gnus-article-get-xrefs))
    ;; Get the Xref when the users reads the articles since most/some
    ;; NNTP servers do not include Xrefs when using XOVER.
    (setq gnus-article-internal-prepare-hook '(gnus-article-get-xrefs))
-  (let ((cur nntp-server-buffer)
+  (let ((mail-parse-charset gnus-newsgroup-charset)
+       (cur nntp-server-buffer)
         (dependencies (or dependencies gnus-newsgroup-dependencies))
         number headers header)
      (save-excursion
        (set-buffer nntp-server-buffer)
         (dependencies (or dependencies gnus-newsgroup-dependencies))
         number headers header)
      (save-excursion
        (set-buffer nntp-server-buffer)
+      (subst-char-in-region (point-min) (point-max) ?\r ?  t)
        ;; 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))
@@ -4521,10 +4712,9 @@ list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
                                      number dependencies force-new))))
                    (push header headers))
               (forward-line 1))
                                      number dependencies force-new))))
                    (push header headers))
               (forward-line 1))
-         ;(error
-         ; (gnus-error 4 "Strange nov line (%d)"
-       ;              (count-lines (point-min) (point))))
-         )
+         (error
+          (gnus-error 4 "Strange nov line (%d)"
+                      (count-lines (point-min) (point)))))
         (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 --
         (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 --
@@ -4556,7 +4746,7 @@ This is meant to be called in `gnus-article-internal-prepare-hook'."
           (save-restriction
             (nnheader-narrow-to-headers)
             (goto-char (point-min))
           (save-restriction
             (nnheader-narrow-to-headers)
             (goto-char (point-min))
-           (when (or (and (eq (downcase (following-char)) ?x)
+           (when (or (and (eq (downcase (char-after)) ?x)
                            (looking-at "Xref:"))
                       (search-forward "\nXref:" nil t))
               (goto-char (1+ (match-end 0)))
                            (looking-at "Xref:"))
                       (search-forward "\nXref:" nil t))
               (goto-char (1+ (match-end 0)))
@@ -4571,14 +4761,14 @@ the subject line on."
    (let* ((line (and (numberp old-header) old-header))
          (old-header (and (vectorp old-header) old-header))
          (header (cond ((and old-header use-old-header)
    (let* ((line (and (numberp old-header) old-header))
          (old-header (and (vectorp old-header) old-header))
          (header (cond ((and old-header use-old-header)
-                      old-header)
-                     ((and (numberp id)
-                           (gnus-number-to-header id))
-                      (gnus-number-to-header id))
-                     (t
-                      (gnus-read-header id))))
-       (number (and (numberp id) id))
-       d)
+                       old-header)
+                      ((and (numberp id)
+                            (gnus-number-to-header id))
+                       (gnus-number-to-header id))
+                      (t
+                       (gnus-read-header id))))
+        (number (and (numberp id) id))
+        d)
      (when header
        ;; Rebuild the thread that this article is part of and go to the
        ;; article we have fetched.
      (when header
        ;; Rebuild the thread that this article is part of and go to the
        ;; article we have fetched.
@@ -4820,7 +5010,9 @@ displayed, no centering will be performed."
    ;; Recenter only when requested.  Suggested by popovich@park.cs.columbia.edu.
    (let* ((top (cond ((< (window-height) 4) 0)
                     ((< (window-height) 7) 1)
    ;; Recenter only when requested.  Suggested by popovich@park.cs.columbia.edu.
    (let* ((top (cond ((< (window-height) 4) 0)
                     ((< (window-height) 7) 1)
-                   (t 2)))
+                   (t (if (numberp gnus-auto-center-summary)
+                          gnus-auto-center-summary
+                        2))))
          (height (1- (window-height)))
          (bottom (save-excursion (goto-char (point-max))
                                  (forward-line (- height))
          (height (1- (window-height)))
          (bottom (save-excursion (goto-char (point-max))
                                  (forward-line (- height))
@@ -5002,7 +5194,7 @@ The prefix argument ALL means to select all articles."
           (gnus-update-read-articles
            group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
           ;; Set the current article marks.
           (gnus-update-read-articles
            group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
           ;; Set the current article marks.
-         (let ((gnus-newsgroup-scored 
+         (let ((gnus-newsgroup-scored
                  (if (and (not gnus-save-score)
                           (not non-destructive))
                      nil
                  (if (and (not gnus-save-score)
                           (not non-destructive))
                      nil
@@ -5032,6 +5224,10 @@ If FORCE (the prefix), also save the .newsrc file(s)."
  gnus-exit-group-hook is called with no arguments if that value is non-nil."
    (interactive)
    (gnus-set-global-variables)
  gnus-exit-group-hook is called with no arguments if that value is non-nil."
    (interactive)
    (gnus-set-global-variables)
+  (when (gnus-buffer-live-p gnus-article-buffer)
+    (save-excursion
+      (set-buffer gnus-article-buffer)
+      (mm-destroy-parts gnus-article-mime-handles)))
    (gnus-kill-save-kill-buffer)
    (gnus-async-halt-prefetch)
    (let* ((group gnus-newsgroup-name)
    (gnus-kill-save-kill-buffer)
    (gnus-async-halt-prefetch)
    (let* ((group gnus-newsgroup-name)
@@ -5039,6 +5235,12 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
          (mode major-mode)
           (group-point nil)
          (buf (current-buffer)))
          (mode major-mode)
           (group-point nil)
          (buf (current-buffer)))
+    (unless quit-config
+      ;; Do adaptive scoring, and possibly save score files.
+      (when gnus-newsgroup-adaptive
+       (gnus-score-adaptive))
+      (when gnus-use-scoring
+       (gnus-score-save)))
      (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
      ;; If we have several article buffers, we kill them at exit.
      (unless gnus-single-article-buffer
      (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
      ;; If we have several article buffers, we kill them at exit.
      (unless gnus-single-article-buffer
@@ -5057,12 +5259,7 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
      ;; Make all changes in this group permanent.
      (unless quit-config
        (gnus-run-hooks 'gnus-exit-group-hook)
      ;; Make all changes in this group permanent.
      (unless quit-config
        (gnus-run-hooks 'gnus-exit-group-hook)
-      (gnus-summary-update-info)
-      ;; Do adaptive scoring, and possibly save score files.
-      (when gnus-newsgroup-adaptive
-       (gnus-score-adaptive))
-      (when gnus-use-scoring
-       (gnus-score-save)))
+      (gnus-summary-update-info))
      (gnus-close-group group)
      ;; Make sure where we were, and go to next newsgroup.
      (set-buffer gnus-group-buffer)
      (gnus-close-group group)
      ;; Make sure where we were, and go to next newsgroup.
      (set-buffer gnus-group-buffer)
@@ -5079,9 +5276,6 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
         nil                             ;Nothing to do.
        ;; If we have several article buffers, we kill them at exit.
        (unless gnus-single-article-buffer
         nil                             ;Nothing to do.
        ;; If we have several article buffers, we kill them at exit.
        (unless gnus-single-article-buffer
-       (save-excursion
-         (set-buffer gnus-article-buffer)
-         (mapcar 'mm-destroy-part gnus-article-mime-handles))
         (gnus-kill-buffer gnus-article-buffer)
         (gnus-kill-buffer gnus-original-article-buffer)
         (setq gnus-article-current nil))
         (gnus-kill-buffer gnus-article-buffer)
         (gnus-kill-buffer gnus-original-article-buffer)
         (setq gnus-article-current nil))
@@ -5123,7 +5317,13 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
               gnus-expert-user
               (gnus-y-or-n-p "Discard changes to this group and exit? "))
        (gnus-async-halt-prefetch)
               gnus-expert-user
               (gnus-y-or-n-p "Discard changes to this group and exit? "))
        (gnus-async-halt-prefetch)
-      (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
+      (mapcar 'funcall
+             (delq 'gnus-summary-expire-articles
+                   (copy-list gnus-summary-prepare-exit-hook)))
+      (when (gnus-buffer-live-p gnus-article-buffer)
+       (save-excursion
+         (set-buffer gnus-article-buffer)
+         (mm-destroy-parts gnus-article-mime-handles)))
        ;; If we have several article buffers, we kill them at exit.
        (unless gnus-single-article-buffer
         (gnus-kill-buffer gnus-article-buffer)
        ;; If we have several article buffers, we kill them at exit.
        (unless gnus-single-article-buffer
         (gnus-kill-buffer gnus-article-buffer)
@@ -5292,8 +5492,7 @@ in."
  (defun gnus-summary-describe-briefly ()
    "Describe summary mode commands briefly."
    (interactive)
  (defun gnus-summary-describe-briefly ()
    "Describe summary mode commands briefly."
    (interactive)
-  (gnus-message 6
-               (substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-next-page]:Select  \\[gnus-summary-next-unread-article]:Forward  \\[gnus-summary-prev-unread-article]:Backward  \\[gnus-summary-exit]:Exit  \\[gnus-info-find-node]:Run Info  \\[gnus-summary-describe-briefly]:This help")))
+  (gnus-message 6 (substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-next-page]:Select  \\[gnus-summary-next-unread-article]:Forward  \\[gnus-summary-prev-unread-article]:Backward  \\[gnus-summary-exit]:Exit  \\[gnus-info-find-node]:Run Info       \\[gnus-summary-describe-briefly]:This help")))
  
  ;; Walking around group mode buffer from summary mode.
  
  
  ;; Walking around group mode buffer from summary mode.
  
@@ -5513,7 +5712,9 @@ be displayed."
               ;; The requested article is different from the current article.
               (prog1
                   (gnus-summary-display-article article all-headers)
               ;; The requested article is different from the current article.
               (prog1
                   (gnus-summary-display-article article all-headers)
-               (setq did article))
+               (setq did article)
+               (when (or all-headers gnus-show-all-headers)
+                 (gnus-article-show-all-headers)))
             (when (or all-headers gnus-show-all-headers)
               (gnus-article-show-all-headers))
             'old))
             (when (or all-headers gnus-show-all-headers)
               (gnus-article-show-all-headers))
             'old))
@@ -5791,15 +5992,25 @@ Return nil if there are no unread articles."
         (gnus-summary-display-article (gnus-summary-article-number)))
      (gnus-summary-position-point)))
  
         (gnus-summary-display-article (gnus-summary-article-number)))
      (gnus-summary-position-point)))
  
+(defun gnus-summary-first-unread-subject ()
+  "Place the point on the subject line of the first unread article.
+Return nil if there are no unread articles."
+  (interactive)
+  (prog1
+      (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."
    (interactive)
    (prog1
        (when (gnus-summary-first-subject)
  (defun gnus-summary-first-article ()
    "Select the first article.
  Return nil if there are no articles."
    (interactive)
    (prog1
        (when (gnus-summary-first-subject)
-      (gnus-summary-show-thread)
-      (gnus-summary-first-subject)
-      (gnus-summary-display-article (gnus-summary-article-number)))
+       (gnus-summary-show-thread)
+       (gnus-summary-first-subject)
+       (gnus-summary-display-article (gnus-summary-article-number)))
      (gnus-summary-position-point)))
  
  (defun gnus-summary-best-unread-article ()
      (gnus-summary-position-point)))
  
  (defun gnus-summary-best-unread-article ()
@@ -6135,7 +6346,7 @@ If ALL, mark even excluded ticked and dormants as read."
  (defsubst gnus-cut-thread (thread)
    "Go forwards in the thread until we find an article that we want to display."
    (when (or (eq gnus-fetch-old-headers 'some)
  (defsubst gnus-cut-thread (thread)
    "Go forwards in the thread until we find an article that we want to display."
    (when (or (eq gnus-fetch-old-headers 'some)
-           (eq gnus-fetch-old-headers 'invisible)          
+           (eq gnus-fetch-old-headers 'invisible)
             (eq gnus-build-sparse-threads 'some)
             (eq gnus-build-sparse-threads 'more))
      ;; Deal with old-fetched headers and sparse threads.
             (eq gnus-build-sparse-threads 'some)
             (eq gnus-build-sparse-threads 'more))
      ;; Deal with old-fetched headers and sparse threads.
@@ -6439,6 +6650,11 @@ or `gnus-select-method', no matter what backend the article comes from."
    (interactive)
    (gnus-group-edit-group gnus-newsgroup-name 'params))
  
    (interactive)
    (gnus-group-edit-group gnus-newsgroup-name 'params))
  
+(defun gnus-summary-customize-parameters ()
+  "Customize the group parameters of the current group."
+  (interactive)
+  (gnus-group-customize gnus-newsgroup-name))
+
  (defun gnus-summary-enter-digest-group (&optional force)
    "Enter an nndoc group based on the current article.
  If FORCE, force a digest interpretation.  If not, try
  (defun gnus-summary-enter-digest-group (&optional force)
    "Enter an nndoc group based on the current article.
  If FORCE, force a digest interpretation.  If not, try
@@ -6583,15 +6799,16 @@ Optional argument BACKWARD means do search for backward.
    ;; We have to require this here to make sure that the following
    ;; dynamic binding isn't shadowed by autoloading.
    (require 'gnus-async)
    ;; We have to require this here to make sure that the following
    ;; dynamic binding isn't shadowed by autoloading.
    (require 'gnus-async)
+  (require 'gnus-art)
    (let ((gnus-select-article-hook nil) ;Disable hook.
    (let ((gnus-select-article-hook nil) ;Disable hook.
-       (gnus-article-display-hook nil)
         (gnus-mark-article-hook nil)    ;Inhibit marking as read.
         (gnus-use-article-prefetch nil)
         (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay.
         (gnus-use-trees nil)            ;Inhibit updating tree buffer.
         (sum (current-buffer))
         (gnus-mark-article-hook nil)    ;Inhibit marking as read.
         (gnus-use-article-prefetch nil)
         (gnus-xmas-force-redisplay nil) ;Inhibit XEmacs redisplay.
         (gnus-use-trees nil)            ;Inhibit updating tree buffer.
         (sum (current-buffer))
+       (gnus-display-mime-function nil)
         (found nil)
         (found nil)
-       point gnus-display-mime-function)
+       point)
      (gnus-save-hidden-threads
        (gnus-summary-select-article)
        (set-buffer gnus-article-buffer)
      (gnus-save-hidden-threads
        (gnus-summary-select-article)
        (set-buffer gnus-article-buffer)
@@ -6721,7 +6938,7 @@ article.  If BACKWARD (the prefix) is non-nil, search backward instead."
  If N is negative, print the N previous articles.  If N is nil and articles
  have been marked with the process mark, print these instead.
  
  If N is negative, print the N previous articles.  If N is nil and articles
  have been marked with the process mark, print these instead.
  
-If the optional second argument FILENAME is nil, send the image to the
+If the optional first argument FILENAME is nil, send the image to the
  printer.  If FILENAME is a string, save the PostScript image in a file with
  that name.  If FILENAME is a number, prompt the user for the name of the file
  to save in."
  printer.  If FILENAME is a string, save the PostScript image in a file with
  that name.  If FILENAME is a number, prompt the user for the name of the file
  to save in."
@@ -6737,14 +6954,14 @@ to save in."
               (set-buffer buffer)
               (gnus-article-delete-invisible-text)
               (let ((ps-left-header
               (set-buffer buffer)
               (gnus-article-delete-invisible-text)
               (let ((ps-left-header
-                    (list 
+                    (list
                       (concat "("
                               (mail-header-subject gnus-current-headers) ")")
                       (concat "("
                               (mail-header-from gnus-current-headers) ")")))
                       (concat "("
                               (mail-header-subject gnus-current-headers) ")")
                       (concat "("
                               (mail-header-from gnus-current-headers) ")")))
-                   (ps-right-header 
-                    (list 
-                     "/pagenumberstring load" 
+                   (ps-right-header
+                    (list
+                     "/pagenumberstring load"
                       (concat "("
                               (mail-header-date gnus-current-headers) ")"))))
                 (gnus-run-hooks 'gnus-ps-print-hook)
                       (concat "("
                               (mail-header-date gnus-current-headers) ")"))))
                 (gnus-run-hooks 'gnus-ps-print-hook)
@@ -6760,14 +6977,22 @@ article massaging functions being run."
    (if (not arg)
        ;; Select the article the normal way.
        (gnus-summary-select-article nil 'force)
    (if (not arg)
        ;; Select the article the normal way.
        (gnus-summary-select-article nil 'force)
+    ;; We have to require this here to make sure that the following
+    ;; dynamic binding isn't shadowed by autoloading.
+    (require 'gnus-async)
+    (require 'gnus-art)
      ;; Bind the article treatment functions to nil.
      (let ((gnus-have-all-headers t)
      ;; Bind the article treatment functions to nil.
      (let ((gnus-have-all-headers t)
-         gnus-article-display-hook
           gnus-article-prepare-hook
           gnus-article-decode-hook
           gnus-display-mime-function
           gnus-break-pages
           gnus-visual)
           gnus-article-prepare-hook
           gnus-article-decode-hook
           gnus-display-mime-function
           gnus-break-pages
           gnus-visual)
+      ;; Destroy any MIME parts.
+      (when (gnus-buffer-live-p gnus-article-buffer)
+       (save-excursion
+         (set-buffer gnus-article-buffer)
+         (mm-destroy-parts gnus-article-mime-handles)))
        (gnus-summary-select-article nil 'force)))
    (gnus-summary-goto-subject gnus-current-article)
    (gnus-summary-position-point))
        (gnus-summary-select-article nil 'force)))
    (gnus-summary-goto-subject gnus-current-article)
    (gnus-summary-position-point))
@@ -6792,25 +7017,30 @@ If ARG is a negative number, hide the unwanted header lines."
    (interactive "P")
    (save-excursion
      (set-buffer gnus-article-buffer)
    (interactive "P")
    (save-excursion
      (set-buffer gnus-article-buffer)
-    (let* ((buffer-read-only nil)
-          (inhibit-point-motion-hooks t)
-          (hidden (text-property-any
-                   (goto-char (point-min)) (search-forward "\n\n")
-                   'invisible t))
-          e)
-      (goto-char (point-min))
-      (when (search-forward "\n\n" nil t)
-       (delete-region (point-min) (1- (point))))
-      (goto-char (point-min))
-      (save-excursion
-       (set-buffer gnus-original-article-buffer)
+    (save-restriction
+      (let* ((buffer-read-only nil)
+            (inhibit-point-motion-hooks t)
+            hidden e)
+       (save-restriction 
+         (message-narrow-to-head)
+         (setq hidden (gnus-article-hidden-text-p 'headers)))
         (goto-char (point-min))
         (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)
-      (let ((article-inhibit-hiding t))
-       (gnus-run-hooks 'gnus-article-display-hook))
-      (when (or (not hidden) (and (numberp arg) (< arg 0)))
-       (gnus-article-hide-headers)))))
+       (when (search-forward "\n\n" nil t)
+         (delete-region (point-min) (1- (point))))
+       (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)
+       (save-restriction
+         (narrow-to-region (point-min) (point))
+         (if (or hidden
+                 (and (numberp arg) (< arg 0)))
+             (let ((gnus-treat-hide-headers nil)
+                   (gnus-treat-hide-boring-headers nil))
+               (gnus-treat-article 'head))
+           (gnus-treat-article 'head)))))))
  
  (defun gnus-summary-show-all-headers ()
    "Make all header lines visible."
  
  (defun gnus-summary-show-all-headers ()
    "Make all header lines visible."
@@ -6920,7 +7150,7 @@ and `request-accept' functions."
                   gnus-newsgroup-name)) ; Server
           (list 'gnus-request-accept-article
                 to-newsgroup (list 'quote select-method)
                   gnus-newsgroup-name)) ; Server
           (list 'gnus-request-accept-article
                 to-newsgroup (list 'quote select-method)
-               (not articles))         ; Accept form
+               (not articles) t)               ; Accept form
           (not articles)))              ; Only save nov last time
         ;; Copy the article.
         ((eq action 'copy)
           (not articles)))              ; Only save nov last time
         ;; Copy the article.
         ((eq action 'copy)
@@ -6928,7 +7158,7 @@ and `request-accept' functions."
            (set-buffer copy-buf)
            (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
              (gnus-request-accept-article
            (set-buffer copy-buf)
            (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
              (gnus-request-accept-article
-             to-newsgroup select-method (not articles)))))
+             to-newsgroup select-method (not articles) t))))
         ;; Crosspost the article.
         ((eq action 'crosspost)
          (let ((xref (message-tokenize-header
         ;; Crosspost the article.
         ((eq action 'crosspost)
          (let ((xref (message-tokenize-header
@@ -7042,7 +7272,7 @@ and `request-accept' functions."
  
         ;;;!!!Why is this necessary?
         (set-buffer gnus-summary-buffer)
  
         ;;;!!!Why is this necessary?
         (set-buffer gnus-summary-buffer)
-       
+
         (gnus-summary-goto-subject article)
         (when (eq action 'move)
           (gnus-summary-mark-article article gnus-canceled-mark))))
         (gnus-summary-goto-subject article)
         (when (eq action 'move)
           (gnus-summary-mark-article article gnus-canceled-mark))))
@@ -7075,7 +7305,7 @@ re-spool using this method."
  (defcustom gnus-summary-respool-default-method nil
    "Default method for respooling an article.
  If nil, use to the current newsgroup method."
  (defcustom gnus-summary-respool-default-method nil
    "Default method for respooling an article.
  If nil, use to the current newsgroup method."
-  :type `(choice (gnus-select-method :value (nnml ""))
+  :type '(choice (gnus-select-method :value (nnml ""))
                  (const nil))
    :group 'gnus-summary-mail)
  
                  (const nil))
    :group 'gnus-summary-mail)
  
@@ -7136,7 +7366,6 @@ latter case, they will be copied into the relevant groups."
         (error "Can't read %s" file))
      (save-excursion
        (set-buffer (gnus-get-buffer-create " *import file*"))
         (error "Can't read %s" file))
      (save-excursion
        (set-buffer (gnus-get-buffer-create " *import file*"))
-      (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (insert-file-contents file)
        (goto-char (point-min))
        (erase-buffer)
        (insert-file-contents file)
        (goto-char (point-min))
@@ -7272,22 +7501,22 @@ This will have permanent effect only in mail groups.
  If FORCE is non-nil, allow editing of articles even in read-only
  groups."
    (interactive "P")
  If FORCE is non-nil, allow editing of articles even in read-only
  groups."
    (interactive "P")
-  (save-excursion
-    (set-buffer gnus-summary-buffer)
-    (gnus-set-global-variables)
-    (when (and (not force)
-              (gnus-group-read-only-p))
-      (error "The current newsgroup does not support article editing"))
-    ;; Select article if needed.
-    (unless (eq (gnus-summary-article-number)
-               gnus-current-article)
-      (gnus-summary-select-article t))
-    (gnus-article-date-original)
-    (gnus-article-edit-article
-     `(lambda (no-highlight)
-       (gnus-summary-edit-article-done
-        ,(or (mail-header-references gnus-current-headers) "")
-        ,(gnus-group-read-only-p) ,gnus-summary-buffer no-highlight)))))
+  (let ((mail-parse-charset gnus-newsgroup-charset))
+    (save-excursion
+      (set-buffer gnus-summary-buffer)
+      (gnus-set-global-variables)
+      (when (and (not force)
+                (gnus-group-read-only-p))
+       (error "The current newsgroup does not support article editing"))
+      (gnus-summary-show-article t)
+      (gnus-article-edit-article
+       'mime-to-mml
+       `(lambda (no-highlight)
+         (let ((mail-parse-charset ',gnus-newsgroup-charset))
+           (mml-to-mime)
+           (gnus-summary-edit-article-done
+            ,(or (mail-header-references gnus-current-headers) "")
+            ,(gnus-group-read-only-p) ,gnus-summary-buffer no-highlight)))))))
  
  (defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit)
  
  
  (defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit)
  
@@ -7298,11 +7527,11 @@ groups."
    ;; Replace the article.
    (let ((buf (current-buffer)))
      (with-temp-buffer
    ;; Replace the article.
    (let ((buf (current-buffer)))
      (with-temp-buffer
-      (insert-buffer buf)
+      (insert-buffer-substring buf)
        (if (and (not read-only)
                (not (gnus-request-replace-article
                      (cdr gnus-article-current) (car gnus-article-current)
        (if (and (not read-only)
                (not (gnus-request-replace-article
                      (cdr gnus-article-current) (car gnus-article-current)
-                    (current-buffer))))
+                    (current-buffer) t)))
           (error "Couldn't replace article")
         ;; Update the summary buffer.
         (if (and references
           (error "Couldn't replace article")
         ;; Update the summary buffer.
         (if (and references
@@ -7340,7 +7569,8 @@ groups."
         (unless no-highlight
           (save-excursion
             (set-buffer gnus-article-buffer)
         (unless no-highlight
           (save-excursion
             (set-buffer gnus-article-buffer)
-           (gnus-run-hooks 'gnus-article-display-hook)
+           ;;;!!! Fix this -- article should be rehighlighted.
+           ;;;(gnus-run-hooks 'gnus-article-display-hook)
             (set-buffer gnus-original-article-buffer)
             (gnus-request-article
              (cdr gnus-article-current)
             (set-buffer gnus-original-article-buffer)
             (gnus-request-article
              (cdr gnus-article-current)
@@ -7503,7 +7733,7 @@ the actual number of articles marked is returned."
    "Mark ARTICLE replied and update the summary line."
    (push article gnus-newsgroup-replied)
    (let ((buffer-read-only nil))
    "Mark ARTICLE replied and update the summary line."
    (push article gnus-newsgroup-replied)
    (let ((buffer-read-only nil))
-    (when (gnus-summary-goto-subject article)
+    (when (gnus-summary-goto-subject article nil t)
        (gnus-summary-update-secondary-mark article))))
  
  (defun gnus-summary-set-bookmark (article)
        (gnus-summary-update-secondary-mark article))))
  
  (defun gnus-summary-set-bookmark (article)
@@ -7585,6 +7815,7 @@ If N is negative, mark backwards instead.  Mark with MARK, ?r by default.
  The difference between N and the actual number of articles marked is
  returned."
    (interactive "p")
  The difference between N and the actual number of articles marked is
  returned."
    (interactive "p")
+  (gnus-summary-show-thread)
    (let ((backward (< n 0))
         (gnus-summary-goto-unread
          (and gnus-summary-goto-unread
    (let ((backward (< n 0))
         (gnus-summary-goto-unread
          (and gnus-summary-goto-unread
@@ -7622,11 +7853,7 @@ returned."
      (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
      ;; Check for auto-expiry.
      (when (and gnus-newsgroup-auto-expire
      (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
      ;; Check for auto-expiry.
      (when (and gnus-newsgroup-auto-expire
-              (or (= mark gnus-killed-mark) (= mark gnus-del-mark)
-                  (= mark gnus-catchup-mark) (= mark gnus-low-score-mark)
-                  (= mark gnus-ancient-mark)
-                  (= mark gnus-read-mark) (= mark gnus-souped-mark)
-                  (= mark gnus-duplicate-mark)))
+              (memq mark gnus-auto-expirable-marks))
        (setq mark gnus-expirable-mark)
        ;; Let the backend know about the mark change.
        (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
        (setq mark gnus-expirable-mark)
        ;; Let the backend know about the mark change.
        (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
@@ -7677,25 +7904,21 @@ returned."
    "Mark ARTICLE with MARK.  MARK can be any character.
  Four MARK strings are reserved: `? ' (unread), `?!' (ticked),
  `??' (dormant) and `?E' (expirable).
    "Mark ARTICLE with MARK.  MARK can be any character.
  Four MARK strings are reserved: `? ' (unread), `?!' (ticked),
  `??' (dormant) and `?E' (expirable).
-If MARK is nil, then the default character `?D' is used.
+If MARK is nil, then the default character `?r' is used.
  If ARTICLE is nil, then the article on the current line will be
  marked."
    ;; The mark might be a string.
    (when (stringp mark)
      (setq mark (aref mark 0)))
    ;; If no mark is given, then we check auto-expiring.
  If ARTICLE is nil, then the article on the current line will be
  marked."
    ;; The mark might be a string.
    (when (stringp mark)
      (setq mark (aref mark 0)))
    ;; If no mark is given, then we check auto-expiring.
-  (and (not no-expire)
-       gnus-newsgroup-auto-expire
-       (or (not mark)
-          (and (gnus-characterp mark)
-               (or (= mark gnus-killed-mark) (= mark gnus-del-mark)
-                   (= mark gnus-catchup-mark) (= mark gnus-low-score-mark)
-                   (= mark gnus-read-mark) (= mark gnus-souped-mark)
-                   (= mark gnus-duplicate-mark))))
-       (setq mark gnus-expirable-mark))
-  (let* ((mark (or mark gnus-del-mark))
-        (article (or article (gnus-summary-article-number)))
-        (old-mark (gnus-summary-article-mark article)))
+  (when (null mark)
+    (setq mark gnus-del-mark))
+  (when (and (not no-expire)
+            gnus-newsgroup-auto-expire
+            (memq mark gnus-auto-expirable-marks))
+    (setq mark gnus-expirable-mark))
+  (let ((article (or article (gnus-summary-article-number)))
+       (old-mark (gnus-summary-article-mark article)))
      ;; Allow the backend to change the mark.
      (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
      (if (eq mark old-mark)
      ;; Allow the backend to change the mark.
      (setq mark (gnus-request-update-mark gnus-newsgroup-name article mark))
      (if (eq mark old-mark)
@@ -7747,19 +7970,19 @@ marked."
    (let ((forward (cdr (assq type gnus-summary-mark-positions)))
          (buffer-read-only nil))
      (re-search-backward "[\n\r]" (gnus-point-at-bol) 'move-to-limit)
    (let ((forward (cdr (assq type gnus-summary-mark-positions)))
          (buffer-read-only nil))
      (re-search-backward "[\n\r]" (gnus-point-at-bol) 'move-to-limit)
-    (when (looking-at "\r")
-      (incf forward))
-    (when (and forward
-               (<= (+ forward (point)) (point-max)))
-      ;; Go to the right position on the line.
-      (goto-char (+ forward (point)))
-      ;; Replace the old mark with the new mark.
-      (subst-char-in-region (point) (1+ (point)) (following-char) mark)
-      ;; Optionally update the marks by some user rule.
-      (when (eq type 'unread)
-        (gnus-data-set-mark
-         (gnus-data-find (gnus-summary-article-number)) mark)
-        (gnus-summary-update-line (eq mark gnus-unread-mark))))))
+    (when forward
+      (when (looking-at "\r")
+       (incf forward))
+      (when (<= (+ forward (point)) (point-max))
+       ;; Go to the right position on the line.
+       (goto-char (+ forward (point)))
+       ;; Replace the old mark with the new mark.
+       (subst-char-in-region (point) (1+ (point)) (char-after) mark)
+       ;; Optionally update the marks by some user rule.
+       (when (eq type 'unread)
+         (gnus-data-set-mark
+          (gnus-data-find (gnus-summary-article-number)) mark)
+         (gnus-summary-update-line (eq mark gnus-unread-mark)))))))
  
  (defun gnus-mark-article-as-read (article &optional mark)
    "Enter ARTICLE in the pertinent lists and remove it from others."
  
  (defun gnus-mark-article-as-read (article &optional mark)
    "Enter ARTICLE in the pertinent lists and remove it from others."
@@ -7840,14 +8063,15 @@ If N is negative, mark backwards instead.
  The difference between N and the actual number of articles marked is
  returned."
    (interactive "p")
  The difference between N and the actual number of articles marked is
  returned."
    (interactive "p")
-  (gnus-summary-mark-forward n gnus-del-mark t))
+  (gnus-summary-mark-forward n gnus-del-mark gnus-inhibit-user-auto-expire))
  
  (defun gnus-summary-mark-as-read-backward (n)
    "Mark the N articles as read backwards.
  The difference between N and the actual number of articles marked is
  returned."
    (interactive "p")
  
  (defun gnus-summary-mark-as-read-backward (n)
    "Mark the N articles as read backwards.
  The difference between N and the actual number of articles marked is
  returned."
    (interactive "p")
-  (gnus-summary-mark-forward (- n) gnus-del-mark t))
+  (gnus-summary-mark-forward
+   (- n) gnus-del-mark gnus-inhibit-user-auto-expire))
  
  (defun gnus-summary-mark-as-read (&optional article mark)
    "Mark current article as read.
  
  (defun gnus-summary-mark-as-read (&optional article mark)
    "Mark current article as read.
@@ -8130,25 +8354,15 @@ is non-nil or the Subject: of both articles are the same."
                          (gnus-summary-article-header parent-article))))
         (unless (and message-id (not (equal message-id "")))
           (error "No message-id in desired parent"))
                          (gnus-summary-article-header parent-article))))
         (unless (and message-id (not (equal message-id "")))
           (error "No message-id in desired parent"))
-       ;; We don't want the article to be marked as read.
-       (let (gnus-mark-article-hook)
-         (gnus-summary-select-article t t nil current-article))
-       (set-buffer gnus-original-article-buffer)
-       (let ((buf (format "%s" (buffer-string))))
-         (with-temp-buffer
-           (insert buf)
-           (goto-char (point-min))
-           (if (re-search-forward "^References: " nil t)
-               (progn
-                 (re-search-forward "^[^ \t]" nil t)
-                 (forward-line -1)
-                 (end-of-line)
-                 (insert " " message-id))
-             (insert "References: " message-id "\n"))
-           (unless (gnus-request-replace-article
-                    current-article (car gnus-article-current)
-                    (current-buffer))
-             (error "Couldn't replace article"))))
+       (gnus-with-article current-article
+         (goto-char (point-min))
+         (if (re-search-forward "^References: " nil t)
+             (progn
+               (re-search-forward "^[^ \t]" nil t)
+               (forward-line -1)
+               (end-of-line)
+               (insert " " message-id))
+           (insert "References: " message-id "\n")))
         (set-buffer gnus-summary-buffer)
         (gnus-summary-unmark-all-processable)
         (gnus-summary-update-article current-article)
         (set-buffer gnus-summary-buffer)
         (gnus-summary-unmark-all-processable)
         (gnus-summary-update-article current-article)
@@ -8382,27 +8596,31 @@ Argument REVERSE means reverse order."
    (gnus-summary-sort 'score reverse))
  
  (defun gnus-summary-sort-by-lines (&optional reverse)
    (gnus-summary-sort 'score reverse))
  
  (defun gnus-summary-sort-by-lines (&optional reverse)
-  "Sort the summary buffer by article length.
+  "Sort the summary buffer by the number of lines.
  Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'lines reverse))
  
  Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'lines reverse))
  
+(defun gnus-summary-sort-by-chars (&optional reverse)
+  "Sort the summary buffer by article length.
+Argument REVERSE means reverse order."
+  (interactive "P")
+  (gnus-summary-sort 'chars reverse))  
+
  (defun gnus-summary-sort (predicate reverse)
    "Sort summary buffer by PREDICATE.  REVERSE means reverse order."
    (let* ((thread (intern (format "gnus-thread-sort-by-%s" predicate)))
          (article (intern (format "gnus-article-sort-by-%s" predicate)))
          (gnus-thread-sort-functions
  (defun gnus-summary-sort (predicate reverse)
    "Sort summary buffer by PREDICATE.  REVERSE means reverse order."
    (let* ((thread (intern (format "gnus-thread-sort-by-%s" predicate)))
          (article (intern (format "gnus-article-sort-by-%s" predicate)))
          (gnus-thread-sort-functions
-         (list
-          (if (not reverse)
-              thread
-            `(lambda (t1 t2)
-               (,thread t2 t1)))))
+         (if (not reverse)
+             thread
+           `(lambda (t1 t2)
+              (,thread t2 t1))))
          (gnus-article-sort-functions
          (gnus-article-sort-functions
-         (list
-          (if (not reverse)
-              article
-            `(lambda (t1 t2)
-               (,article t2 t1)))))
+         (if (not reverse)
+             article
+           `(lambda (t1 t2)
+              (,article t2 t1))))
          (buffer-read-only)
          (gnus-summary-prepare-hook nil))
      ;; We do the sorting by regenerating the threads.
          (buffer-read-only)
          (gnus-summary-prepare-hook nil))
      ;; We do the sorting by regenerating the threads.
@@ -8425,10 +8643,9 @@ The variable `gnus-default-article-saver' specifies the saver function."
          (save-buffer (save-excursion
                         (nnheader-set-temp-buffer " *Gnus Save*")))
          (num (length articles))
          (save-buffer (save-excursion
                         (nnheader-set-temp-buffer " *Gnus Save*")))
          (num (length articles))
-        header article file)
-    (while articles
-      (setq header (gnus-summary-article-header
-                   (setq article (pop articles))))
+        header file)
+    (dolist (article articles)
+      (setq header (gnus-summary-article-header article))
        (if (not (vectorp header))
           ;; This is a pseudo-article.
           (if (assq 'name header)
        (if (not (vectorp header))
           ;; This is a pseudo-article.
           (if (assq 'name header)
@@ -8563,6 +8780,7 @@ save those articles instead."
  (defun gnus-valid-move-group-p (group)
    (and (boundp group)
         (symbol-name group)
  (defun gnus-valid-move-group-p (group)
    (and (boundp group)
         (symbol-name group)
+       (symbol-value group)
         (memq 'respool
              (assoc (symbol-name
                      (car (gnus-find-method-for-group
         (memq 'respool
              (assoc (symbol-name
                      (car (gnus-find-method-for-group
@@ -8653,7 +8871,7 @@ save those articles instead."
                                 (lambda (f)
                                   (if (equal f " ")
                                       f
                                 (lambda (f)
                                   (if (equal f " ")
                                       f
-                                   (gnus-quote-arg-for-sh-or-csh f)))
+                                   (mm-quote-arg f)))
                                 files " ")))))
           (setq ps (cdr ps)))))
      (if (and gnus-view-pseudos (not not-view))
                                 files " ")))))
           (setq ps (cdr ps)))))
      (if (and gnus-view-pseudos (not not-view))
@@ -8897,8 +9115,9 @@ save those articles instead."
         (setq unread (cdr unread)))
        (when (<= prev (cdr active))
         (push (cons prev (cdr active)) read))
         (setq unread (cdr unread)))
        (when (<= prev (cdr active))
         (push (cons prev (cdr active)) read))
+      (setq read (if (> (length read) 1) (nreverse read) read))
        (if compute
        (if compute
-         (if (> (length read) 1) (nreverse read) read)
+         read
         (save-excursion
           (set-buffer gnus-group-buffer)
           (gnus-undo-register
         (save-excursion
           (set-buffer gnus-group-buffer)
           (gnus-undo-register
@@ -8907,9 +9126,16 @@ save those articles instead."
                (gnus-info-set-read ',info ',(gnus-info-read info))
                (gnus-get-unread-articles-in-group ',info (gnus-active ,group))
                (gnus-group-update-group ,group t))))
                (gnus-info-set-read ',info ',(gnus-info-read info))
                (gnus-get-unread-articles-in-group ',info (gnus-active ,group))
                (gnus-group-update-group ,group t))))
+       ;; Propagate the read marks to the backend.
+       (if (gnus-check-backend-function 'request-set-mark group)
+           (let ((del (gnus-remove-from-range (gnus-info-read info) read))
+                 (add (gnus-remove-from-range read (gnus-info-read info))))
+             (when (or add del)
+               (gnus-request-set-mark
+                group (delq nil (list (if add (list add 'add '(read)))
+                                      (if del (list del 'del '(read)))))))))
         ;; Enter this list into the group info.
         ;; Enter this list into the group info.
-       (gnus-info-set-read
-        info (if (> (length read) 1) (nreverse read) read))
+       (gnus-info-set-read info read)
         ;; Set the number of unread articles in gnus-newsrc-hashtb.
         (gnus-get-unread-articles-in-group info (gnus-active group))
         t))))
         ;; Set the number of unread articles in gnus-newsrc-hashtb.
         (gnus-get-unread-articles-in-group info (gnus-active group))
         t))))
@@ -8942,6 +9168,100 @@ save those articles instead."
            (gnus-summary-exit))
          buffers)))))
  
            (gnus-summary-exit))
          buffers)))))
  
+(defun gnus-summary-setup-default-charset ()
+  "Setup newsgroup default charset."
+  (let ((name (and gnus-newsgroup-name
+                  (gnus-group-real-name gnus-newsgroup-name))))
+    (setq gnus-newsgroup-charset
+         (or (and gnus-newsgroup-name
+                  (or (gnus-group-find-parameter gnus-newsgroup-name
+                                                 'charset)
+                      (let ((alist gnus-group-charset-alist)
+                            elem (charset nil))
+                        (while (setq elem (pop alist))
+                          (when (and name
+                                     (string-match (car elem) name))
+                            (setq alist nil
+                                  charset (cadr elem))))
+                        charset)))
+             gnus-default-charset))))
+
+;;;
+;;; Mime Commands
+;;;
+
+(defun gnus-summary-display-buttonized (&optional show-all-parts)
+  "Display the current article buffer fully MIME-buttonized.
+If SHOW-ALL-PARTS (the prefix) is non-nil, all multipart/* parts are
+treated as multipart/mixed."
+  (interactive "P")
+  (require 'gnus-art)
+  (let ((gnus-unbuttonized-mime-types nil)
+       (gnus-mime-display-multipart-as-mixed show-all-parts))
+    (gnus-summary-show-article)))
+
+(defun gnus-summary-repair-multipart (article)
+  "Add a Content-Type header to a multipart article without one."
+  (interactive (list (gnus-summary-article-number)))
+  (gnus-with-article article
+    (message-narrow-to-head)
+    (goto-char (point-max))
+    (widen)
+    (when (search-forward "\n--" nil t)
+      (let ((separator (buffer-substring (point) (gnus-point-at-eol))))
+       (message-narrow-to-head)
+       (message-remove-header "Mime-Version")
+       (message-remove-header "Content-Type")
+       (goto-char (point-max))
+       (insert (format "Content-Type: multipart/mixed; boundary=\"%s\"\n"
+                       separator))
+       (insert "Mime-Version: 1.0\n")
+       (widen))))
+  (let (gnus-mark-article-hook)
+    (gnus-summary-select-article t t nil article)))
+
+(defun gnus-summary-toggle-display-buttonized ()
+  "Toggle the buttonizing of the article buffer."
+  (interactive)
+  (require 'gnus-art)
+  (if (setq gnus-inhibit-mime-unbuttonizing
+           (not gnus-inhibit-mime-unbuttonizing))
+      (let ((gnus-unbuttonized-mime-types nil))
+       (gnus-summary-show-article))
+    (gnus-summary-show-article)))
+
+;;;
+;;; with article
+;;;
+
+(defmacro gnus-with-article (article &rest forms)
+  "Select ARTICLE and perform FORMS in the original article buffer.
+Then replace the article with the result."
+  `(progn
+     ;; We don't want the article to be marked as read.
+     (let (gnus-mark-article-hook)
+       (gnus-summary-select-article t t nil ,article))
+     (set-buffer gnus-original-article-buffer)
+     ,@forms
+     (if (not (gnus-check-backend-function
+              'request-replace-article (car gnus-article-current)))
+        (gnus-message 5 "Read-only group; not replacing")
+       (unless (gnus-request-replace-article
+               ,article (car gnus-article-current)
+               (current-buffer) t)
+        (error "Couldn't replace article")))
+     ;; The cache and backlog have to be flushed somewhat.
+     (when gnus-keep-backlog
+       (gnus-backlog-remove-article
+       (car gnus-article-current) (cdr gnus-article-current)))
+     (when gnus-use-cache
+       (gnus-cache-update-article
+       (car gnus-article-current) (cdr gnus-article-current)))))
+
+(put 'gnus-with-article 'lisp-indent-function 1)
+(put 'gnus-with-article 'edebug-form-spec '(form body))
+
+
  (gnus-ems-redefine)
  
  (provide 'gnus-sum)
  (gnus-ems-redefine)
  
  (provide 'gnus-sum)