2001-01-09 Michael Downes <mjd@ams.org>

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

index 3ea6812..c1dd161 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1,5 +1,6 @@
  ;;; gnus-sum.el --- summary mode commands for Gnus
  ;;; gnus-sum.el --- summary mode commands for Gnus
-;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000
+;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;; Keywords: news
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
  ;; Keywords: news
@@ -35,7 +36,14 @@
  (require 'gnus-undo)
  (require 'gnus-util)
  (require 'mm-decode)
  (require 'gnus-undo)
  (require 'gnus-util)
  (require 'mm-decode)
+;; Recursive :-(.
+;; (require 'gnus-art)
+(require 'nnoo)
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
  (autoload 'gnus-summary-limit-include-cached "gnus-cache" nil t)
+(autoload 'gnus-cache-write-active "gnus-cache")
+(autoload 'gnus-mailing-list-insinuate "gnus-ml" nil t)
+(autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil t)
+(autoload 'mm-uu-dissect "mm-uu")
  
  (defcustom gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
  
  (defcustom gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
@@ -168,10 +176,15 @@ This variable will only be used if the value of
    :type 'string)
  
  (defcustom gnus-summary-goto-unread t
    :type 'string)
  
  (defcustom gnus-summary-goto-unread t
-  "*If t, marking commands will go to the next unread article.
-If `never', commands that usually go to the next unread article, will
-go to the next article, whether it is read or not.
-If nil, only the marking commands will go to the next (un)read article."
+  "*If t, many commands will go to the next unread article.
+This applies to marking commands as well as other commands that
+\"naturally\" select the next article, like, for instance, `SPC' at
+the end of an article.
+
+If nil, the marking commands do NOT go to the next unread article
+(they go to the next article instead).  If `never', commands that
+usually go to the next unread article, will go to the next article,
+whether it is read or not."
    :group 'gnus-summary-marks
    :link '(custom-manual "(gnus)Setting Marks")
    :type '(choice (const :tag "off" nil)
    :group 'gnus-summary-marks
    :link '(custom-manual "(gnus)Setting Marks")
    :type '(choice (const :tag "off" nil)
@@ -339,7 +352,9 @@ variable."
  
  (defcustom gnus-move-split-methods nil
    "*Variable used to suggest where articles are to be moved to.
  
  (defcustom gnus-move-split-methods nil
    "*Variable used to suggest where articles are to be moved to.
-It uses the same syntax as the `gnus-split-methods' variable."
+It uses the same syntax as the `gnus-split-methods' variable.
+However, whereas `gnus-split-methods' specifies file names as targets,
+this variable specifies group names."
    :group 'gnus-summary-mail
    :type '(repeat (choice (list :value (fun) function)
                          (cons :value ("" "") regexp (repeat string))
    :group 'gnus-summary-mail
    :type '(repeat (choice (list :value (fun) function)
                          (cons :value ("" "") regexp (repeat string))
@@ -415,6 +430,11 @@ 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-no-mark ?  ;Whitespace
+  "*Mark used for articles that have no other secondary mark."
+  :group 'gnus-summary-marks
+  :type 'character)
+
  (defcustom gnus-ancient-mark ?O
    "*Mark used for ancient articles."
    :group 'gnus-summary-marks
  (defcustom gnus-ancient-mark ?O
    "*Mark used for ancient articles."
    :group 'gnus-summary-marks
@@ -480,11 +500,13 @@ It uses the same syntax as the `gnus-split-methods' variable."
         gnus-low-score-mark gnus-ancient-mark gnus-read-mark
         gnus-souped-mark gnus-duplicate-mark)
    "*The list of marks converted into expiration if a group is auto-expirable."
         gnus-low-score-mark gnus-ancient-mark gnus-read-mark
         gnus-souped-mark gnus-duplicate-mark)
    "*The list of marks converted into expiration if a group is auto-expirable."
+  :version "21.1"
    :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 '(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."
+  :version "21.1"
    :group 'gnus-summary
    :type 'boolean)
  
    :group 'gnus-summary
    :type 'boolean)
  
@@ -545,6 +567,7 @@ with some simple extensions:
  (defcustom gnus-list-identifiers nil
    "Regexp that matches list identifiers to be removed from subject.
  This can also be a list of regexps."
  (defcustom gnus-list-identifiers nil
    "Regexp that matches list identifiers to be removed from subject.
  This can also be a list of regexps."
+  :version "21.1"
    :group 'gnus-summary-format
    :group 'gnus-article-hiding
    :type '(choice (const :tag "none" nil)
    :group 'gnus-summary-format
    :group 'gnus-article-hiding
    :type '(choice (const :tag "none" nil)
@@ -623,6 +646,7 @@ This variable is local to the summary buffers."
  (defcustom gnus-summary-mode-hook nil
    "*A hook for Gnus summary mode.
  This hook is run before any variables are set in the summary buffer."
  (defcustom gnus-summary-mode-hook nil
    "*A hook for Gnus summary mode.
  This hook is run before any variables are set in the summary buffer."
+  :options '(turn-on-gnus-mailing-list-mode)
    :group 'gnus-summary-various
    :type 'hook)
  
    :group 'gnus-summary-various
    :type 'hook)
  
@@ -693,7 +717,8 @@ is not run if `gnus-visual' is nil."
    :type 'hook)
  
  (defcustom gnus-exit-group-hook nil
    :type 'hook)
  
  (defcustom gnus-exit-group-hook nil
-  "*A hook called when exiting (not quitting) summary mode."
+  "*A hook called when exiting summary mode.
+This hook is not called from the non-updating exit commands like `Q'."
    :group 'gnus-various
    :type 'hook)
  
    :group 'gnus-various
    :type 'hook)
  
@@ -797,12 +822,14 @@ which it may alter in any way.")
  
  (defcustom gnus-extra-headers nil
    "*Extra headers to parse."
  
  (defcustom gnus-extra-headers nil
    "*Extra headers to parse."
+  :version "21.1"
    :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 '(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."
+  :version "21.1"
    :group 'gnus-summary
    :type 'regexp)
  
    :group 'gnus-summary
    :type 'regexp)
  
@@ -810,11 +837,14 @@ which it may alter in any way.")
    '(("^hk\\>\\|^tw\\>\\|\\<big5\\>" cn-big5)
      ("^cn\\>\\|\\<chinese\\>" cn-gb-2312)
      ("^fj\\>\\|^japan\\>" iso-2022-jp-2)
    '(("^hk\\>\\|^tw\\>\\|\\<big5\\>" cn-big5)
      ("^cn\\>\\|\\<chinese\\>" cn-gb-2312)
      ("^fj\\>\\|^japan\\>" iso-2022-jp-2)
+    ("^tnn\\>\\|^pin\\>\\|^sci.lang.japan" iso-2022-7bit)
      ("^relcom\\>" koi8-r)
      ("^fido7\\>" koi8-r)
      ("^\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2)
      ("^israel\\>" iso-8859-1)
      ("^han\\>" euc-kr)
      ("^relcom\\>" koi8-r)
      ("^fido7\\>" koi8-r)
      ("^\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2)
      ("^israel\\>" iso-8859-1)
      ("^han\\>" euc-kr)
+    ("^alt.chinese.text.big5\\>" chinese-big5)
+    ("^soc.culture.vietnamese\\>" vietnamese-viqr)
      ("^\\(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."
      ("^\\(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."
@@ -826,10 +856,11 @@ which it may alter in any way.")
    "List of charsets that should be ignored.
  When these charsets are used in the \"charset\" parameter, the
  default charset will be used instead."
    "List of charsets that should be ignored.
  When these charsets are used in the \"charset\" parameter, the
  default charset will be used instead."
+  :version "21.1"
    :type '(repeat symbol)
    :group 'gnus-charset)
  
    :type '(repeat symbol)
    :group 'gnus-charset)
  
-(defcustom gnus-group-ignored-charsets-alist 
+(defcustom gnus-group-ignored-charsets-alist
    '(("alt\\.chinese\\.text" iso-8859-1))
    "Alist of regexps (to match group names) and charsets that should be ignored.
  When these charsets are used in the \"charset\" parameter, the
    '(("alt\\.chinese\\.text" iso-8859-1))
    "Alist of regexps (to match group names) and charsets that should be ignored.
  When these charsets are used in the \"charset\" parameter, the
@@ -841,11 +872,12 @@ default charset will be used instead."
  (defcustom gnus-group-highlight-words-alist nil
    "Alist of group regexps and highlight regexps.
  This variable uses the same syntax as `gnus-emphasis-alist'."
  (defcustom gnus-group-highlight-words-alist nil
    "Alist of group regexps and highlight regexps.
  This variable uses the same syntax as `gnus-emphasis-alist'."
+  :version "21.1"
    :type '(repeat (cons (regexp :tag "Group")
                        (repeat (list (regexp :tag "Highlight regexp")
                                      (number :tag "Group for entire word" 0)
                                      (number :tag "Group for displayed part" 0)
    :type '(repeat (cons (regexp :tag "Group")
                        (repeat (list (regexp :tag "Highlight regexp")
                                      (number :tag "Group for entire word" 0)
                                      (number :tag "Group for displayed part" 0)
-                                    (symbol :tag "Face" 
+                                    (symbol :tag "Face"
                                              gnus-emphasis-highlight-words)))))
    :group 'gnus-summary-visual)
  
                                              gnus-emphasis-highlight-words)))))
    :group 'gnus-summary-visual)
  
@@ -855,15 +887,50 @@ This variable uses the same syntax as `gnus-emphasis-alist'."
  The article will be shown with the charset corresponding to the
  numbered argument.
  For example: ((1 . cn-gb-2312) (2 . big5))."
  The article will be shown with the charset corresponding to the
  numbered argument.
  For example: ((1 . cn-gb-2312) (2 . big5))."
+  :version "21.1"
    :type '(repeat (cons (number :tag "Argument" 1)
                        (symbol :tag "Charset")))
    :group 'gnus-charset)
  
    :type '(repeat (cons (number :tag "Argument" 1)
                        (symbol :tag "Charset")))
    :group 'gnus-charset)
  
+(defcustom gnus-preserve-marks t
+  "Whether marks are preserved when moving, copying and respooling messages."
+  :version "21.1"
+  :type 'boolean
+  :group 'gnus-summary-marks)
+
+(defcustom gnus-alter-articles-to-read-function nil
+  "Function to be called to alter the list of articles to be selected."
+  :type 'function
+  :group 'gnus-summary)
+
+(defcustom gnus-orphan-score nil
+  "*All orphans get this score added.  Set in the score file."
+  :group 'gnus-score-default
+  :type '(choice (const nil)
+                integer))
+
+(defcustom gnus-summary-save-parts-default-mime "image/.*"
+  "*A regexp to match MIME parts when saving multiple parts of a message
+with gnus-summary-save-parts (X m). This regexp will be used by default
+when prompting the user for which type of files to save."
+  :group 'gnus-summary
+  :type 'regexp)
+
+
+(defcustom gnus-summary-save-parts-default-mime "image/.*"
+  "*A regexp to match MIME parts when saving multiple parts of a message
+with gnus-summary-save-parts (X m). This regexp will be used by default
+when prompting the user for which type of files to save."
+  :group 'gnus-summary
+  :type 'regexp)
+
  
  ;;; Internal variables
  
  (defvar gnus-article-mime-handles nil)
  (defvar gnus-article-decoded-p nil)
  
  ;;; Internal variables
  
  (defvar gnus-article-mime-handles nil)
  (defvar gnus-article-decoded-p nil)
+(defvar gnus-article-charset nil)
+(defvar gnus-article-ignored-charsets nil)
  (defvar gnus-scores-exclude-files nil)
  (defvar gnus-page-broken nil)
  (defvar gnus-inhibit-mime-unbuttonizing nil)
  (defvar gnus-scores-exclude-files nil)
  (defvar gnus-page-broken nil)
  (defvar gnus-inhibit-mime-unbuttonizing nil)
@@ -877,6 +944,12 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
  (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number
    "Function called to sort the articles within a thread after it has been gathered together.")
  
  (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number
    "Function called to sort the articles within a thread after it has been gathered together.")
  
+(defvar gnus-summary-save-parts-type-history nil)
+(defvar gnus-summary-save-parts-last-directory nil)
+
+(defvar gnus-summary-save-parts-type-history nil)
+(defvar gnus-summary-save-parts-last-directory nil)
+
  ;; Avoid highlighting in kill files.
  (defvar gnus-summary-inhibit-highlight nil)
  (defvar gnus-newsgroup-selected-overlay nil)
  ;; Avoid highlighting in kill files.
  (defvar gnus-summary-inhibit-highlight nil)
  (defvar gnus-newsgroup-selected-overlay nil)
@@ -932,9 +1005,9 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
         ?c)
      (?u gnus-tmp-user-defined ?s)
      (?P (gnus-pick-line-number) ?d))
         ?c)
      (?u gnus-tmp-user-defined ?s)
      (?P (gnus-pick-line-number) ?d))
-  "An alist of format specifications that can appear in summary lines,
-and what variables they correspond with, along with the type of the
-variable (string, integer, character, etc).")
+  "An alist of format specifications that can appear in summary lines.
+These are paired with what variables they correspond with, along with
+the type of the variable (string, integer, character, etc).")
  
  (defvar gnus-summary-dummy-line-format-alist
    `((?S gnus-tmp-subject ?s)
  
  (defvar gnus-summary-dummy-line-format-alist
    `((?S gnus-tmp-subject ?s)
@@ -1054,6 +1127,8 @@ variable (string, integer, character, etc).")
  (defvar gnus-newsgroup-ephemeral-charset nil)
  (defvar gnus-newsgroup-ephemeral-ignored-charsets nil)
  
  (defvar gnus-newsgroup-ephemeral-charset nil)
  (defvar gnus-newsgroup-ephemeral-ignored-charsets nil)
  
+(defvar gnus-article-before-search nil)
+
  (defconst gnus-summary-local-variables
    '(gnus-newsgroup-name
      gnus-newsgroup-begin gnus-newsgroup-end
  (defconst gnus-summary-local-variables
    '(gnus-newsgroup-name
      gnus-newsgroup-begin gnus-newsgroup-end
@@ -1077,6 +1152,7 @@ variable (string, integer, character, etc).")
      gnus-score-alist gnus-current-score-file
      (gnus-summary-expunge-below . global)
      (gnus-summary-mark-below . global)
      gnus-score-alist gnus-current-score-file
      (gnus-summary-expunge-below . global)
      (gnus-summary-mark-below . global)
+    (gnus-orphan-score . global)
      gnus-newsgroup-active gnus-scores-exclude-files
      gnus-newsgroup-history gnus-newsgroup-ancient
      gnus-newsgroup-sparse gnus-newsgroup-process-stack
      gnus-newsgroup-active gnus-scores-exclude-files
      gnus-newsgroup-history gnus-newsgroup-ancient
      gnus-newsgroup-sparse gnus-newsgroup-process-stack
@@ -1089,8 +1165,11 @@ variable (string, integer, character, etc).")
      gnus-newsgroup-charset)
    "Variables that are buffer-local to the summary buffers.")
  
      gnus-newsgroup-charset)
    "Variables that are buffer-local to the summary buffers.")
  
+(defvar gnus-newsgroup-variables nil
+  "Variables that have separate values in the newsgroups.")
+
  ;; Byte-compiler warning.
  ;; Byte-compiler warning.
-(defvar gnus-article-mode-map)
+(eval-when-compile (defvar gnus-article-mode-map))
  
  ;; MIME stuff.
  
  
  ;; MIME stuff.
  
@@ -1106,8 +1185,7 @@ whose names match REGEXP.
  For example:
  ((\"chinese\" . gnus-decode-encoded-word-string-by-guess)
   mail-decode-encoded-word-string
  For example:
  ((\"chinese\" . gnus-decode-encoded-word-string-by-guess)
   mail-decode-encoded-word-string
- (\"chinese\" . rfc1843-decode-string))
-")
+ (\"chinese\" . rfc1843-decode-string))")
  
  (defvar gnus-decode-encoded-word-methods-cache nil)
  
  
  (defvar gnus-decode-encoded-word-methods-cache nil)
  
@@ -1134,7 +1212,7 @@ For example:
  ;; Subject simplification.
  
  (defun gnus-simplify-whitespace (str)
  ;; Subject simplification.
  
  (defun gnus-simplify-whitespace (str)
-  "Remove excessive whitespace."
+  "Remove excessive whitespace from STR."
    (let ((mystr str))
      ;; Multiple spaces.
      (while (string-match "[ \t][ \t]+" mystr)
    (let ((mystr str))
      ;; Multiple spaces.
      (while (string-match "[ \t][ \t]+" mystr)
@@ -1187,7 +1265,7 @@ The string in the accessible portion of the current buffer is simplified.
  It is assumed to be a single-line subject.
  Whitespace is generally cleaned up, and miscellaneous leading/trailing
  matter is removed.  Additional things can be deleted by setting
  It is assumed to be a single-line subject.
  Whitespace is generally cleaned up, and miscellaneous leading/trailing
  matter is removed.  Additional things can be deleted by setting
-gnus-simplify-subject-fuzzy-regexp."
+`gnus-simplify-subject-fuzzy-regexp'."
    (let ((case-fold-search t)
         (modified-tick))
      (gnus-simplify-buffer-fuzzy-step "\t" " ")
    (let ((case-fold-search t)
         (modified-tick))
      (gnus-simplify-buffer-fuzzy-step "\t" " ")
@@ -1311,6 +1389,8 @@ increase the score of each group you read."
      "\M-\C-h" gnus-summary-hide-thread
      "\M-\C-f" gnus-summary-next-thread
      "\M-\C-b" gnus-summary-prev-thread
      "\M-\C-h" gnus-summary-hide-thread
      "\M-\C-f" gnus-summary-next-thread
      "\M-\C-b" gnus-summary-prev-thread
+    [(meta down)] gnus-summary-next-thread
+    [(meta up)] gnus-summary-prev-thread
      "\M-\C-u" gnus-summary-up-thread
      "\M-\C-d" gnus-summary-down-thread
      "&" gnus-summary-execute-command
      "\M-\C-u" gnus-summary-up-thread
      "\M-\C-d" gnus-summary-down-thread
      "&" gnus-summary-execute-command
@@ -1359,7 +1439,7 @@ increase the score of each group you read."
      "\C-d" gnus-summary-enter-digest-group
      "\M-\C-d" gnus-summary-read-document
      "\M-\C-e" gnus-summary-edit-parameters
      "\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
+    "\M-\C-a" 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
@@ -1421,7 +1501,7 @@ increase the score of each group you read."
      "T" gnus-summary-limit-include-thread
      "d" gnus-summary-limit-exclude-dormant
      "t" gnus-summary-limit-to-age
      "T" gnus-summary-limit-include-thread
      "d" gnus-summary-limit-exclude-dormant
      "t" gnus-summary-limit-to-age
-    "x" gnus-summary-limit-to-extra 
+    "x" gnus-summary-limit-to-extra
      "E" gnus-summary-limit-include-expunged
      "c" gnus-summary-limit-exclude-childless-dormant
      "C" gnus-summary-limit-mark-excluded-as-read)
      "E" gnus-summary-limit-include-expunged
      "c" gnus-summary-limit-exclude-childless-dormant
      "C" gnus-summary-limit-mark-excluded-as-read)
@@ -1498,6 +1578,7 @@ increase the score of each group you read."
      "g" gnus-summary-show-article
      "s" gnus-summary-isearch-article
      "P" gnus-summary-print-article
      "g" gnus-summary-show-article
      "s" gnus-summary-isearch-article
      "P" gnus-summary-print-article
+    "M" gnus-mailing-list-insinuate
      "t" gnus-article-babel)
  
    (gnus-define-keys (gnus-summary-wash-map "W" gnus-summary-mode-map)
      "t" gnus-article-babel)
  
    (gnus-define-keys (gnus-summary-wash-map "W" gnus-summary-mode-map)
@@ -1510,12 +1591,17 @@ increase the score of each group you read."
      "C" gnus-article-capitalize-sentences
      "c" gnus-article-remove-cr
      "q" gnus-article-de-quoted-unreadable
      "C" gnus-article-capitalize-sentences
      "c" gnus-article-remove-cr
      "q" gnus-article-de-quoted-unreadable
+    "6" gnus-article-de-base64-unreadable
+    "Z" gnus-article-decode-HZ
+    "h" gnus-article-wash-html
+    "s" gnus-summary-force-verify-and-decrypt
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "r" gnus-summary-caesar-message
      "f" gnus-article-display-x-face
      "l" gnus-summary-stop-page-breaking
      "r" gnus-summary-caesar-message
-    "t" gnus-article-hide-headers
+    "t" gnus-summary-toggle-header
      "v" gnus-summary-verbose-headers
      "H" gnus-article-strip-headers-in-body
      "v" gnus-summary-verbose-headers
      "H" gnus-article-strip-headers-in-body
+    "p" gnus-article-verify-x-pgp-sig
      "d" gnus-article-treat-dumbquotes)
  
    (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
      "d" gnus-article-treat-dumbquotes)
  
    (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
@@ -1547,6 +1633,7 @@ increase the score of each group you read."
      "z" gnus-article-date-ut
      "u" gnus-article-date-ut
      "l" gnus-article-date-local
      "z" gnus-article-date-ut
      "u" gnus-article-date-ut
      "l" gnus-article-date-local
+    "p" gnus-article-date-english
      "e" gnus-article-date-lapsed
      "o" gnus-article-date-original
      "i" gnus-article-date-iso8601
      "e" gnus-article-date-lapsed
      "o" gnus-article-date-original
      "i" gnus-article-date-iso8601
@@ -1602,7 +1689,9 @@ increase the score of each group you read."
      "v" gnus-article-view-part
      "o" gnus-article-save-part
      "c" gnus-article-copy-part
      "v" gnus-article-view-part
      "o" gnus-article-save-part
      "c" gnus-article-copy-part
+    "C" gnus-article-view-part-as-charset
      "e" gnus-article-externalize-part
      "e" gnus-article-externalize-part
+    "E" gnus-article-encrypt-body
      "i" gnus-article-inline-part
      "|" gnus-article-pipe-part))
  
      "i" gnus-article-inline-part
      "|" gnus-article-pipe-part))
  
@@ -1617,7 +1706,6 @@ increase the score of each group you read."
        "Score"
        (nconc
         (list
        "Score"
        (nconc
         (list
-       ["Enter score..." gnus-summary-score-entry t]
         ["Customize" gnus-score-customize t])
         (gnus-make-score-map 'increase)
         (gnus-make-score-map 'lower)
         ["Customize" gnus-score-customize t])
         (gnus-make-score-map 'increase)
         (gnus-make-score-map 'lower)
@@ -1642,7 +1730,7 @@ increase the score of each group you read."
      ;; Define both the Article menu in the summary buffer and the equivalent
      ;; Commands menu in the article buffer here for consistency.
      (let ((innards
      ;; Define both the Article menu in the summary buffer and the equivalent
      ;; Commands menu in the article buffer here for consistency.
      (let ((innards
-           '(("Hide"
+           `(("Hide"
                ["All" gnus-article-hide t]
                ["Headers" gnus-article-hide-headers t]
                ["Signature" gnus-article-hide-signature t]
                ["All" gnus-article-hide t]
                ["Headers" gnus-article-hide-headers t]
                ["Signature" gnus-article-hide-signature t]
@@ -1660,7 +1748,10 @@ increase the score of each group you read."
               ["Words" gnus-article-decode-mime-words t]
               ["Charset" gnus-article-decode-charset t]
               ["QP" gnus-article-de-quoted-unreadable t]
               ["Words" gnus-article-decode-mime-words t]
               ["Charset" gnus-article-decode-charset t]
               ["QP" gnus-article-de-quoted-unreadable t]
-             ["View all" gnus-mime-view-all-parts t])
+             ["Base64" gnus-article-de-base64-unreadable t]
+             ["View all" gnus-mime-view-all-parts t]
+             ["Verify and Decrypt" gnus-summary-force-verify-and-decrypt t]
+             ["Encrypt body" gnus-article-encrypt-body t])
               ("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]
@@ -1686,17 +1777,26 @@ increase the score of each group you read."
                ["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]
-              ["Rot 13" gnus-summary-caesar-message t]
+              ["Base64" gnus-article-de-base64-unreadable t]
+              ["Rot 13" gnus-summary-caesar-message
+              ,@(if (featurep 'xemacs) nil
+                  '(:help "\"Caesar rotate\" article by 13"))]
                ["Unix pipe" gnus-summary-pipe-message t]
                ["Add buttons" gnus-article-add-buttons t]
                ["Add buttons to head" gnus-article-add-buttons-to-head t]
                ["Stop page breaking" gnus-summary-stop-page-breaking t]
                ["Verbose header" gnus-summary-verbose-headers t]
                ["Toggle header" gnus-summary-toggle-header t]
                ["Unix pipe" gnus-summary-pipe-message t]
                ["Add buttons" gnus-article-add-buttons t]
                ["Add buttons to head" gnus-article-add-buttons-to-head t]
                ["Stop page breaking" gnus-summary-stop-page-breaking t]
                ["Verbose header" gnus-summary-verbose-headers t]
                ["Toggle header" gnus-summary-toggle-header t]
+             ["Html" gnus-article-wash-html t]
+             ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t]
               ["HZ" gnus-article-decode-HZ t])
               ("Output"
               ["HZ" gnus-article-decode-HZ t])
               ("Output"
-              ["Save in default format" gnus-summary-save-article t]
-              ["Save in file" gnus-summary-save-article-file t]
+              ["Save in default format" gnus-summary-save-article
+              ,@(if (featurep 'xemacs) nil
+                  '(:help "Save article using default method"))]
+              ["Save in file" gnus-summary-save-article-file
+              ,@(if (featurep 'xemacs) nil
+                  '(:help "Save article in file"))]
                ["Save in Unix mail format" gnus-summary-save-article-mail t]
                ["Save in MH folder" gnus-summary-save-article-folder t]
                ["Save in VM folder" gnus-summary-save-article-vm t]
                ["Save in Unix mail format" gnus-summary-save-article-mail t]
                ["Save in MH folder" gnus-summary-save-article-folder t]
                ["Save in VM folder" gnus-summary-save-article-vm t]
@@ -1727,7 +1827,9 @@ increase the score of each group you read."
                 (gnus-check-backend-function
                  'request-expire-articles gnus-newsgroup-name)])
               ("Extract"
                 (gnus-check-backend-function
                  'request-expire-articles gnus-newsgroup-name)])
               ("Extract"
-              ["Uudecode" gnus-uu-decode-uu t]
+              ["Uudecode" gnus-uu-decode-uu
+              ,@(if (featurep 'xemacs) nil
+                  '(:help "Decode uuencoded article(s)"))]
                ["Uudecode and save" gnus-uu-decode-uu-and-save t]
                ["Unshar" gnus-uu-decode-unshar t]
                ["Unshar and save" gnus-uu-decode-unshar-and-save t]
                ["Uudecode and save" gnus-uu-decode-uu-and-save t]
                ["Unshar" gnus-uu-decode-unshar t]
                ["Unshar and save" gnus-uu-decode-unshar-and-save t]
@@ -1747,6 +1849,7 @@ increase the score of each group you read."
               ["Fetch referenced articles" gnus-summary-refer-references t]
               ["Fetch current thread" gnus-summary-refer-thread t]
               ["Fetch article with id..." gnus-summary-refer-article t]
               ["Fetch referenced articles" gnus-summary-refer-references t]
               ["Fetch current thread" gnus-summary-refer-thread t]
               ["Fetch article with id..." gnus-summary-refer-article t]
+             ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
               ["Redisplay" gnus-summary-show-article t])))
        (easy-menu-define
         gnus-summary-article-menu gnus-summary-mode-map ""
               ["Redisplay" gnus-summary-show-article t])))
        (easy-menu-define
         gnus-summary-article-menu gnus-summary-mode-map ""
@@ -1776,16 +1879,26 @@ increase the score of each group you read."
  
      (easy-menu-define
       gnus-summary-post-menu gnus-summary-mode-map ""
  
      (easy-menu-define
       gnus-summary-post-menu gnus-summary-mode-map ""
-     '("Post"
-       ["Post an article" gnus-summary-post-news t]
-       ["Followup" gnus-summary-followup t]
-       ["Followup and yank" gnus-summary-followup-with-original t]
+     `("Post"
+       ["Post an article" gnus-summary-post-news
+       ,@(if (featurep 'xemacs) nil
+           '(:help "Post an article"))]
+       ["Followup" gnus-summary-followup
+       ,@(if (featurep 'xemacs) nil
+           '(:help "Post followup to this article"))]
+       ["Followup and yank" gnus-summary-followup-with-original
+       ,@(if (featurep 'xemacs) nil
+           '(:help "Post followup to this article, quoting its contents"))]
         ["Supersede article" gnus-summary-supersede-article t]
         ["Supersede article" gnus-summary-supersede-article t]
-       ["Cancel article" gnus-summary-cancel-article t]
+       ["Cancel article" gnus-summary-cancel-article
+       ,@(if (featurep 'xemacs) nil
+           '(:help "Cancel an article you posted"))]
         ["Reply" gnus-summary-reply t]
         ["Reply and yank" gnus-summary-reply-with-original t]
         ["Wide reply" gnus-summary-wide-reply t]
         ["Reply" gnus-summary-reply t]
         ["Reply and yank" gnus-summary-reply-with-original t]
         ["Wide reply" gnus-summary-wide-reply t]
-       ["Wide reply and yank" gnus-summary-wide-reply-with-original t]
+       ["Wide reply and yank" gnus-summary-wide-reply-with-original
+       ,@(if (featurep 'xemacs) nil
+           '(:help "Mail a reply, quoting this article"))]
         ["Mail forward" gnus-summary-mail-forward t]
         ["Post forward" gnus-summary-post-forward t]
         ["Digest and mail" gnus-uu-digest-mail-forward t]
         ["Mail forward" gnus-summary-mail-forward t]
         ["Post forward" gnus-summary-post-forward t]
         ["Digest and mail" gnus-uu-digest-mail-forward t]
@@ -1793,7 +1906,9 @@ increase the score of each group you read."
         ["Resend message" gnus-summary-resend-message t]
         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
         ["Send a mail" gnus-summary-mail-other-window t]
         ["Resend message" gnus-summary-resend-message t]
         ["Send bounced mail" gnus-summary-resend-bounced-mail t]
         ["Send a mail" gnus-summary-mail-other-window t]
-       ["Uuencode and post" gnus-uu-post-news t]
+       ["Uuencode and post" gnus-uu-post-news
+       ,@(if (featurep 'xemacs) nil
+           '(:help "Post a uuencoded article"))]
         ["Followup via news" gnus-summary-followup-to-mail t]
         ["Followup via news and yank"
         gnus-summary-followup-to-mail-with-original t]
         ["Followup via news" gnus-summary-followup-to-mail t]
         ["Followup via news and yank"
         gnus-summary-followup-to-mail-with-original t]
@@ -1804,13 +1919,15 @@ increase the score of each group you read."
  
      (easy-menu-define
       gnus-summary-misc-menu gnus-summary-mode-map ""
  
      (easy-menu-define
       gnus-summary-misc-menu gnus-summary-mode-map ""
-     '("Misc"
+     `("Misc"
         ("Mark Read"
         ["Mark as read" gnus-summary-mark-as-read-forward t]
         ["Mark same subject and select"
          gnus-summary-kill-same-subject-and-select t]
         ["Mark same subject" gnus-summary-kill-same-subject t]
         ("Mark Read"
         ["Mark as read" gnus-summary-mark-as-read-forward t]
         ["Mark same subject and select"
          gnus-summary-kill-same-subject-and-select t]
         ["Mark same subject" gnus-summary-kill-same-subject t]
-       ["Catchup" gnus-summary-catchup t]
+       ["Catchup" gnus-summary-catchup
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Mark unread articles in this group as read"))]
         ["Catchup all" gnus-summary-catchup-all t]
         ["Catchup to here" gnus-summary-catchup-to-here t]
         ["Catchup region" gnus-summary-mark-region-as-read t]
         ["Catchup all" gnus-summary-catchup-all t]
         ["Catchup to here" gnus-summary-catchup-to-here t]
         ["Catchup region" gnus-summary-mark-region-as-read t]
@@ -1860,8 +1977,12 @@ increase the score of each group you read."
           gnus-newsgroup-process-stack]
          ["Save" gnus-summary-save-process-mark t]))
         ("Scroll article"
           gnus-newsgroup-process-stack]
          ["Save" gnus-summary-save-process-mark t]))
         ("Scroll article"
-       ["Page forward" gnus-summary-next-page t]
-       ["Page backward" gnus-summary-prev-page t]
+       ["Page forward" gnus-summary-next-page
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Show next page of article"))]
+       ["Page backward" gnus-summary-prev-page
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Show previous page of article"))]
         ["Line forward" gnus-summary-scroll-up t])
         ("Move"
         ["Next unread article" gnus-summary-next-unread-article t]
         ["Line forward" gnus-summary-scroll-up t])
         ("Move"
         ["Next unread article" gnus-summary-next-unread-article t]
@@ -1912,10 +2033,14 @@ increase the score of each group you read."
         ["Customize group parameters" gnus-summary-customize-parameters t]
         ["Send a bug report" gnus-bug t]
         ("Exit"
         ["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]
+       ["Catchup and exit" gnus-summary-catchup-and-exit
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Mark unread articles in this group as read, then exit"))]
         ["Catchup all and exit" gnus-summary-catchup-all-and-exit t]
         ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
         ["Catchup all and exit" gnus-summary-catchup-all-and-exit t]
         ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t]
-       ["Exit group" gnus-summary-exit t]
+       ["Exit group" gnus-summary-exit
+        ,@(if (featurep 'xemacs) nil
+            '(:help "Exit current group, return to group selection mode"))]
         ["Exit group without updating" gnus-summary-exit-no-update t]
         ["Exit and goto next group" gnus-summary-next-group t]
         ["Exit and goto prev group" gnus-summary-prev-group t]
         ["Exit group without updating" gnus-summary-exit-no-update t]
         ["Exit and goto next group" gnus-summary-next-group t]
         ["Exit and goto prev group" gnus-summary-prev-group t]
@@ -1925,6 +2050,50 @@ increase the score of each group you read."
  
      (gnus-run-hooks 'gnus-summary-menu-hook)))
  
  
      (gnus-run-hooks 'gnus-summary-menu-hook)))
  
+(defvar gnus-summary-tool-bar-map nil)
+
+;; Emacs 21 tool bar.  Should be no-op otherwise.
+(defun gnus-summary-make-tool-bar ()
+  (if (and (fboundp 'tool-bar-add-item-from-menu)
+          (default-value 'tool-bar-mode)
+          (not gnus-summary-tool-bar-map))
+      (setq gnus-summary-tool-bar-map
+           (let ((tool-bar-map (make-sparse-keymap))
+                 (load-path (mm-image-load-path)))
+             (tool-bar-add-item-from-menu
+              'gnus-summary-prev-unread "prev-ur" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-next-unread "next-ur" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-post-news "post" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-followup-with-original "fuwo" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-followup "followup" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-reply-with-original "reply-wo" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-reply "reply" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-caesar-message "rot13" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-uu-decode-uu "uu-decode" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-save-article-file "save-aif" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-save-article "save-art" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-uu-post-news "uu-post" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-catchup "catchup" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-catchup-and-exit "cu-exit" gnus-summary-mode-map)
+             (tool-bar-add-item-from-menu
+              'gnus-summary-exit "exit-summ" gnus-summary-mode-map)
+             tool-bar-map)))
+  (if gnus-summary-tool-bar-map
+      (set (make-local-variable 'tool-bar-map) gnus-summary-tool-bar-map)))
+
  (defun gnus-score-set-default (var value)
    "A version of set that updates the GNU Emacs menu-bar."
    (set var value)
  (defun gnus-score-set-default (var value)
    "A version of set that updates the GNU Emacs menu-bar."
    (set var value)
@@ -1995,7 +2164,8 @@ increase the score of each group you read."
                                                (list 'gnus-summary-header
                                                      (nth 1 header)))
                                              (list 'quote (nth 1 (car ts)))
                                                (list 'gnus-summary-header
                                                      (nth 1 header)))
                                              (list 'quote (nth 1 (car ts)))
-                                            (list 'gnus-score-default nil)
+                                            (list 'gnus-score-delta-default
+                                                  nil)
                                              (nth 1 (car ps))
                                              t)
                                             t)
                                              (nth 1 (car ps))
                                              t)
                                             t)
@@ -2032,10 +2202,13 @@ The following commands are available:
  
  \\{gnus-summary-mode-map}"
    (interactive)
  
  \\{gnus-summary-mode-map}"
    (interactive)
-  (when (gnus-visual-p 'summary-menu 'menu)
-    (gnus-summary-make-menu-bar))
    (kill-all-local-variables)
    (kill-all-local-variables)
+  (when (gnus-visual-p 'summary-menu 'menu)
+    (gnus-summary-make-menu-bar)
+    (gnus-summary-make-tool-bar))
    (gnus-summary-make-local-variables)
    (gnus-summary-make-local-variables)
+  (let ((gnus-summary-local-variables gnus-newsgroup-variables))
+    (gnus-summary-make-local-variables))
    (gnus-make-thread-indent-array)
    (gnus-simplify-mode-line)
    (setq major-mode 'gnus-summary-mode)
    (gnus-make-thread-indent-array)
    (gnus-simplify-mode-line)
    (setq major-mode 'gnus-summary-mode)
@@ -2058,7 +2231,8 @@ The following commands are available:
    (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)
-  (mm-enable-multibyte)
+  (turn-on-gnus-mailing-list-mode)
+  (mm-enable-multibyte-mule4)
    (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
    (gnus-update-summary-mark-positions))
  
    (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
    (gnus-update-summary-mark-positions))
  
@@ -2395,12 +2569,13 @@ marks of articles."
  
  (defun gnus-restore-hidden-threads-configuration (config)
    "Restore hidden threads configuration from CONFIG."
  
  (defun gnus-restore-hidden-threads-configuration (config)
    "Restore hidden threads configuration from CONFIG."
-  (let (point buffer-read-only)
-    (while (setq point (pop config))
-      (when (and (< point (point-max))
-                (goto-char point)
-                (eq (char-after) ?\n))
-       (subst-char-in-region point (1+ point) ?\n ?\r)))))
+  (save-excursion
+    (let (point buffer-read-only)
+      (while (setq point (pop config))
+       (when (and (< point (point-max))
+                  (goto-char point)
+                  (eq (char-after) ?\n))
+         (subst-char-in-region point (1+ point) ?\n ?\r))))))
  
  ;; Various summary mode internalish functions.
  
  
  ;; Various summary mode internalish functions.
  
@@ -2410,9 +2585,10 @@ marks of articles."
    (gnus-summary-next-page nil t))
  
  (defun gnus-summary-set-display-table ()
    (gnus-summary-next-page nil t))
  
  (defun gnus-summary-set-display-table ()
-  ;; Change the display table.  Odd characters have a tendency to mess
-  ;; up nicely formatted displays - we make all possible glyphs
-  ;; display only a single character.
+  "Change the display table.
+Odd characters have a tendency to mess
+up nicely formatted displays - we make all possible glyphs
+display only a single character."
  
    ;; We start from the standard display table, if any.
    (let ((table (or (copy-sequence standard-display-table)
  
    ;; We start from the standard display table, if any.
    (let ((table (or (copy-sequence standard-display-table)
@@ -2435,9 +2611,13 @@ marks of articles."
           (aset table i [??]))))
      (setq buffer-display-table table)))
  
           (aset table i [??]))))
      (setq buffer-display-table table)))
  
+(defun gnus-summary-buffer-name (group)
+  "Return the summary buffer name of GROUP."
+  (concat "*Summary " group "*"))
+
  (defun gnus-summary-setup-buffer (group)
    "Initialize summary buffer."
  (defun gnus-summary-setup-buffer (group)
    "Initialize summary buffer."
-  (let ((buffer (concat "*Summary " group "*")))
+  (let ((buffer (gnus-summary-buffer-name group)))
      (if (get-buffer buffer)
         (progn
           (set-buffer buffer)
      (if (get-buffer buffer)
         (progn
           (set-buffer buffer)
@@ -2456,9 +2636,9 @@ marks of articles."
        t)))
  
  (defun gnus-set-global-variables ()
        t)))
  
  (defun gnus-set-global-variables ()
-  ;; Set the global equivalents of the summary buffer-local variables
-  ;; to the latest values they had.  These reflect the summary buffer
-  ;; that was in action when the last article was fetched.
+  "Set the global equivalents of the buffer-local variables.
+They are set to the latest values they had.  These reflect the summary
+buffer that was in action when the last article was fetched."
    (when (eq major-mode 'gnus-summary-mode)
      (setq gnus-summary-buffer (current-buffer))
      (let ((name gnus-newsgroup-name)
    (when (eq major-mode 'gnus-summary-mode)
      (setq gnus-summary-buffer (current-buffer))
      (let ((name gnus-newsgroup-name)
@@ -2472,7 +2652,15 @@ marks of articles."
           (gac gnus-article-current)
           (reffed gnus-reffed-article-number)
           (score-file gnus-current-score-file)
           (gac gnus-article-current)
           (reffed gnus-reffed-article-number)
           (score-file gnus-current-score-file)
-         (default-charset gnus-newsgroup-charset))
+         (default-charset gnus-newsgroup-charset)
+         vlist)
+      (let ((locals gnus-newsgroup-variables))
+       (while locals
+         (if (consp (car locals))
+             (push (eval (caar locals)) vlist)
+           (push (eval (car locals)) vlist))
+         (setq locals (cdr locals)))
+       (setq vlist (nreverse vlist)))
        (save-excursion
         (set-buffer gnus-group-buffer)
         (setq gnus-newsgroup-name name
        (save-excursion
         (set-buffer gnus-group-buffer)
         (setq gnus-newsgroup-name name
@@ -2487,6 +2675,12 @@ marks of articles."
               gnus-reffed-article-number reffed
               gnus-current-score-file score-file
               gnus-newsgroup-charset default-charset)
               gnus-reffed-article-number reffed
               gnus-current-score-file score-file
               gnus-newsgroup-charset default-charset)
+       (let ((locals gnus-newsgroup-variables))
+         (while locals
+           (if (consp (car locals))
+               (set (caar locals) (pop vlist))
+             (set (car locals) (pop vlist)))
+           (setq locals (cdr locals))))
         ;; 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)
@@ -2564,7 +2758,7 @@ marks of articles."
    (let ((to (cdr (assq 'To (mail-header-extra header))))
         (newsgroups (cdr (assq 'Newsgroups (mail-header-extra header))))
         (mail-parse-charset gnus-newsgroup-charset)
    (let ((to (cdr (assq 'To (mail-header-extra header))))
         (newsgroups (cdr (assq 'Newsgroups (mail-header-extra header))))
         (mail-parse-charset gnus-newsgroup-charset)
-       (mail-parse-ignored-charsets 
+       (mail-parse-ignored-charsets
          (save-excursion (set-buffer gnus-summary-buffer)
                          gnus-newsgroup-ignored-charsets)))
      (cond
          (save-excursion (set-buffer gnus-summary-buffer)
                          gnus-newsgroup-ignored-charsets)))
      (cond
@@ -2610,15 +2804,14 @@ marks of articles."
                 (gnus-tmp-replied gnus-replied-mark)
                 ((memq gnus-tmp-current gnus-newsgroup-saved)
                  gnus-saved-mark)
                 (gnus-tmp-replied gnus-replied-mark)
                 ((memq gnus-tmp-current gnus-newsgroup-saved)
                  gnus-saved-mark)
-               (t gnus-unread-mark)))
+               (t gnus-no-mark)))
          (gnus-tmp-from (mail-header-from gnus-tmp-header))
          (gnus-tmp-name
           (cond
            ((string-match "<[^>]+> *$" gnus-tmp-from)
             (let ((beg (match-beginning 0)))
          (gnus-tmp-from (mail-header-from gnus-tmp-header))
          (gnus-tmp-name
           (cond
            ((string-match "<[^>]+> *$" gnus-tmp-from)
             (let ((beg (match-beginning 0)))
-             (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
-                      (substring gnus-tmp-from (1+ (match-beginning 0))
-                                 (1- (match-end 0))))
+             (or (and (string-match "^\".+\"" gnus-tmp-from)
+                      (substring gnus-tmp-from 1 (1- (match-end 0))))
                   (substring gnus-tmp-from 0 beg))))
            ((string-match "(.+)" gnus-tmp-from)
             (substring gnus-tmp-from
                   (substring gnus-tmp-from 0 beg))))
            ((string-match "(.+)" gnus-tmp-from)
             (substring gnus-tmp-from
@@ -2643,7 +2836,7 @@ marks of articles."
        (forward-line 1))))
  
  (defun gnus-summary-update-line (&optional dont-update)
        (forward-line 1))))
  
  (defun gnus-summary-update-line (&optional dont-update)
-  ;; Update summary line after change.
+  "Update summary line after change."
    (when (and gnus-summary-default-score
              (not gnus-summary-inhibit-highlight))
      (let* ((gnus-summary-inhibit-highlight t) ; Prevent recursion.
    (when (and gnus-summary-default-score
              (not gnus-summary-inhibit-highlight))
      (let* ((gnus-summary-inhibit-highlight t) ; Prevent recursion.
@@ -2784,7 +2977,10 @@ If NO-DISPLAY, don't generate a summary buffer."
               (gnus-group-jump-to-group group)
               (gnus-group-next-unread-group 1))
           (gnus-handle-ephemeral-exit quit-config)))
               (gnus-group-jump-to-group group)
               (gnus-group-next-unread-group 1))
           (gnus-handle-ephemeral-exit quit-config)))
-      (gnus-message 3 "Can't select group")
+      (let ((grpinfo (gnus-get-info group)))
+        (if (null (gnus-info-read grpinfo))
+            (gnus-message 3 "Group %s contains no messages" group)
+          (gnus-message 3 "Can't select group")))
        nil)
       ;; The user did a `C-g' while prompting for number of articles,
       ;; so we exit this group.
        nil)
       ;; The user did a `C-g' while prompting for number of articles,
       ;; so we exit this group.
@@ -3028,7 +3224,7 @@ If NO-DISPLAY, don't generate a summary buffer."
      result))
  
  (defun gnus-sort-gathered-threads (threads)
      result))
  
  (defun gnus-sort-gathered-threads (threads)
-  "Sort subtreads inside each gathered thread by article number."
+  "Sort subtreads inside each gathered thread by `gnus-sort-gathered-threads-function'."
    (let ((result threads))
      (while threads
        (when (stringp (caar threads))
    (let ((result threads))
      (while threads
        (when (stringp (caar threads))
@@ -3264,7 +3460,9 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
                  (nnheader-nov-read-integer) ; chars
                  (nnheader-nov-read-integer) ; lines
                  (unless (eobp)
                  (nnheader-nov-read-integer) ; chars
                  (nnheader-nov-read-integer) ; lines
                  (unless (eobp)
-                  (nnheader-nov-field)) ; misc
+                  (if (looking-at "Xref: ")
+                      (goto-char (match-end 0)))
+                  (nnheader-nov-field)) ; Xref
                  (nnheader-nov-parse-extra)))) ; extra
  
        (widen))
                  (nnheader-nov-parse-extra)))) ; extra
  
        (widen))
@@ -3274,9 +3472,9 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
      (gnus-dependencies-add-header header dependencies force-new)))
  
  (defun gnus-build-get-header (id)
      (gnus-dependencies-add-header header dependencies force-new)))
  
  (defun gnus-build-get-header (id)
-  ;; Look through the buffer of NOV lines and find the header to
-  ;; ID.  Enter this line into the dependencies hash table, and return
-  ;; the id of the parent article (if any).
+  "Look through the buffer of NOV lines and find the header to ID.
+Enter this line into the dependencies hash table, and return
+the id of the parent article (if any)."
    (let ((deps gnus-newsgroup-dependencies)
         found header)
      (prog1
    (let ((deps gnus-newsgroup-dependencies)
         found header)
      (prog1
@@ -3358,17 +3556,19 @@ Returns HEADER if it was entered in the DEPENDENCIES.  Returns nil otherwise."
         (memq article gnus-newsgroup-expirable)
         ;; Only insert the Subject string when it's different
         ;; from the previous Subject string.
         (memq article gnus-newsgroup-expirable)
         ;; Only insert the Subject string when it's different
         ;; from the previous Subject string.
-       (if (gnus-subject-equal
-           (condition-case ()
-               (mail-header-subject
-                (gnus-data-header
-                 (cadr
-                  (gnus-data-find-list
-                   article
-                   (gnus-data-list t)))))
-             ;; Error on the side of excessive subjects.
-             (error ""))
-           (mail-header-subject header))
+       (if (and
+           gnus-show-threads
+           (gnus-subject-equal
+            (condition-case ()
+                (mail-header-subject
+                 (gnus-data-header
+                  (cadr
+                   (gnus-data-find-list
+                    article
+                    (gnus-data-list t)))))
+              ;; Error on the side of excessive subjects.
+              (error ""))
+            (mail-header-subject header)))
            ""
          (mail-header-subject header))
         nil (cdr (assq article gnus-newsgroup-scored))
            ""
          (mail-header-subject header))
         nil (cdr (assq article gnus-newsgroup-scored))
@@ -3582,7 +3782,6 @@ If LINE, insert the rebuilt thread starting on line LINE."
                   (while thread
                     (gnus-remove-thread-1 (car thread))
                     (setq thread (cdr thread))))
                   (while thread
                     (gnus-remove-thread-1 (car thread))
                     (setq thread (cdr thread))))
-             (gnus-summary-show-all-threads)
               (gnus-remove-thread-1 thread))))))))
  
  (defun gnus-remove-thread-1 (thread)
               (gnus-remove-thread-1 thread))))))))
  
  (defun gnus-remove-thread-1 (thread)
@@ -3594,6 +3793,7 @@ If LINE, insert the rebuilt thread starting on line LINE."
        (gnus-remove-thread-1 (pop thread)))
      (when (setq d (gnus-data-find number))
        (goto-char (gnus-data-pos d))
        (gnus-remove-thread-1 (pop thread)))
      (when (setq d (gnus-data-find number))
        (goto-char (gnus-data-pos d))
+      (gnus-summary-show-thread)
        (gnus-data-remove
         number
         (- (gnus-point-at-bol)
        (gnus-data-remove
         number
         (- (gnus-point-at-bol)
@@ -3601,13 +3801,22 @@ If LINE, insert the rebuilt thread starting on line LINE."
               (1+ (gnus-point-at-eol))
             (gnus-delete-line)))))))
  
               (1+ (gnus-point-at-eol))
             (gnus-delete-line)))))))
  
+(defun gnus-sort-threads-1 (threads func)
+  (sort (mapcar (lambda (thread)
+                 (cons (car thread)
+                       (and (cdr thread)
+                            (gnus-sort-threads-1 (cdr thread) func))))
+               threads) func))
+
  (defun gnus-sort-threads (threads)
    "Sort THREADS."
    (if (not gnus-thread-sort-functions)
        threads
      (gnus-message 8 "Sorting threads...")
      (prog1
  (defun gnus-sort-threads (threads)
    "Sort THREADS."
    (if (not gnus-thread-sort-functions)
        threads
      (gnus-message 8 "Sorting threads...")
      (prog1
-       (sort threads (gnus-make-sort-function gnus-thread-sort-functions))
+       (gnus-sort-threads-1 
+        threads 
+        (gnus-make-sort-function gnus-thread-sort-functions))
        (gnus-message 8 "Sorting threads...done"))))
  
  (defun gnus-sort-articles (articles)
        (gnus-message 8 "Sorting threads...done"))))
  
  (defun gnus-sort-articles (articles)
@@ -3622,12 +3831,12 @@ If LINE, insert the rebuilt thread starting on line LINE."
  
  ;; Written by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>.
  (defmacro gnus-thread-header (thread)
  
  ;; Written by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>.
  (defmacro gnus-thread-header (thread)
-  ;; Return header of first article in THREAD.
-  ;; Note that THREAD must never, ever be anything else than a variable -
-  ;; using some other form will lead to serious barfage.
+  "Return header of first article in THREAD.
+Note that THREAD must never, ever be anything else than a variable -
+using some other form will lead to serious barfage."
    (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread)))
    ;; (8% speedup to gnus-summary-prepare, just for fun :-)
    (or (symbolp thread) (signal 'wrong-type-argument '(symbolp thread)))
    ;; (8% speedup to gnus-summary-prepare, just for fun :-)
-  (list 'byte-code "\10\211:\203\17\0\211@;\203\16\0A@@\207" 
+  (list 'byte-code "\10\211:\203\17\0\211@;\203\16\0A@@\207"
         (vector thread) 2))
  
  (defsubst gnus-article-sort-by-number (h1 h2)
         (vector thread) 2))
  
  (defsubst gnus-article-sort-by-number (h1 h2)
@@ -3751,7 +3960,7 @@ 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)
+(eval-when-compile (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-extra-header (type &optional header)
    "Return the extra header of TYPE."
    (or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
@@ -3966,15 +4175,14 @@ or a straight list of headers."
                     gnus-replied-mark)
                    ((memq number gnus-newsgroup-saved)
                     gnus-saved-mark)
                     gnus-replied-mark)
                    ((memq number gnus-newsgroup-saved)
                     gnus-saved-mark)
-                  (t gnus-unread-mark))
+                  (t gnus-no-mark))
              gnus-tmp-from (mail-header-from gnus-tmp-header)
              gnus-tmp-name
              (cond
               ((string-match "<[^>]+> *$" gnus-tmp-from)
                (setq beg-match (match-beginning 0))
              gnus-tmp-from (mail-header-from gnus-tmp-header)
              gnus-tmp-name
              (cond
               ((string-match "<[^>]+> *$" gnus-tmp-from)
                (setq beg-match (match-beginning 0))
-              (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
-                       (substring gnus-tmp-from (1+ (match-beginning 0))
-                                  (1- (match-end 0))))
+              (or (and (string-match "^\".+\"" gnus-tmp-from)
+                       (substring gnus-tmp-from 1 (1- (match-end 0))))
                    (substring gnus-tmp-from 0 beg-match)))
               ((string-match "(.+)" gnus-tmp-from)
                (substring gnus-tmp-from
                    (substring gnus-tmp-from 0 beg-match)))
               ((string-match "(.+)" gnus-tmp-from)
                (substring gnus-tmp-from
@@ -4044,13 +4252,17 @@ or a straight list of headers."
                     gnus-list-identifiers
                   (mapconcat 'identity gnus-list-identifiers " *\\|"))))
      (dolist (header gnus-newsgroup-headers)
                     gnus-list-identifiers
                   (mapconcat 'identity gnus-list-identifiers " *\\|"))))
      (dolist (header gnus-newsgroup-headers)
-      (when (string-match (concat "\\(Re: +\\)?\\(" regexp " *\\)")
+      (when (string-match (concat "\\(\\(\\(Re: +\\)?\\(" regexp 
+                                 " *\\)\\)+\\(Re: +\\)?\\)")
                           (mail-header-subject header))
         (mail-header-set-subject
          header (concat (substring (mail-header-subject header)
                           (mail-header-subject header))
         (mail-header-set-subject
          header (concat (substring (mail-header-subject header)
-                                  0 (match-beginning 2))
+                                  0 (match-beginning 1))
+                       (or
+                        (match-string 3 (mail-header-subject header))
+                        (match-string 5 (mail-header-subject header)))
                         (substring (mail-header-subject header)
                         (substring (mail-header-subject header)
-                                  (match-end 2))))))))
+                                  (match-end 1))))))))
  
  (defun gnus-select-newsgroup (group &optional read-all select-articles)
    "Select newsgroup GROUP.
  
  (defun gnus-select-newsgroup (group &optional read-all select-articles)
    "Select newsgroup GROUP.
@@ -4075,7 +4287,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
         (progn                          ; Or we bug out.
           (when (equal major-mode 'gnus-summary-mode)
             (kill-buffer (current-buffer)))
         (progn                          ; Or we bug out.
           (when (equal major-mode 'gnus-summary-mode)
             (kill-buffer (current-buffer)))
-         (error "Couldn't request group %s: %s"
+         (error "Couldn't activate group %s: %s"
                  group (gnus-status-message group))))
  
      (unless (gnus-request-group group t)
                  group (gnus-status-message group))))
  
      (unless (gnus-request-group group t)
@@ -4191,7 +4403,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
        (or gnus-newsgroup-headers t)))))
  
  (defun gnus-articles-to-read (group &optional read-all)
        (or gnus-newsgroup-headers t)))))
  
  (defun gnus-articles-to-read (group &optional read-all)
-  ;; Find out what articles the user wants to read.
+  "Find out what articles the user wants to read."
    (let* ((articles
           ;; Select all articles if `read-all' is non-nil, or if there
           ;; are no unread articles.
    (let* ((articles
           ;; Select all articles if `read-all' is non-nil, or if there
           ;; are no unread articles.
@@ -4238,7 +4450,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                     (if (string-match "^[ \t]*$" input)
                         number input)))
                  (t number))
                     (if (string-match "^[ \t]*$" input)
                         number input)))
                  (t number))
-             (quit nil))))))
+             (quit
+              (message "Quit getting the articles to read")
+              nil))))))
      (setq select (if (stringp select) (string-to-number select) select))
      (if (or (null select) (zerop select))
         select
      (setq select (if (stringp select) (string-to-number select) select))
      (if (or (null select) (zerop select))
         select
@@ -4258,6 +4472,12 @@ If SELECT-ARTICLES, only select those articles from GROUP."
             (gnus-sorted-intersection
              gnus-newsgroup-unreads
              (gnus-sorted-complement gnus-newsgroup-unreads articles)))
             (gnus-sorted-intersection
              gnus-newsgroup-unreads
              (gnus-sorted-complement gnus-newsgroup-unreads articles)))
+      (when gnus-alter-articles-to-read-function
+       (setq gnus-newsgroup-unreads
+             (sort 
+              (funcall gnus-alter-articles-to-read-function
+                       gnus-newsgroup-name gnus-newsgroup-unreads)
+              '<)))
        articles)))
  
  (defun gnus-killed-articles (killed articles)
        articles)))
  
  (defun gnus-killed-articles (killed articles)
@@ -4364,21 +4584,27 @@ 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)))))
  
-       (or (memq (cdr type) uncompressed)
-           (setq list (gnus-compress-sequence (set symbol (sort list '<)) t)))
+       (unless (memq (cdr type) uncompressed)
+         (setq list (gnus-compress-sequence (set symbol (sort list '<)) t)))
         
         
-       (when (gnus-check-backend-function 'request-set-mark
-                                          gnus-newsgroup-name)
+       (when (gnus-check-backend-function
+              'request-set-mark gnus-newsgroup-name)
+         ;; propagate flags to server, with the following exceptions:
           ;; uncompressed:s are not proper flags (they are cons cells)
           ;; cache is a internal gnus flag
           ;; uncompressed:s are not proper flags (they are cons cells)
           ;; cache is a internal gnus flag
-         (unless (memq (cdr type) (cons 'cache uncompressed))
+         ;; download are local to one gnus installation (well)
+         ;; unsend are for nndraft groups only
+         ;; xxx: generality of this?  this suits nnimap anyway
+         (unless (memq (cdr type) (append '(cache download unsend)
+                                          uncompressed))
             (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
                    (del (gnus-remove-from-range (gnus-copy-sequence old) list))
             (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
                    (del (gnus-remove-from-range (gnus-copy-sequence old) list))
-                  (add (gnus-remove-from-range (gnus-copy-sequence list) old)))
-             (if add
-                 (push (list add 'add (list (cdr type))) delta-marks))
-             (if del
-                 (push (list del 'del (list (cdr type))) delta-marks)))))
+                  (add (gnus-remove-from-range
+                        (gnus-copy-sequence list) old)))
+             (when add
+               (push (list add 'add (list (cdr type))) delta-marks))
+             (when del
+               (push (list del 'del (list (cdr type))) delta-marks)))))
           
         (when list
           (push (cons (cdr type) list) newmarked)))
           
         (when list
           (push (cons (cdr type) list) newmarked)))
@@ -4403,7 +4629,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
             (setcdr (nthcdr i info) nil)))))))
  
  (defun gnus-set-mode-line (where)
             (setcdr (nthcdr i info) nil)))))))
  
  (defun gnus-set-mode-line (where)
-  "This function sets the mode line of the article or summary buffers.
+  "Set 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 (and (memq where gnus-updated-mode-lines)
  If WHERE is `summary', the summary mode line format will be used."
    ;; Is this mode line one we keep updated?
    (when (and (memq where gnus-updated-mode-lines)
@@ -4419,7 +4645,11 @@ If WHERE is `summary', the summary mode line format will be used."
         (let* ((mformat (symbol-value
                          (intern
                           (format "gnus-%s-mode-line-format-spec" where))))
         (let* ((mformat (symbol-value
                          (intern
                           (format "gnus-%s-mode-line-format-spec" where))))
-              (gnus-tmp-group-name gnus-newsgroup-name)
+              (gnus-tmp-group-name (gnus-group-name-decode 
+                                    gnus-newsgroup-name
+                                    (gnus-group-name-charset 
+                                     nil
+                                     gnus-newsgroup-name)))
                (gnus-tmp-article-number (or gnus-current-article 0))
                (gnus-tmp-unread gnus-newsgroup-unreads)
                (gnus-tmp-unread-and-unticked (length gnus-newsgroup-unreads))
                (gnus-tmp-article-number (or gnus-current-article 0))
                (gnus-tmp-unread gnus-newsgroup-unreads)
                (gnus-tmp-unread-and-unticked (length gnus-newsgroup-unreads))
@@ -4615,7 +4845,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
                              gnus-newsgroup-dependencies)))
         headers id end ref
         (mail-parse-charset gnus-newsgroup-charset)
                              gnus-newsgroup-dependencies)))
         headers id end ref
         (mail-parse-charset gnus-newsgroup-charset)
-       (mail-parse-ignored-charsets 
+       (mail-parse-ignored-charsets
          (save-excursion (condition-case nil
                              (set-buffer gnus-summary-buffer)
                            (error))
          (save-excursion (condition-case nil
                              (set-buffer gnus-summary-buffer)
                            (error))
@@ -4662,7 +4892,8 @@ The resulting hash table is returned, or nil if no Xrefs were found."
             ;; From.
             (progn
               (goto-char p)
             ;; From.
             (progn
               (goto-char p)
-             (if (search-forward "\nfrom: " nil t)
+             (if (or (search-forward "\nfrom: " nil t)
+                     (search-forward "\nfrom:" nil t))
                   (funcall gnus-decode-encoded-word-function
                            (nnheader-header-value))
                 "(nobody)"))
                   (funcall gnus-decode-encoded-word-function
                            (nnheader-header-value))
                 "(nobody)"))
@@ -4767,8 +4998,9 @@ The resulting hash table is returned, or nil if no Xrefs were found."
  (defun gnus-get-newsgroup-headers-xover (sequence &optional
                                                   force-new dependencies
                                                   group also-fetch-heads)
  (defun gnus-get-newsgroup-headers-xover (sequence &optional
                                                   force-new dependencies
                                                   group also-fetch-heads)
-  "Parse the news overview data in the server buffer, and return a
-list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
+  "Parse the news overview data in the server buffer.
+Return a 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))
@@ -5097,6 +5329,7 @@ If `gnus-auto-center-summary' is nil, or the article buffer isn't
  displayed, no centering will be performed."
    ;; Suggested by earle@mahendo.JPL.NASA.GOV (Greg Earle).
    ;; Recenter only when requested.  Suggested by popovich@park.cs.columbia.edu.
  displayed, no centering will be performed."
    ;; Suggested by earle@mahendo.JPL.NASA.GOV (Greg Earle).
    ;; Recenter only when requested.  Suggested by popovich@park.cs.columbia.edu.
+  (interactive)
    (let* ((top (cond ((< (window-height) 4) 0)
                     ((< (window-height) 7) 1)
                     (t (if (numberp gnus-auto-center-summary)
    (let* ((top (cond ((< (window-height) 4) 0)
                     ((< (window-height) 7) 1)
                     (t (if (numberp gnus-auto-center-summary)
@@ -5114,10 +5347,22 @@ displayed, no centering will be performed."
         ;; Set the window start to either `bottom', which is the biggest
         ;; possible valid number, or the second line from the top,
         ;; whichever is the least.
         ;; Set the window start to either `bottom', which is the biggest
         ;; possible valid number, or the second line from the top,
         ;; whichever is the least.
-       (set-window-start
-        window (min bottom (save-excursion
-                             (forward-line (- top)) (point)))
-        t))
+       (let ((top-pos (save-excursion (forward-line (- top)) (point))))
+         (if (> bottom top-pos)
+             ;; Keep the second line from the top visible
+             (set-window-start window top-pos t)
+           ;; Try to keep the bottom line visible; if it's partially
+           ;; obscured, either scroll one more line to make it fully
+           ;; visible, or revert to using TOP-POS.
+           (save-excursion
+             (goto-char (point-max))
+             (forward-line -1)
+             (let ((last-line-start (point)))
+               (goto-char bottom)
+               (set-window-start window (point) t)
+               (when (not (pos-visible-in-window-p last-line-start window))
+                 (forward-line 1)
+                 (set-window-start window (min (point) top-pos) t)))))))
        ;; Do horizontal recentering while we're at it.
        (when (and (get-buffer-window (current-buffer) t)
                  (not (eq gnus-auto-center-summary 'vertical)))
        ;; Do horizontal recentering while we're at it.
        (when (and (get-buffer-window (current-buffer) t)
                  (not (eq gnus-auto-center-summary 'vertical)))
@@ -5319,7 +5564,10 @@ If FORCE (the prefix), also save the .newsrc file(s)."
    (when (gnus-buffer-live-p gnus-article-buffer)
      (save-excursion
        (set-buffer gnus-article-buffer)
    (when (gnus-buffer-live-p gnus-article-buffer)
      (save-excursion
        (set-buffer gnus-article-buffer)
-      (mm-destroy-parts gnus-article-mime-handles)))
+      (mm-destroy-parts gnus-article-mime-handles)
+      ;; Set it to nil for safety reason.
+      (setq gnus-article-mime-handle-alist nil)
+      (setq gnus-article-mime-handles nil)))
    (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)
@@ -5381,12 +5629,16 @@ If FORCE (the prefix), also save the .newsrc file(s)."
         ;; not garbage-collected, it seems.  This would the lead to en
         ;; ever-growing Emacs.
         (gnus-summary-clear-local-variables)
         ;; not garbage-collected, it seems.  This would the lead to en
         ;; ever-growing Emacs.
         (gnus-summary-clear-local-variables)
+       (let ((gnus-summary-local-variables gnus-newsgroup-variables))
+         (gnus-summary-clear-local-variables))
         (when (get-buffer gnus-article-buffer)
           (bury-buffer gnus-article-buffer))
         ;; We clear the global counterparts of the buffer-local
         ;; variables as well, just to be on the safe side.
         (set-buffer gnus-group-buffer)
         (gnus-summary-clear-local-variables)
         (when (get-buffer gnus-article-buffer)
           (bury-buffer gnus-article-buffer))
         ;; We clear the global counterparts of the buffer-local
         ;; variables as well, just to be on the safe side.
         (set-buffer gnus-group-buffer)
         (gnus-summary-clear-local-variables)
+       (let ((gnus-summary-local-variables gnus-newsgroup-variables))
+         (gnus-summary-clear-local-variables))
         ;; Return to group mode buffer.
         (when (eq mode 'gnus-summary-mode)
           (gnus-kill-buffer buf)))
         ;; Return to group mode buffer.
         (when (eq mode 'gnus-summary-mode)
           (gnus-kill-buffer buf)))
@@ -5417,7 +5669,10 @@ If FORCE (the prefix), also save the .newsrc file(s)."
        (when (gnus-buffer-live-p gnus-article-buffer)
         (save-excursion
           (set-buffer gnus-article-buffer)
        (when (gnus-buffer-live-p gnus-article-buffer)
         (save-excursion
           (set-buffer gnus-article-buffer)
-         (mm-destroy-parts gnus-article-mime-handles)))
+         (mm-destroy-parts gnus-article-mime-handles)
+         ;; Set it to nil for safety reason.
+         (setq gnus-article-mime-handle-alist nil)
+         (setq gnus-article-mime-handles nil)))
        ;; 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)
@@ -5427,8 +5682,12 @@ If FORCE (the prefix), also save the .newsrc file(s)."
           (gnus-deaden-summary)
         (gnus-close-group group)
         (gnus-summary-clear-local-variables)
           (gnus-deaden-summary)
         (gnus-close-group group)
         (gnus-summary-clear-local-variables)
+       (let ((gnus-summary-local-variables gnus-newsgroup-variables))
+         (gnus-summary-clear-local-variables))
         (set-buffer gnus-group-buffer)
         (gnus-summary-clear-local-variables)
         (set-buffer gnus-group-buffer)
         (gnus-summary-clear-local-variables)
+       (let ((gnus-summary-local-variables gnus-newsgroup-variables))
+         (gnus-summary-clear-local-variables))
         (when (get-buffer gnus-summary-buffer)
           (kill-buffer gnus-summary-buffer)))
        (unless gnus-single-article-buffer
         (when (get-buffer gnus-summary-buffer)
           (kill-buffer gnus-summary-buffer)))
        (unless gnus-single-article-buffer
@@ -5525,7 +5784,8 @@ The state which existed when entering the ephemeral is reset."
        (rename-buffer
         (concat (substring name 0 (match-beginning 0)) "Dead "
                (substring name (match-beginning 0)))
        (rename-buffer
         (concat (substring name 0 (match-beginning 0)) "Dead "
                (substring name (match-beginning 0)))
-       t))))
+       t)
+      (bury-buffer))))
  
  (defun gnus-kill-or-deaden-summary (buffer)
    "Kill or deaden the summary BUFFER."
  
  (defun gnus-kill-or-deaden-summary (buffer)
    "Kill or deaden the summary BUFFER."
@@ -5692,8 +5952,8 @@ returned."
                 (if backward
                     (gnus-summary-find-prev unread)
                   (gnus-summary-find-next unread)))
                 (if backward
                     (gnus-summary-find-prev unread)
                   (gnus-summary-find-next unread)))
-      (gnus-summary-show-thread)
-      (setq n (1- n)))
+      (unless (zerop (setq n (1- n)))
+       (gnus-summary-show-thread)))
      (when (/= 0 n)
        (gnus-message 7 "No more%s articles"
                     (if unread " unread" "")))
      (when (/= 0 n)
        (gnus-message 7 "No more%s articles"
                     (if unread " unread" "")))
@@ -5754,7 +6014,15 @@ Given a prefix, will force an `article' buffer configuration."
  
  (defun gnus-summary-display-article (article &optional all-header)
    "Display ARTICLE in article buffer."
  
  (defun gnus-summary-display-article (article &optional all-header)
    "Display ARTICLE in article buffer."
+  (when (gnus-buffer-live-p gnus-article-buffer)
+    (with-current-buffer gnus-article-buffer
+      (mm-enable-multibyte-mule4)))
    (gnus-set-global-variables)
    (gnus-set-global-variables)
+  (when (gnus-buffer-live-p gnus-article-buffer)
+    (with-current-buffer gnus-article-buffer
+      (setq gnus-article-charset gnus-newsgroup-charset)
+      (setq gnus-article-ignored-charsets gnus-newsgroup-ignored-charsets)
+      (mm-enable-multibyte-mule4)))
    (if (null article)
        nil
      (prog1
    (if (null article)
        nil
      (prog1
@@ -5784,37 +6052,44 @@ be displayed."
      (set-buffer gnus-summary-buffer))
    (let ((article (or article (gnus-summary-article-number)))
         (all-headers (not (not all-headers))) ;Must be T or NIL.
      (set-buffer gnus-summary-buffer))
    (let ((article (or article (gnus-summary-article-number)))
         (all-headers (not (not all-headers))) ;Must be T or NIL.
-       gnus-summary-display-article-function
-       did)
+       gnus-summary-display-article-function)
      (and (not pseudo)
          (gnus-summary-article-pseudo-p article)
          (error "This is a pseudo-article"))
      (and (not pseudo)
          (gnus-summary-article-pseudo-p article)
          (error "This is a pseudo-article"))
-    (prog1
-       (save-excursion
-         (set-buffer gnus-summary-buffer)
-         (if (or (and gnus-single-article-buffer
-                      (or (null gnus-current-article)
-                          (null gnus-article-current)
-                          (null (get-buffer gnus-article-buffer))
-                          (not (eq article (cdr gnus-article-current)))
-                          (not (equal (car gnus-article-current)
-                                      gnus-newsgroup-name))))
-                 (and (not gnus-single-article-buffer)
-                      (or (null gnus-current-article)
-                          (not (eq gnus-current-article article))))
-                 force)
-             ;; The requested article is different from the current article.
-             (prog1
-                 (gnus-summary-display-article article all-headers)
-               (setq did article)
-               (when (or all-headers gnus-show-all-headers)
-                 (gnus-article-show-all-headers)))
+    (save-excursion
+      (set-buffer gnus-summary-buffer)
+      (if (or (and gnus-single-article-buffer
+                  (or (null gnus-current-article)
+                      (null gnus-article-current)
+                      (null (get-buffer gnus-article-buffer))
+                      (not (eq article (cdr gnus-article-current)))
+                      (not (equal (car gnus-article-current)
+                                  gnus-newsgroup-name))))
+             (and (not gnus-single-article-buffer)
+                  (or (null gnus-current-article)
+                      (not (eq gnus-current-article article))))
+             force)
+         ;; The requested article is different from the current article.
+         (progn
+           (gnus-summary-display-article article all-headers)
+           (when (gnus-buffer-live-p gnus-article-buffer)
+              (with-current-buffer gnus-article-buffer
+               (if (not gnus-article-decoded-p) ;; a local variable
+                   (mm-disable-multibyte-mule4))))
             (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 did
-       (gnus-article-set-window-start
-        (cdr (assq article gnus-newsgroup-bookmarks)))))))
+           (gnus-article-set-window-start
+            (cdr (assq article gnus-newsgroup-bookmarks)))
+           article)
+       (when (or all-headers gnus-show-all-headers)
+         (gnus-article-show-all-headers))
+       'old))))
+
+(defun gnus-summary-force-verify-and-decrypt ()
+  (interactive)
+  (let ((mm-verify-option 'known)
+       (mm-decrypt-option 'known))
+    (gnus-summary-select-article nil 'force)))
  
  (defun gnus-summary-set-current-mark (&optional current-mark)
    "Obsolete function."
  
  (defun gnus-summary-set-current-mark (&optional current-mark)
    "Obsolete function."
@@ -6233,7 +6508,7 @@ articles that are younger than AGE days."
       (while (not days-got)
         (setq days (if younger
                       (read-string "Limit to articles within (in days): ")
       (while (not days-got)
         (setq days (if younger
                       (read-string "Limit to articles within (in days): ")
-                   (read-string "Limit to articles old than (in days): ")))
+                   (read-string "Limit to articles older than (in days): ")))
         (when (> (length days) 0)
          (setq days (read days)))
         (if (numberp days)
         (when (> (length days) 0)
          (setq days (read days)))
         (if (numberp days)
@@ -6266,12 +6541,12 @@ articles that are younger than AGE days."
     (let ((header
           (intern
            (gnus-completing-read
     (let ((header
           (intern
            (gnus-completing-read
-           (symbol-name (car gnus-extra-headers))      
-           "Limit extra header:"       
-           (mapcar (lambda (x) 
+           (symbol-name (car gnus-extra-headers))
+           "Limit extra header:"
+           (mapcar (lambda (x)
                       (cons (symbol-name x) x))
                     gnus-extra-headers)
                       (cons (symbol-name x) x))
                     gnus-extra-headers)
-           nil                 
+           nil
             t))))
       (list header
            (read-string (format "Limit to header %s (regexp): " header)))))
             t))))
       (list header
            (read-string (format "Limit to header %s (regexp): " header)))))
@@ -6785,7 +7060,8 @@ of what's specified by the `gnus-refer-thread-limit' variable."
     ((eq 'current gnus-refer-article-method)
      (list gnus-current-select-method))
     ;; List of select methods.
     ((eq 'current gnus-refer-article-method)
      (list gnus-current-select-method))
     ;; List of select methods.
-   ((not (stringp (cadr gnus-refer-article-method)))
+   ((not (and (symbolp (car gnus-refer-article-method))
+             (assq (car gnus-refer-article-method) nnoo-definition-alist)))
      (let (out)
        (dolist (method gnus-refer-article-method)
         (push (if (eq 'current method)
      (let (out)
        (dolist (method gnus-refer-article-method)
         (push (if (eq 'current method)
@@ -6835,7 +7111,10 @@ to guess what the document format is."
         ;; the parent article.
         (when (setq to-address (or (message-fetch-field "reply-to")
                                    (message-fetch-field "from")))
         ;; the parent article.
         (when (setq to-address (or (message-fetch-field "reply-to")
                                    (message-fetch-field "from")))
-         (setq params (append (list (cons 'to-address to-address)))))
+         (setq params (append 
+                       (list (cons 'to-address 
+                                   (funcall gnus-decode-encoded-word-function
+                                            to-address))))))
         (setq dig (nnheader-set-temp-buffer " *gnus digest buffer*"))
         (insert-buffer-substring gnus-original-article-buffer)
         ;; Remove lines that may lead nndoc to misinterpret the
         (setq dig (nnheader-set-temp-buffer " *gnus digest buffer*"))
         (insert-buffer-substring gnus-original-article-buffer)
         ;; Remove lines that may lead nndoc to misinterpret the
@@ -6938,10 +7217,14 @@ If BACKWARD, search backward instead."
          current-prefix-arg))
    (if (string-equal regexp "")
        (setq regexp (or gnus-last-search-regexp ""))
          current-prefix-arg))
    (if (string-equal regexp "")
        (setq regexp (or gnus-last-search-regexp ""))
-    (setq gnus-last-search-regexp regexp))
-  (if (gnus-summary-search-article regexp backward)
-      (gnus-summary-show-thread)
-    (error "Search failed: \"%s\"" regexp)))
+    (setq gnus-last-search-regexp regexp)
+    (setq gnus-article-before-search gnus-current-article))
+  ;; Intentionally set gnus-last-article.
+  (setq gnus-last-article gnus-article-before-search)
+  (let ((gnus-last-article gnus-last-article))
+    (if (gnus-summary-search-article regexp backward)
+       (gnus-summary-show-thread)
+      (error "Search failed: \"%s\"" regexp))))
  
  (defun gnus-summary-search-article-backward (regexp)
    "Search for an article containing REGEXP backward."
  
  (defun gnus-summary-search-article-backward (regexp)
    "Search for an article containing REGEXP backward."
@@ -6974,6 +7257,7 @@ Optional argument BACKWARD means do search for backward.
      (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)
+      (goto-char (window-point (get-buffer-window (current-buffer))))
        (when backward
         (forward-line -1))
        (while (not found)
        (when backward
         (forward-line -1))
        (while (not found)
@@ -7143,19 +7427,38 @@ to save in."
  
  (defun gnus-summary-show-article (&optional arg)
    "Force re-fetching of the current article.
  
  (defun gnus-summary-show-article (&optional arg)
    "Force re-fetching of the current article.
-If ARG (the prefix) is a number, show the article with the charset 
+If ARG (the prefix) is a number, show the article with the charset
  defined in `gnus-summary-show-article-charset-alist', or the charset
  inputed.
  defined in `gnus-summary-show-article-charset-alist', or the charset
  inputed.
-If ARG (the prefix) is non-nil and not a number, show the raw article 
+If ARG (the prefix) is non-nil and not a number, show the raw article
  without any article massaging functions being run."
    (interactive "P")
  without any article massaging functions being run."
    (interactive "P")
-  (cond 
+  (cond
     ((numberp arg)
     ((numberp arg)
-    (let ((gnus-newsgroup-charset 
+    (let ((gnus-newsgroup-charset
            (or (cdr (assq arg gnus-summary-show-article-charset-alist))
                (read-coding-system "Charset: ")))
           (gnus-newsgroup-ignored-charsets 'gnus-all))
            (or (cdr (assq arg gnus-summary-show-article-charset-alist))
                (read-coding-system "Charset: ")))
           (gnus-newsgroup-ignored-charsets 'gnus-all))
-      (gnus-summary-select-article nil 'force)))
+      (gnus-summary-select-article nil 'force)
+      (let ((deps gnus-newsgroup-dependencies)
+           head header)
+       (save-excursion
+         (set-buffer gnus-original-article-buffer)
+         (save-restriction
+           (message-narrow-to-head)
+           (setq head (buffer-string)))
+         (with-temp-buffer
+           (insert (format "211 %d Article retrieved.\n"
+                           (cdr gnus-article-current)))
+           (insert head)
+           (insert ".\n")
+           (let ((nntp-server-buffer (current-buffer)))
+             (setq header (car (gnus-get-newsgroup-headers deps t))))))
+       (gnus-data-set-header
+        (gnus-data-find (cdr gnus-article-current))
+        header)
+       (gnus-summary-update-article-line
+        (cdr gnus-article-current) header))))
     ((not arg)
      ;; Select the article the normal way.
      (gnus-summary-select-article nil 'force))
     ((not arg)
      ;; Select the article the normal way.
      (gnus-summary-select-article nil 'force))
@@ -7174,7 +7477,10 @@ without any article massaging functions being run."
        (when (gnus-buffer-live-p gnus-article-buffer)
         (save-excursion
           (set-buffer gnus-article-buffer)
        (when (gnus-buffer-live-p gnus-article-buffer)
         (save-excursion
           (set-buffer gnus-article-buffer)
-         (mm-destroy-parts gnus-article-mime-handles)))
+         (mm-destroy-parts gnus-article-mime-handles)
+         ;; Set it to nil for safety reason.
+         (setq gnus-article-mime-handle-alist nil)
+         (setq gnus-article-mime-handles nil)))
        (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))
@@ -7206,7 +7512,7 @@ If ARG is a negative number, hide the unwanted header lines."
         (setq hidden
               (if (numberp arg)
                   (>= arg 0)
         (setq hidden
               (if (numberp arg)
                   (>= arg 0)
-               (save-restriction 
+               (save-restriction
                   (article-narrow-to-head)
                   (gnus-article-hidden-text-p 'headers))))
         (goto-char (point-min))
                   (article-narrow-to-head)
                   (gnus-article-hidden-text-p 'headers))))
         (goto-char (point-min))
@@ -7224,8 +7530,11 @@ If ARG is a negative number, hide the unwanted header lines."
           (if  hidden
               (let ((gnus-treat-hide-headers nil)
                     (gnus-treat-hide-boring-headers nil))
           (if  hidden
               (let ((gnus-treat-hide-headers nil)
                     (gnus-treat-hide-boring-headers nil))
+               (setq gnus-article-wash-types
+                     (delq 'headers gnus-article-wash-types))
                 (gnus-treat-article 'head))
                 (gnus-treat-article 'head))
-           (gnus-treat-article 'head)))))))
+           (gnus-treat-article 'head)))
+       (gnus-set-mode-line 'article)))))
  
  (defun gnus-summary-show-all-headers ()
    "Make all header lines visible."
  
  (defun gnus-summary-show-all-headers ()
    "Make all header lines visible."
@@ -7272,7 +7581,9 @@ re-spool using this method.
  
  For this function to work, both the current newsgroup and the
  newsgroup that you want to move to have to support the `request-move'
  
  For this function to work, both the current newsgroup and the
  newsgroup that you want to move to have to support the `request-move'
-and `request-accept' functions."
+and `request-accept' functions.
+
+ACTION can be either `move' (the default), `crosspost' or `copy'."
    (interactive "P")
    (unless action
      (setq action 'move))
    (interactive "P")
    (unless action
      (setq action 'move))
@@ -7290,7 +7601,10 @@ and `request-accept' functions."
                     'request-replace-article gnus-newsgroup-name)))
          (error "The current group does not support article editing")))
    (let ((articles (gnus-summary-work-articles n))
                     'request-replace-article gnus-newsgroup-name)))
          (error "The current group does not support article editing")))
    (let ((articles (gnus-summary-work-articles n))
-       (prefix (gnus-group-real-prefix gnus-newsgroup-name))
+       (prefix (if (gnus-check-backend-function
+                   'request-move-article gnus-newsgroup-name)
+                   (gnus-group-real-prefix gnus-newsgroup-name)
+                 ""))
         (names '((move "Move" "Moving")
                  (copy "Copy" "Copying")
                  (crosspost "Crosspost" "Crossposting")))
         (names '((move "Move" "Moving")
                  (copy "Copy" "Copying")
                  (crosspost "Crosspost" "Crossposting")))
@@ -7309,7 +7623,8 @@ and `request-accept' functions."
              articles prefix))
        (set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
      (setq to-method (or select-method
              articles prefix))
        (set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
      (setq to-method (or select-method
-                       (gnus-group-name-to-method to-newsgroup)))
+                       (gnus-server-to-method
+                        (gnus-group-method to-newsgroup))))
      ;; Check the method we are to move this article to...
      (unless (gnus-check-backend-function
              'request-accept-article (car to-method))
      ;; Check the method we are to move this article to...
      (unless (gnus-check-backend-function
              'request-accept-article (car to-method))
@@ -7379,10 +7694,10 @@ and `request-accept' functions."
         (gnus-message 1 "Couldn't %s article %s: %s"
                       (cadr (assq action names)) article
                       (nnheader-get-report (car to-method))))
         (gnus-message 1 "Couldn't %s article %s: %s"
                       (cadr (assq action names)) article
                       (nnheader-get-report (car to-method))))
-       ((and (eq art-group 'junk)
-            (eq action 'move))
-       (gnus-summary-mark-article article gnus-canceled-mark)
-       (gnus-message 4 "Deleted article %s" article))
+       ((eq art-group 'junk)
+       (when (eq action 'move)
+         (gnus-summary-mark-article article gnus-canceled-mark)
+         (gnus-message 4 "Deleted article %s" article)))
         (t
         (let* ((pto-group (gnus-group-prefixed-name
                            (car art-group) to-method))
         (t
         (let* ((pto-group (gnus-group-prefixed-name
                            (car art-group) to-method))
@@ -7403,11 +7718,12 @@ and `request-accept' functions."
                info (gnus-add-to-range (gnus-info-read info)
                                        (list (cdr art-group)))))
  
                info (gnus-add-to-range (gnus-info-read info)
                                        (list (cdr art-group)))))
  
-           ;; Copy any marks over to the new group.
+           ;; See whether the article is to be put in the cache.
             (let ((marks gnus-article-mark-lists)
                   (to-article (cdr art-group)))
  
             (let ((marks gnus-article-mark-lists)
                   (to-article (cdr art-group)))
  
-             ;; See whether the article is to be put in the cache.
+             ;; Enter the article into the cache in the new group,
+             ;; if that is required.
               (when gnus-use-cache
                 (gnus-cache-possibly-enter-article
                  to-group to-article
               (when gnus-use-cache
                 (gnus-cache-possibly-enter-article
                  to-group to-article
@@ -7415,34 +7731,36 @@ and `request-accept' functions."
                  (memq article gnus-newsgroup-dormant)
                  (memq article gnus-newsgroup-unreads)))
  
                  (memq article gnus-newsgroup-dormant)
                  (memq article gnus-newsgroup-unreads)))
  
-             (when (and (equal to-group gnus-newsgroup-name)
-                        (not (memq article gnus-newsgroup-unreads)))
-               ;; Mark this article as read in this group.
-               (push (cons to-article gnus-read-mark) gnus-newsgroup-reads)
-               (setcdr (gnus-active to-group) to-article)
-               (setcdr gnus-newsgroup-active to-article))
-
-             (while marks
-               (when (memq article (symbol-value
-                                    (intern (format "gnus-newsgroup-%s"
-                                                    (caar marks)))))
-                  (push (cdar marks) to-marks)
-                 ;; If the other group is the same as this group,
-                 ;; then we have to add the mark to the list.
-                 (when (equal to-group gnus-newsgroup-name)
-                   (set (intern (format "gnus-newsgroup-%s" (caar marks)))
-                        (cons to-article
-                              (symbol-value
-                               (intern (format "gnus-newsgroup-%s"
-                                               (caar marks)))))))
-                 ;; Copy the marks to other group.
-                 (gnus-add-marked-articles
-                  to-group (cdar marks) (list to-article) info))
-               (setq marks (cdr marks)))
-
-              (gnus-request-set-mark to-group (list (list (list to-article)
-                                                          'set
-                                                          to-marks)))
+             (when gnus-preserve-marks
+               ;; Copy any marks over to the new group.
+               (when (and (equal to-group gnus-newsgroup-name)
+                          (not (memq article gnus-newsgroup-unreads)))
+                 ;; Mark this article as read in this group.
+                 (push (cons to-article gnus-read-mark) gnus-newsgroup-reads)
+                 (setcdr (gnus-active to-group) to-article)
+                 (setcdr gnus-newsgroup-active to-article))
+
+               (while marks
+                 (when (memq article (symbol-value
+                                      (intern (format "gnus-newsgroup-%s"
+                                                      (caar marks)))))
+                   (push (cdar marks) to-marks)
+                   ;; If the other group is the same as this group,
+                   ;; then we have to add the mark to the list.
+                   (when (equal to-group gnus-newsgroup-name)
+                     (set (intern (format "gnus-newsgroup-%s" (caar marks)))
+                          (cons to-article
+                                (symbol-value
+                                 (intern (format "gnus-newsgroup-%s"
+                                                 (caar marks)))))))
+                   ;; Copy the marks to other group.
+                   (gnus-add-marked-articles
+                    to-group (cdar marks) (list to-article) info))
+                 (setq marks (cdr marks)))
+
+               (gnus-request-set-mark to-group (list (list (list to-article)
+                                                           'set
+                                                           to-marks))))
  
               (gnus-dribble-enter
                (concat "(gnus-group-set-info '"
  
               (gnus-dribble-enter
                (concat "(gnus-group-set-info '"
@@ -7556,7 +7874,7 @@ latter case, they will be copied into the relevant groups."
      (save-excursion
        (set-buffer (gnus-get-buffer-create " *import file*"))
        (erase-buffer)
      (save-excursion
        (set-buffer (gnus-get-buffer-create " *import file*"))
        (erase-buffer)
-      (insert-file-contents file)
+      (nnheader-insert-file-contents file)
        (goto-char (point-min))
        (unless (nnheader-article-p)
         ;; This doesn't look like an article, so we fudge some headers.
        (goto-char (point-min))
        (unless (nnheader-article-p)
         ;; This doesn't look like an article, so we fudge some headers.
@@ -7605,6 +7923,9 @@ This will be the case if the article has both been mailed and posted."
            (expiry-wait (if now 'immediate
                           (gnus-group-find-parameter
                            gnus-newsgroup-name 'expiry-wait)))
            (expiry-wait (if now 'immediate
                           (gnus-group-find-parameter
                            gnus-newsgroup-name 'expiry-wait)))
+          (nnmail-expiry-target
+           (or (gnus-group-find-parameter gnus-newsgroup-name 'expiry-target)
+               nnmail-expiry-target))
            es)
        (when expirable
         ;; There are expirable articles in this group, so we run them
            es)
        (when expirable
         ;; There are expirable articles in this group, so we run them
@@ -7620,19 +7941,19 @@ This will be the case if the article has both been mailed and posted."
                 (setq es (gnus-request-expire-articles
                           expirable gnus-newsgroup-name)))
             (setq es (gnus-request-expire-articles
                 (setq es (gnus-request-expire-articles
                           expirable gnus-newsgroup-name)))
             (setq es (gnus-request-expire-articles
-                     expirable gnus-newsgroup-name))))
-       (unless total
-         (setq gnus-newsgroup-expirable es))
-       ;; We go through the old list of expirable, and mark all
-       ;; really expired articles as nonexistent.
-       (unless (eq es expirable)       ;If nothing was expired, we don't mark.
-         (let ((gnus-use-cache nil))
-           (while expirable
-             (unless (memq (car expirable) es)
-               (when (gnus-data-find (car expirable))
-                 (gnus-summary-mark-article
-                  (car expirable) gnus-canceled-mark)))
-             (setq expirable (cdr expirable)))))
+                     expirable gnus-newsgroup-name)))
+         (unless total
+           (setq gnus-newsgroup-expirable es))
+         ;; We go through the old list of expirable, and mark all
+         ;; really expired articles as nonexistent.
+         (unless (eq es expirable)     ;If nothing was expired, we don't mark.
+           (let ((gnus-use-cache nil))
+             (while expirable
+               (unless (memq (car expirable) es)
+                 (when (gnus-data-find (car expirable))
+                   (gnus-summary-mark-article
+                    (car expirable) gnus-canceled-mark)))
+               (setq expirable (cdr expirable))))))
         (gnus-message 6 "Expiring articles...done")))))
  
  (defun gnus-summary-expire-articles-now ()
         (gnus-message 6 "Expiring articles...done")))))
  
  (defun gnus-summary-expire-articles-now ()
@@ -7659,6 +7980,8 @@ delete these instead."
    (unless (gnus-check-backend-function 'request-expire-articles
                                        gnus-newsgroup-name)
      (error "The current newsgroup does not support article deletion"))
    (unless (gnus-check-backend-function 'request-expire-articles
                                        gnus-newsgroup-name)
      (error "The current newsgroup does not support article deletion"))
+  (unless (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
+    (error "Couldn't open server"))
    ;; Compute the list of articles to delete.
    (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
         not-deleted)
    ;; Compute the list of articles to delete.
    (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
         not-deleted)
@@ -7685,31 +8008,72 @@ delete these instead."
      (gnus-set-mode-line 'summary)
      not-deleted))
  
      (gnus-set-mode-line 'summary)
      not-deleted))
  
-(defun gnus-summary-edit-article (&optional force)
+(defun gnus-summary-edit-article (&optional arg)
    "Edit the current article.
  This will have permanent effect only in mail groups.
    "Edit the current article.
  This will have permanent effect only in mail groups.
-If FORCE is non-nil, allow editing of articles even in read-only
+If ARG is nil, edit the decoded articles.
+If ARG is 1, edit the raw articles. 
+If ARG is 2, edit the raw articles even in read-only groups.
+If ARG is 3, edit the articles with the current handles.
+Otherwise, allow editing of articles even in read-only
  groups."
    (interactive "P")
  groups."
    (interactive "P")
-  (save-excursion
-    (set-buffer gnus-summary-buffer)
-    (let ((mail-parse-charset gnus-newsgroup-charset)
-         (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets))
-      (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)
-               (mail-parse-ignored-charsets 
-                ',gnus-newsgroup-ignored-charsets))
-           (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)))))))
+  (let (force raw current-handles)
+    (cond 
+     ((null arg))
+     ((eq arg 1) (setq raw t))
+     ((eq arg 2) (setq raw t
+                      force t))
+     ((eq arg 3) (setq current-handles 
+                      (and (gnus-buffer-live-p gnus-article-buffer)
+                           (with-current-buffer gnus-article-buffer
+                             (prog1
+                                 gnus-article-mime-handles
+                                 (setq gnus-article-mime-handles nil))))))
+     (t (setq force t)))
+    (if (and raw (not force) (equal gnus-newsgroup-name "nndraft:drafts"))
+       (error "Can't edit the raw article in group nndraft:drafts."))
+    (save-excursion
+      (set-buffer gnus-summary-buffer)
+      (let ((mail-parse-charset gnus-newsgroup-charset)
+           (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets))
+       (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)
+       (when (and (not raw) (gnus-buffer-live-p gnus-article-buffer))
+         (with-current-buffer gnus-article-buffer
+           (mm-enable-multibyte-mule4)))
+       (if (equal gnus-newsgroup-name "nndraft:drafts")
+           (setq raw t))
+       (gnus-article-edit-article
+        (if raw 'ignore 
+          `(lambda () 
+             (let ((mbl mml-buffer-list))
+               (setq mml-buffer-list nil)
+               (mime-to-mml ,'current-handles)
+               (make-local-hook 'kill-buffer-hook)
+               (let ((mbl1 mml-buffer-list))
+                 (setq mml-buffer-list mbl)
+                 (set (make-local-variable 'mml-buffer-list) mbl1))
+               (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t))))
+        `(lambda (no-highlight)
+           (let ((mail-parse-charset ',gnus-newsgroup-charset)
+                 (message-options message-options)
+                 (message-options-set-recipient)
+                 (mail-parse-ignored-charsets 
+                  ',gnus-newsgroup-ignored-charsets))
+             ,(if (not raw) '(progn 
+                               (mml-to-mime)
+                               (mml-destroy-buffers)
+                               (remove-hook 'kill-buffer-hook 
+                                            'mml-destroy-buffers t)
+                               (kill-local-variable 'mml-buffer-list)))
+             (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)
  
@@ -7717,10 +8081,31 @@ groups."
                                                  no-highlight)
    "Make edits to the current article permanent."
    (interactive)
                                                  no-highlight)
    "Make edits to the current article permanent."
    (interactive)
+  (save-excursion
+    ;; The buffer restriction contains the entire article if it exists.
+    (when (article-goto-body)
+      (let ((lines (count-lines (point) (point-max)))
+           (length (- (point-max) (point)))
+           (case-fold-search t)
+           (body (copy-marker (point))))
+       (goto-char (point-min))
+       (when (re-search-forward "^content-length:[ \t]\\([0-9]+\\)" body t)
+         (delete-region (match-beginning 1) (match-end 1))
+         (insert (number-to-string length)))
+       (goto-char (point-min))
+       (when (re-search-forward
+              "^x-content-length:[ \t]\\([0-9]+\\)" body t)
+         (delete-region (match-beginning 1) (match-end 1))
+         (insert (number-to-string length)))
+       (goto-char (point-min))
+       (when (re-search-forward "^lines:[ \t]\\([0-9]+\\)" body t)
+         (delete-region (match-beginning 1) (match-end 1))
+         (insert (number-to-string lines))))))
    ;; Replace the article.
    (let ((buf (current-buffer)))
      (with-temp-buffer
        (insert-buffer-substring buf)
    ;; Replace the article.
    (let ((buf (current-buffer)))
      (with-temp-buffer
        (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)
@@ -7915,6 +8300,20 @@ the actual number of articles unmarked is returned."
        (gnus-summary-remove-process-mark (car gnus-newsgroup-processable))))
    (gnus-summary-position-point))
  
        (gnus-summary-remove-process-mark (car gnus-newsgroup-processable))))
    (gnus-summary-position-point))
  
+(defun gnus-summary-add-mark (article type)
+  "Mark ARTICLE with a mark of TYPE."
+  (let ((vtype (car (assq type gnus-article-mark-lists)))
+       var)
+    (if (not vtype)
+       (error "No such mark type: %s" type)
+      (setq var (intern (format "gnus-newsgroup-%s" type)))
+      (set var (cons article (symbol-value var)))
+      (if (memq type '(processable cached replied saved))
+         (gnus-summary-update-secondary-mark article)
+       ;;; !!! This is bobus.  We should find out what primary
+       ;;; !!! mark we want to set.
+       (gnus-summary-update-mark gnus-del-mark 'unread)))))
+       
  (defun gnus-summary-mark-as-expirable (n)
    "Mark N articles forward as expirable.
  If N is negative, mark backward instead.  The difference between N and
  (defun gnus-summary-mark-as-expirable (n)
    "Mark N articles forward as expirable.
  If N is negative, mark backward instead.  The difference between N and
@@ -8006,7 +8405,8 @@ the actual number of articles marked is returned."
    "Mark N articles as read forwards.
  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
    "Mark N articles as read forwards.
  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."
+returned.
+Iff NO-EXPIRE, auto-expiry will be inhibited."
    (interactive "p")
    (gnus-summary-show-thread)
    (let ((backward (< n 0))
    (interactive "p")
    (gnus-summary-show-thread)
    (let ((backward (< n 0))
@@ -8098,7 +8498,8 @@ Four MARK strings are reserved: `? ' (unread), `?!' (ticked),
  `??' (dormant) and `?E' (expirable).
  If MARK is nil, then the default character `?r' is used.
  If ARTICLE is nil, then the article on the current line will be
  `??' (dormant) and `?E' (expirable).
  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."
+marked.
+Iff NO-EXPIRE, auto-expiry will be inhibited."
    ;; The mark might be a string.
    (when (stringp mark)
      (setq mark (aref mark 0)))
    ;; The mark might be a string.
    (when (stringp mark)
      (setq mark (aref mark 0)))
@@ -8151,7 +8552,7 @@ marked."
           gnus-replied-mark)
          ((memq article gnus-newsgroup-saved)
           gnus-saved-mark)
           gnus-replied-mark)
          ((memq article gnus-newsgroup-saved)
           gnus-saved-mark)
-        (t gnus-unread-mark))
+        (t gnus-no-mark))
     'replied)
    (when (gnus-visual-p 'summary-highlight 'highlight)
      (gnus-run-hooks 'gnus-summary-update-hook))
     'replied)
    (when (gnus-visual-p 'summary-highlight 'highlight)
      (gnus-run-hooks 'gnus-summary-update-hook))
@@ -8295,6 +8696,11 @@ The difference between N and the number of marks cleared is returned."
               (gnus-read-mark-p mark))
        (gnus-summary-mark-article gnus-current-article gnus-read-mark))))
  
               (gnus-read-mark-p mark))
        (gnus-summary-mark-article gnus-current-article gnus-read-mark))))
  
+(defun gnus-summary-mark-unread-as-ticked ()
+   "Intended to be used by `gnus-summary-mark-article-hook'."
+  (when (memq gnus-current-article gnus-newsgroup-unreads)
+    (gnus-summary-mark-article gnus-current-article gnus-ticked-mark)))
+
  (defun gnus-summary-mark-region-as-read (point mark all)
    "Mark all unread articles between point and mark as read.
  If given a prefix, mark all articles between point and mark as read,
  (defun gnus-summary-mark-region-as-read (point mark all)
    "Mark all unread articles between point and mark as read.
  If given a prefix, mark all articles between point and mark as read,
@@ -8368,7 +8774,7 @@ even ticked and dormant ones."
      (let ((scored gnus-newsgroup-scored)
           headers h)
        (while scored
      (let ((scored gnus-newsgroup-scored)
           headers h)
        (while scored
-       (unless (gnus-summary-goto-subject (caar scored))
+       (unless (gnus-number-to-header (caar scored))
           (and (setq h (gnus-summary-article-header (caar scored)))
                (< (cdar scored) gnus-summary-expunge-below)
                (push h headers)))
           (and (setq h (gnus-summary-article-header (caar scored)))
                (< (cdar scored) gnus-summary-expunge-below)
                (push h headers)))
@@ -8467,6 +8873,37 @@ read."
      (gnus-summary-catchup all))
    (gnus-summary-next-group))
  
      (gnus-summary-catchup all))
    (gnus-summary-next-group))
  
+;;;
+;;; 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))
+
  ;; Thread-based commands.
  
  (defun gnus-summary-articles-in-thread (&optional article)
  ;; Thread-based commands.
  
  (defun gnus-summary-articles-in-thread (&optional article)
@@ -8545,14 +8982,16 @@ is non-nil or the Subject: of both articles are the same."
         (unless (and message-id (not (equal message-id "")))
           (error "No message-id in desired parent"))
         (gnus-with-article current-article
         (unless (and message-id (not (equal message-id "")))
           (error "No message-id in desired parent"))
         (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")))
+         (save-restriction
+           (goto-char (point-min))
+           (message-narrow-to-head)
+           (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)
@@ -8759,14 +9198,14 @@ Argument REVERSE means reverse order."
  
  (defun gnus-summary-sort-by-author (&optional reverse)
    "Sort the summary buffer by author name alphabetically.
  
  (defun gnus-summary-sort-by-author (&optional reverse)
    "Sort the summary buffer by author name alphabetically.
-If case-fold-search is non-nil, case of letters is ignored.
+If `case-fold-search' is non-nil, case of letters is ignored.
  Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'author reverse))
  
  (defun gnus-summary-sort-by-subject (&optional reverse)
    "Sort the summary buffer by subject alphabetically.  `Re:'s are ignored.
  Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'author reverse))
  
  (defun gnus-summary-sort-by-subject (&optional reverse)
    "Sort the summary buffer by subject alphabetically.  `Re:'s are ignored.
-If case-fold-search is non-nil, case of letters is ignored.
+If `case-fold-search' is non-nil, case of letters is ignored.
  Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'subject reverse))
  Argument REVERSE means reverse order."
    (interactive "P")
    (gnus-summary-sort 'subject reverse))
@@ -8793,7 +9232,7 @@ Argument REVERSE means reverse order."
    "Sort the summary buffer by article length.
  Argument REVERSE means reverse order."
    (interactive "P")
    "Sort the summary buffer by article length.
  Argument REVERSE means reverse order."
    (interactive "P")
-  (gnus-summary-sort 'chars reverse))  
+  (gnus-summary-sort 'chars reverse))
  
  (defun gnus-summary-sort (predicate reverse)
    "Sort summary buffer by PREDICATE.  REVERSE means reverse order."
  
  (defun gnus-summary-sort (predicate reverse)
    "Sort summary buffer by PREDICATE.  REVERSE means reverse order."
@@ -8804,6 +9243,8 @@ Argument REVERSE means reverse order."
               thread
             `(lambda (t1 t2)
                (,thread t2 t1))))
               thread
             `(lambda (t1 t2)
                (,thread t2 t1))))
+        (gnus-sort-gathered-threads-function
+         gnus-thread-sort-functions)
          (gnus-article-sort-functions
           (if (not reverse)
               article
          (gnus-article-sort-functions
           (if (not reverse)
               article
@@ -8862,6 +9303,7 @@ If N is a negative number, pipe the N previous articles.
  If N is nil and any articles have been marked with the process mark,
  pipe those articles instead."
    (interactive "P")
  If N is nil and any articles have been marked with the process mark,
  pipe those articles instead."
    (interactive "P")
+  (require 'gnus-art)
    (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
      (gnus-summary-save-article arg t))
    (gnus-configure-windows 'pipe))
    (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
      (gnus-summary-save-article arg t))
    (gnus-configure-windows 'pipe))
@@ -8873,6 +9315,7 @@ If N is a negative number, save the N previous articles.
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
+  (require 'gnus-art)
    (let ((gnus-default-article-saver 'gnus-summary-save-in-mail))
      (gnus-summary-save-article arg)))
  
    (let ((gnus-default-article-saver 'gnus-summary-save-in-mail))
      (gnus-summary-save-article arg)))
  
@@ -8883,7 +9326,8 @@ If N is a negative number, save the N previous articles.
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
-  (let ((gnus-default-article-saver 'rmail-output-to-rmail-file))
+  (require 'gnus-art)
+  (let ((gnus-default-article-saver 'gnus-summary-save-in-rmail))
      (gnus-summary-save-article arg)))
  
  (defun gnus-summary-save-article-file (&optional arg)
      (gnus-summary-save-article arg)))
  
  (defun gnus-summary-save-article-file (&optional arg)
@@ -8893,6 +9337,7 @@ If N is a negative number, save the N previous articles.
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
+  (require 'gnus-art)
    (let ((gnus-default-article-saver 'gnus-summary-save-in-file))
      (gnus-summary-save-article arg)))
  
    (let ((gnus-default-article-saver 'gnus-summary-save-in-file))
      (gnus-summary-save-article arg)))
  
@@ -8903,6 +9348,7 @@ If N is a negative number, save the N previous articles.
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
+  (require 'gnus-art)
    (let ((gnus-default-article-saver 'gnus-summary-write-to-file))
      (gnus-summary-save-article arg)))
  
    (let ((gnus-default-article-saver 'gnus-summary-write-to-file))
      (gnus-summary-save-article arg)))
  
@@ -8913,6 +9359,7 @@ If N is a negative number, save the N previous articles.
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
  If N is nil and any articles have been marked with the process mark,
  save those articles instead."
    (interactive "P")
+  (require 'gnus-art)
    (let ((gnus-default-article-saver 'gnus-summary-save-body-in-file))
      (gnus-summary-save-article arg)))
  
    (let ((gnus-default-article-saver 'gnus-summary-save-body-in-file))
      (gnus-summary-save-article arg)))
  
@@ -8937,7 +9384,7 @@ save those articles instead."
         (set-buffer gnus-original-article-buffer)
         (save-restriction
           (nnheader-narrow-to-headers)
         (set-buffer gnus-original-article-buffer)
         (save-restriction
           (nnheader-narrow-to-headers)
-         (while methods
+         (while (and methods (not split-name))
             (goto-char (point-min))
             (setq method (pop methods))
             (setq match (car method))
             (goto-char (point-min))
             (setq method (pop methods))
             (setq match (car method))
@@ -8956,7 +9403,7 @@ save those articles instead."
                     (save-restriction
                       (widen)
                       (setq result (eval match)))))
                     (save-restriction
                       (widen)
                       (setq result (eval match)))))
-             (setq split-name (append (cdr method) split-name))
+             (setq split-name (cdr method))
               (cond ((stringp result)
                      (push (expand-file-name
                             result gnus-article-save-directory)
               (cond ((stringp result)
                      (push (expand-file-name
                             result gnus-article-save-directory)
@@ -9001,7 +9448,8 @@ save those articles instead."
                                   (mapcar (lambda (el) (list el))
                                           (nreverse split-name))
                                   nil nil nil
                                   (mapcar (lambda (el) (list el))
                                           (nreverse split-name))
                                   nil nil nil
-                                 'gnus-group-history)))))
+                                 'gnus-group-history))))
+         (to-method (gnus-server-to-method (gnus-group-method to-newsgroup))))
      (when to-newsgroup
        (if (or (string= to-newsgroup "")
               (string= to-newsgroup prefix))
      (when to-newsgroup
        (if (or (string= to-newsgroup "")
               (string= to-newsgroup prefix))
@@ -9009,25 +9457,29 @@ save those articles instead."
        (unless to-newsgroup
         (error "No group name entered"))
        (or (gnus-active to-newsgroup)
        (unless to-newsgroup
         (error "No group name entered"))
        (or (gnus-active to-newsgroup)
-         (gnus-activate-group to-newsgroup)
+         (gnus-activate-group to-newsgroup nil nil to-method)
           (if (gnus-y-or-n-p (format "No such group: %s.  Create it? "
                                      to-newsgroup))
           (if (gnus-y-or-n-p (format "No such group: %s.  Create it? "
                                      to-newsgroup))
-             (or (and (gnus-request-create-group
-                       to-newsgroup (gnus-group-name-to-method to-newsgroup))
+             (or (and (gnus-request-create-group to-newsgroup to-method)
                        (gnus-activate-group
                        (gnus-activate-group
-                       to-newsgroup nil nil
-                       (gnus-group-name-to-method to-newsgroup))
+                       to-newsgroup nil nil to-method)
                        (gnus-subscribe-group to-newsgroup))
                   (error "Couldn't create group %s" to-newsgroup)))
           (error "No such group: %s" to-newsgroup)))
      to-newsgroup))
  
                        (gnus-subscribe-group to-newsgroup))
                   (error "Couldn't create group %s" to-newsgroup)))
           (error "No such group: %s" to-newsgroup)))
      to-newsgroup))
  
-(defun gnus-summary-save-parts (type dir n reverse)
+(defun gnus-summary-save-parts (type dir n &optional reverse)
    "Save parts matching TYPE to DIR.
  If REVERSE, save parts that do not match TYPE."
    (interactive
    "Save parts matching TYPE to DIR.
  If REVERSE, save parts that do not match TYPE."
    (interactive
-   (list (read-string "Save parts of type: " "image/.*")
-        (read-file-name "Save to directory: " t nil t)
+   (list (read-string "Save parts of type: " 
+                     (or (car gnus-summary-save-parts-type-history)
+                         gnus-summary-save-parts-default-mime)
+                     'gnus-summary-save-parts-type-history)
+        (setq gnus-summary-save-parts-last-directory
+              (read-file-name "Save to directory: " 
+                              gnus-summary-save-parts-last-directory
+                              nil t))
          current-prefix-arg))
    (gnus-summary-iterate n
      (let ((gnus-display-mime-function nil)
          current-prefix-arg))
    (gnus-summary-iterate n
      (let ((gnus-display-mime-function nil)
@@ -9035,10 +9487,12 @@ If REVERSE, save parts that do not match TYPE."
        (gnus-summary-select-article))
      (save-excursion
        (set-buffer gnus-article-buffer)
        (gnus-summary-select-article))
      (save-excursion
        (set-buffer gnus-article-buffer)
-      (let ((handles (or (mm-dissect-buffer) (mm-uu-dissect))))
+      (let ((handles (or gnus-article-mime-handles
+                        (mm-dissect-buffer) (mm-uu-dissect))))
         (when handles
           (gnus-summary-save-parts-1 type dir handles reverse)
         (when handles
           (gnus-summary-save-parts-1 type dir handles reverse)
-         (mm-destroy-parts handles))))))
+         (unless gnus-article-mime-handles ;; Don't destroy this case.
+           (mm-destroy-parts handles)))))))
  
  (defun gnus-summary-save-parts-1 (type dir handle reverse)
    (if (stringp (car handle))
  
  (defun gnus-summary-save-parts-1 (type dir handle reverse)
    (if (stringp (car handle))
@@ -9052,7 +9506,9 @@ If REVERSE, save parts that do not match TYPE."
                     (or
                      (mail-content-type-get
                       (mm-handle-disposition handle) 'filename)
                     (or
                      (mail-content-type-get
                       (mm-handle-disposition handle) 'filename)
-                    (concat gnus-newsgroup-name "." gnus-current-article)))
+                    (concat gnus-newsgroup-name
+                            "." (number-to-string
+                                 (cdr gnus-article-current)))))
                    dir)))
         (unless (file-exists-p file)
           (mm-save-part-to-file handle file))))))
                    dir)))
         (unless (file-exists-p file)
           (mm-save-part-to-file handle file))))))
@@ -9246,8 +9702,8 @@ If REVERSE, save parts that do not match TYPE."
  ;;;
  
  (defun gnus-highlight-selected-summary ()
  ;;;
  
  (defun gnus-highlight-selected-summary ()
+  "Highlight selected article in summary buffer."
    ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
    ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
-  ;; Highlight selected article in summary buffer
    (when gnus-summary-selected-face
      (save-excursion
        (let* ((beg (progn (beginning-of-line) (point)))
    (when gnus-summary-selected-face
      (save-excursion
        (let* ((beg (progn (beginning-of-line) (point)))
@@ -9342,23 +9798,32 @@ If REVERSE, save parts that do not match TYPE."
        (if compute
           read
         (save-excursion
        (if compute
           read
         (save-excursion
-         (set-buffer gnus-group-buffer)
-         (gnus-undo-register
-           `(progn
-              (gnus-info-set-marks ',info ',(gnus-info-marks info) 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)
-               (unless (gnus-check-group group)
-                 (error "Can't open server for %s" group))
-               (gnus-request-set-mark
-                group (delq nil (list (if add (list add 'add '(read)))
-                                      (if del (list del 'del '(read)))))))))
+         (let (setmarkundo)
+           ;; Propagate the read marks to the backend.
+           (when (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)
+                 (unless (gnus-check-group group)
+                   (error "Can't open server for %s" group))
+                 (gnus-request-set-mark
+                  group (delq nil (list (if add (list add 'add '(read)))
+                                        (if del (list del 'del '(read))))))
+                 (setq setmarkundo
+                       `(gnus-request-set-mark
+                         ,group
+                         ',(delq nil (list
+                                      (if del (list del 'add '(read)))
+                                      (if add (list add 'del '(read))))))))))
+           (set-buffer gnus-group-buffer)
+           (gnus-undo-register
+             `(progn
+                (gnus-info-set-marks ',info ',(gnus-info-marks info) 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)
+                ,setmarkundo))))
         ;; Enter this list into the group info.
         (gnus-info-set-read info read)
         ;; Set the number of unread articles in gnus-newsrc-hashtb.
         ;; Enter this list into the group info.
         (gnus-info-set-read info read)
         ;; Set the number of unread articles in gnus-newsrc-hashtb.
@@ -9399,7 +9864,7 @@ If REVERSE, save parts that do not match TYPE."
        (setq gnus-newsgroup-charset nil)
      (let* ((name (and gnus-newsgroup-name
                       (gnus-group-real-name gnus-newsgroup-name)))
        (setq gnus-newsgroup-charset nil)
      (let* ((name (and gnus-newsgroup-name
                       (gnus-group-real-name gnus-newsgroup-name)))
-          (ignored-charsets 
+          (ignored-charsets
             (or gnus-newsgroup-ephemeral-ignored-charsets
                 (append
                  (and gnus-newsgroup-name
             (or gnus-newsgroup-ephemeral-ignored-charsets
                 (append
                  (and gnus-newsgroup-name
@@ -9427,7 +9892,7 @@ If REVERSE, save parts that do not match TYPE."
                                      charset (cadr elem))))
                            charset)))
                 gnus-default-charset))
                                      charset (cadr elem))))
                            charset)))
                 gnus-default-charset))
-      (set (make-local-variable 'gnus-newsgroup-ignored-charsets) 
+      (set (make-local-variable 'gnus-newsgroup-ignored-charsets)
            ignored-charsets))))
  
  ;;;
            ignored-charsets))))
  
  ;;;
@@ -9449,17 +9914,17 @@ treated as multipart/mixed."
    (interactive (list (gnus-summary-article-number)))
    (gnus-with-article article
      (message-narrow-to-head)
    (interactive (list (gnus-summary-article-number)))
    (gnus-with-article article
      (message-narrow-to-head)
+    (message-remove-header "Mime-Version")
      (goto-char (point-max))
      (goto-char (point-max))
+    (insert "Mime-Version: 1.0\n")
      (widen)
      (when (search-forward "\n--" nil t)
        (let ((separator (buffer-substring (point) (gnus-point-at-eol))))
         (message-narrow-to-head)
      (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))
         (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)))
         (widen))))
    (let (gnus-mark-article-hook)
      (gnus-summary-select-article t t nil article)))
@@ -9474,37 +9939,6 @@ treated as multipart/mixed."
         (gnus-summary-show-article))
      (gnus-summary-show-article)))
  
         (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))
-
  ;;;
  ;;; Generic summary marking commands
  ;;;
  ;;;
  ;;; Generic summary marking commands
  ;;;
@@ -9538,7 +9972,7 @@ Then replace the article with the result."
         (setq func (eval func))
         (define-key map (nth 4 lway) func)))))
        
         (setq func (eval func))
         (define-key map (nth 4 lway) func)))))
        
-(defun gnus-summary-make-marking-command-1 (mark way lway name)      
+(defun gnus-summary-make-marking-command-1 (mark way lway name)
    `(defun ,(intern
             (format "gnus-summary-put-mark-as-%s%s"
                     name (if (eq way 'nomove)
    `(defun ,(intern
             (format "gnus-summary-put-mark-as-%s%s"
                     name (if (eq way 'nomove)