*** empty log message ***

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

index 5bbc0ef..19ab7e6 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -314,9 +314,6 @@ It uses the same syntax as the `gnus-split-methods' variable."
                          (cons regexp (repeat string))
                          sexp)))
  
                          (cons regexp (repeat string))
                          sexp)))
  
-;; Mark variables suggested by Thomas Michanek
-;; <Thomas.Michanek@telelogic.se>.
-
  (defcustom gnus-unread-mark ? 
    "*Mark used for unread articles."
    :group 'gnus-summary-marks
  (defcustom gnus-unread-mark ? 
    "*Mark used for unread articles."
    :group 'gnus-summary-marks
@@ -613,7 +610,7 @@ is not run if `gnus-visual' is nil."
    :group 'gnus-summary-visual
    :type 'hook)
  
    :group 'gnus-summary-visual
    :type 'hook)
  
-(defcustom gnus-parse-headers-hook 
+(defcustom gnus-parse-headers-hook
    (list 'gnus-decode-rfc1522)
    "*A hook called before parsing the headers."
    :group 'gnus-various
    (list 'gnus-decode-rfc1522)
    "*A hook called before parsing the headers."
    :group 'gnus-various
@@ -657,7 +654,7 @@ automatically when it is selected."
    :group 'gnus-summary-visual
    :type 'face)
  
    :group 'gnus-summary-visual
    :type 'face)
  
-(defcustom gnus-summary-highlight 
+(defcustom gnus-summary-highlight
    '(((= mark gnus-canceled-mark)
       . gnus-summary-cancelled-face)
      ((and (> score default)
    '(((= mark gnus-canceled-mark)
       . gnus-summary-cancelled-face)
      ((and (> score default)
@@ -683,13 +680,13 @@ automatically when it is selected."
       . gnus-summary-low-unread-face)
      ((and (= mark gnus-unread-mark))
       . gnus-summary-normal-unread-face)
       . gnus-summary-low-unread-face)
      ((and (= mark gnus-unread-mark))
       . gnus-summary-normal-unread-face)
-    ((> score default) 
+    ((> score default)
       . gnus-summary-high-read-face)
       . gnus-summary-high-read-face)
-    ((< score default) 
+    ((< score default)
       . gnus-summary-low-read-face)
       . gnus-summary-low-read-face)
-    (t 
+    (t
       . gnus-summary-normal-read-face))
       . gnus-summary-normal-read-face))
-  "Controls the highlighting of summary buffer lines. 
+  "Controls the highlighting of summary buffer lines.
  
  A list of (FORM . FACE) pairs.  When deciding how a a particular
  summary line should be displayed, each form is evaluated.  The content
  
  A list of (FORM . FACE) pairs.  When deciding how a a particular
  summary line should be displayed, each form is evaluated.  The content
@@ -700,7 +697,7 @@ You can use the following variables in the FORM field.
  
  score:   The articles score
  default: The default article score.
  
  score:   The articles score
  default: The default article score.
-below:   The score below which articles are automatically marked as read. 
+below:   The score below which articles are automatically marked as read.
  mark:    The articles mark."
    :group 'gnus-summary-visual
    :type '(repeat (cons (sexp :tag "Form" nil)
  mark:    The articles mark."
    :group 'gnus-summary-visual
    :type '(repeat (cons (sexp :tag "Form" nil)
@@ -711,7 +708,7 @@ mark:    The articles mark."
  
  (defvar gnus-scores-exclude-files nil)
  
  
  (defvar gnus-scores-exclude-files nil)
  
-(defvar gnus-summary-display-table 
+(defvar gnus-summary-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.
@@ -1037,30 +1034,6 @@ simple-first is t, first argument is already simplified."
      (equal s1
            (gnus-simplify-subject-fully s2)))))
  
      (equal s1
            (gnus-simplify-subject-fully s2)))))
  
-(defun gnus-offer-save-summaries ()
-  "Offer to save all active summary buffers."
-  (save-excursion
-    (let ((buflist (buffer-list))
-         buffers bufname)
-      ;; Go through all buffers and find all summaries.
-      (while buflist
-       (and (setq bufname (buffer-name (car buflist)))
-            (string-match "Summary" bufname)
-            (save-excursion
-              (set-buffer bufname)
-              ;; We check that this is, indeed, a summary buffer.
-              (and (eq major-mode 'gnus-summary-mode)
-                   ;; Also make sure this isn't bogus.
-                   gnus-newsgroup-prepared))
-            (push bufname buffers))
-       (setq buflist (cdr buflist)))
-      ;; Go through all these summary buffers and offer to save them.
-      (when buffers
-       (map-y-or-n-p
-        "Update summary buffer %s? "
-        (lambda (buf) (set-buffer buf) (gnus-summary-exit))
-        buffers)))))
-
  (defun gnus-summary-bubble-group ()
    "Increase the score of the current group.
  This is a handy function to add to `gnus-summary-exit-hook' to
  (defun gnus-summary-bubble-group ()
    "Increase the score of the current group.
  This is a handy function to add to `gnus-summary-exit-hook' to
@@ -1259,7 +1232,7 @@ increase the score of each group you read."
      "\M-#" gnus-uu-unmark-thread)
  
    (gnus-define-keys (gnus-summary-buffer-map "Y" gnus-summary-mode-map)
      "\M-#" gnus-uu-unmark-thread)
  
    (gnus-define-keys (gnus-summary-buffer-map "Y" gnus-summary-mode-map)
-    "g" gnus-summary-prepare 
+    "g" gnus-summary-prepare
      "c" gnus-summary-insert-cached-articles)
  
    (gnus-define-keys (gnus-summary-exit-map "Z" gnus-summary-mode-map)
      "c" gnus-summary-insert-cached-articles)
  
    (gnus-define-keys (gnus-summary-exit-map "Z" gnus-summary-mode-map)
@@ -1306,7 +1279,8 @@ increase the score of each group you read."
      "r" gnus-summary-caesar-message
      "t" gnus-article-hide-headers
      "v" gnus-summary-verbose-headers
      "r" gnus-summary-caesar-message
      "t" gnus-article-hide-headers
      "v" gnus-summary-verbose-headers
-    "m" gnus-summary-toggle-mime)
+    "m" gnus-summary-toggle-mime
+    "h" gnus-article-treat-html)
  
    (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
      "a" gnus-article-hide
  
    (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
      "a" gnus-article-hide
@@ -1406,51 +1380,51 @@ increase the score of each group you read."
  
      '(("Default header"
         ["Ask" (gnus-score-set-default 'gnus-score-default-header nil)
  
      '(("Default header"
         ["Ask" (gnus-score-set-default 'gnus-score-default-header nil)
-       :style radio 
+       :style radio
         :selected (null gnus-score-default-header)]
         ["From" (gnus-score-set-default 'gnus-score-default-header 'a)
         :selected (null gnus-score-default-header)]
         ["From" (gnus-score-set-default 'gnus-score-default-header 'a)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'a)]
         ["Subject" (gnus-score-set-default 'gnus-score-default-header 's)
         :selected (eq gnus-score-default-header 'a)]
         ["Subject" (gnus-score-set-default 'gnus-score-default-header 's)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 's)]
         ["Article body"
         (gnus-score-set-default 'gnus-score-default-header 'b)
         :selected (eq gnus-score-default-header 's)]
         ["Article body"
         (gnus-score-set-default 'gnus-score-default-header 'b)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'b )]
         ["All headers"
         (gnus-score-set-default 'gnus-score-default-header 'h)
         :selected (eq gnus-score-default-header 'b )]
         ["All headers"
         (gnus-score-set-default 'gnus-score-default-header 'h)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'h )]
         ["Message-ID" (gnus-score-set-default 'gnus-score-default-header 'i)
         :selected (eq gnus-score-default-header 'h )]
         ["Message-ID" (gnus-score-set-default 'gnus-score-default-header 'i)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'i )]
         ["Thread" (gnus-score-set-default 'gnus-score-default-header 't)
         :selected (eq gnus-score-default-header 'i )]
         ["Thread" (gnus-score-set-default 'gnus-score-default-header 't)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 't )]
         ["Crossposting"
         (gnus-score-set-default 'gnus-score-default-header 'x)
         :selected (eq gnus-score-default-header 't )]
         ["Crossposting"
         (gnus-score-set-default 'gnus-score-default-header 'x)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'x )]
         ["Lines" (gnus-score-set-default 'gnus-score-default-header 'l)
         :selected (eq gnus-score-default-header 'x )]
         ["Lines" (gnus-score-set-default 'gnus-score-default-header 'l)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'l )]
         ["Date" (gnus-score-set-default 'gnus-score-default-header 'd)
         :selected (eq gnus-score-default-header 'l )]
         ["Date" (gnus-score-set-default 'gnus-score-default-header 'd)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'd )]
         ["Followups to author"
         (gnus-score-set-default 'gnus-score-default-header 'f)
         :selected (eq gnus-score-default-header 'd )]
         ["Followups to author"
         (gnus-score-set-default 'gnus-score-default-header 'f)
-       :style radio 
+       :style radio
         :selected (eq gnus-score-default-header 'f )])
        ("Default type"
         ["Ask" (gnus-score-set-default 'gnus-score-default-type nil)
         :selected (eq gnus-score-default-header 'f )])
        ("Default type"
         ["Ask" (gnus-score-set-default 'gnus-score-default-type nil)
-       :style radio 
+       :style radio
         :selected (null gnus-score-default-type)]
         ;; The `:active' key is commented out in the following,
         ;; because the GNU Emacs hack to support radio buttons use
         :selected (null gnus-score-default-type)]
         ;; The `:active' key is commented out in the following,
         ;; because the GNU Emacs hack to support radio buttons use
-       ;; active to indicate which button is selected.  
+       ;; active to indicate which button is selected.
         ["Substring" (gnus-score-set-default 'gnus-score-default-type 's)
         ["Substring" (gnus-score-set-default 'gnus-score-default-type 's)
-       :style radio 
+       :style radio
         ;; :active (not (memq gnus-score-default-header '(l d)))
         :selected (eq gnus-score-default-type 's)]
         ["Regexp" (gnus-score-set-default 'gnus-score-default-type 'r)
         ;; :active (not (memq gnus-score-default-header '(l d)))
         :selected (eq gnus-score-default-type 's)]
         ["Regexp" (gnus-score-set-default 'gnus-score-default-type 'r)
@@ -1462,34 +1436,34 @@ increase the score of each group you read."
         ;; :active (not (memq gnus-score-default-header '(l d)))
         :selected (eq gnus-score-default-type 'e)]
         ["Fuzzy" (gnus-score-set-default 'gnus-score-default-type 'f)
         ;; :active (not (memq gnus-score-default-header '(l d)))
         :selected (eq gnus-score-default-type 'e)]
         ["Fuzzy" (gnus-score-set-default 'gnus-score-default-type 'f)
-       :style radio 
+       :style radio
         ;; :active (not (memq gnus-score-default-header '(l d)))
         :selected (eq gnus-score-default-type 'f)]
         ["Before date" (gnus-score-set-default 'gnus-score-default-type 'b)
         ;; :active (not (memq gnus-score-default-header '(l d)))
         :selected (eq gnus-score-default-type 'f)]
         ["Before date" (gnus-score-set-default 'gnus-score-default-type 'b)
-       :style radio 
+       :style radio
         ;; :active (eq (gnus-score-default-header 'd))
         :selected (eq gnus-score-default-type 'b)]
         ["At date" (gnus-score-set-default 'gnus-score-default-type 'n)
         ;; :active (eq (gnus-score-default-header 'd))
         :selected (eq gnus-score-default-type 'b)]
         ["At date" (gnus-score-set-default 'gnus-score-default-type 'n)
-       :style radio 
+       :style radio
         ;; :active (eq (gnus-score-default-header 'd))
         :selected (eq gnus-score-default-type 'n)]
         ["After date" (gnus-score-set-default 'gnus-score-default-type 'a)
         ;; :active (eq (gnus-score-default-header 'd))
         :selected (eq gnus-score-default-type 'n)]
         ["After date" (gnus-score-set-default 'gnus-score-default-type 'a)
-       :style radio 
+       :style radio
         ;; :active (eq (gnus-score-default-header 'd))
         :selected (eq gnus-score-default-type 'a)]
         ["Less than number"
         (gnus-score-set-default 'gnus-score-default-type '<)
         ;; :active (eq (gnus-score-default-header 'd))
         :selected (eq gnus-score-default-type 'a)]
         ["Less than number"
         (gnus-score-set-default 'gnus-score-default-type '<)
-       :style radio 
+       :style radio
         ;; :active (eq (gnus-score-default-header 'l))
         :selected (eq gnus-score-default-type '<)]
         ["Equal to number"
         (gnus-score-set-default 'gnus-score-default-type '=)
         ;; :active (eq (gnus-score-default-header 'l))
         :selected (eq gnus-score-default-type '<)]
         ["Equal to number"
         (gnus-score-set-default 'gnus-score-default-type '=)
-       :style radio 
+       :style radio
         ;; :active (eq (gnus-score-default-header 'l))
         :selected (eq gnus-score-default-type '=)]
         ;; :active (eq (gnus-score-default-header 'l))
         :selected (eq gnus-score-default-type '=)]
-       ["Greater than number" 
+       ["Greater than number"
         (gnus-score-set-default 'gnus-score-default-type '>)
         (gnus-score-set-default 'gnus-score-default-type '>)
-       :style radio 
+       :style radio
         ;; :active (eq (gnus-score-default-header 'l))
         :selected (eq gnus-score-default-type '>)])
        ["Default fold" gnus-score-default-fold-toggle
         ;; :active (eq (gnus-score-default-header 'l))
         :selected (eq gnus-score-default-type '>)])
        ["Default fold" gnus-score-default-fold-toggle
@@ -1507,7 +1481,7 @@ increase the score of each group you read."
         (gnus-score-set-default 'gnus-score-default-duration 't)
         :style radio
         :selected (eq gnus-score-default-duration 't)]
         (gnus-score-set-default 'gnus-score-default-duration 't)
         :style radio
         :selected (eq gnus-score-default-duration 't)]
-       ["Immediate" 
+       ["Immediate"
         (gnus-score-set-default 'gnus-score-default-duration 'i)
         :style radio
         :selected (eq gnus-score-default-duration 'i)]))
         (gnus-score-set-default 'gnus-score-default-duration 'i)
         :style radio
         :selected (eq gnus-score-default-duration 'i)]))
@@ -1545,6 +1519,7 @@ 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]
+       ["UnHTMLize" gnus-article-treat-html t]
         ["Rot 13" gnus-summary-caesar-message t]
         ["Unix pipe" gnus-summary-pipe-message t]
         ["Add buttons" gnus-article-add-buttons t]
         ["Rot 13" gnus-summary-caesar-message t]
         ["Unix pipe" gnus-summary-pipe-message t]
         ["Add buttons" gnus-article-add-buttons t]
@@ -1683,7 +1658,7 @@ increase the score of each group you read."
         ["Articles" gnus-summary-limit-to-articles t]
         ["Pop limit" gnus-summary-pop-limit t]
         ["Show dormant" gnus-summary-limit-include-dormant t]
         ["Articles" gnus-summary-limit-to-articles t]
         ["Pop limit" gnus-summary-pop-limit t]
         ["Show dormant" gnus-summary-limit-include-dormant t]
-       ["Hide childless dormant" 
+       ["Hide childless dormant"
          gnus-summary-limit-exclude-childless-dormant t]
         ;;["Hide thread" gnus-summary-limit-exclude-thread t]
         ["Show expunged" gnus-summary-show-all-expunged t])
          gnus-summary-limit-exclude-childless-dormant t]
         ;;["Hide thread" gnus-summary-limit-exclude-thread t]
         ["Show expunged" gnus-summary-show-all-expunged t])
@@ -1795,8 +1770,8 @@ increase the score of each group you read."
                    ("permanent" nil)
                    ("immediate" now)))
           header)
                    ("permanent" nil)
                    ("immediate" now)))
           header)
-      (list 
-       (apply 
+      (list
+       (apply
         'nconc
         (list
          (if (eq type 'lower)
         'nconc
         (list
          (if (eq type 'lower)
@@ -1805,17 +1780,17 @@ increase the score of each group you read."
         (let (outh)
           (while headers
             (setq header (car headers))
         (let (outh)
           (while headers
             (setq header (car headers))
-           (setq outh 
-                 (cons 
-                  (apply 
+           (setq outh
+                 (cons
+                  (apply
                     'nconc
                     (list (car header))
                     (let ((ts (cdr (assoc (nth 2 header) types)))
                           outt)
                       (while ts
                         (setq outt
                     'nconc
                     (list (car header))
                     (let ((ts (cdr (assoc (nth 2 header) types)))
                           outt)
                       (while ts
                         (setq outt
-                             (cons 
-                              (apply 
+                             (cons
+                              (apply
                                 'nconc
                                 (list (caar ts))
                                 (let ((ps perms)
                                 'nconc
                                 (list (caar ts))
                                 (let ((ps perms)
@@ -1833,7 +1808,7 @@ increase the score of each group you read."
                                                      (string= (nth 1 header)
                                                               "body"))
                                                  ""
                                                      (string= (nth 1 header)
                                                               "body"))
                                                  ""
-                                              (list 'gnus-summary-header 
+                                              (list 'gnus-summary-header
                                                      (nth 1 header)))
                                              (list 'quote (nth 1 (car ts)))
                                              (list 'gnus-score-default nil)
                                                      (nth 1 header)))
                                              (list 'quote (nth 1 (car ts)))
                                              (list 'gnus-score-default nil)
@@ -2073,7 +2048,7 @@ The following commands are available:
          (level (gnus-data-level (car data)))
          children)
      (setq data (cdr data))
          (level (gnus-data-level (car data)))
          children)
      (setq data (cdr data))
-    (while (and data           
+    (while (and data
                 (= (gnus-data-level (car data)) (1+ level)))
        (push (gnus-data-number (car data)) children)
        (setq data (cdr data)))
                 (= (gnus-data-level (car data)) (1+ level)))
        (push (gnus-data-number (car data)) children)
        (setq data (cdr data)))
@@ -2345,11 +2320,11 @@ This is all marks except unread, ticked, dormant, and expirable."
     (point) (progn (eval gnus-summary-dummy-line-format-spec) (point))
     (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
  
     (point) (progn (eval gnus-summary-dummy-line-format-spec) (point))
     (list 'gnus-number gnus-tmp-number 'gnus-intangible gnus-tmp-number)))
  
-(defun gnus-summary-insert-line (gnus-tmp-header 
-                                gnus-tmp-level gnus-tmp-current 
-                                gnus-tmp-unread gnus-tmp-replied 
+(defun gnus-summary-insert-line (gnus-tmp-header
+                                gnus-tmp-level gnus-tmp-current
+                                gnus-tmp-unread gnus-tmp-replied
                                  gnus-tmp-expirable gnus-tmp-subject-or-nil
                                  gnus-tmp-expirable gnus-tmp-subject-or-nil
-                                &optional gnus-tmp-dummy gnus-tmp-score 
+                                &optional gnus-tmp-dummy gnus-tmp-score
                                  gnus-tmp-process)
    (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level))
          (gnus-tmp-lines (mail-header-lines gnus-tmp-header))
                                  gnus-tmp-process)
    (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level))
          (gnus-tmp-lines (mail-header-lines gnus-tmp-header))
@@ -2434,7 +2409,7 @@ This is all marks except unread, ticked, dormant, and expirable."
  (defvar gnus-tmp-new-adopts nil)
  
  (defun gnus-summary-number-of-articles-in-thread (thread &optional level char)
  (defvar gnus-tmp-new-adopts nil)
  
  (defun gnus-summary-number-of-articles-in-thread (thread &optional level char)
-  "Return the number of articles in THREAD.  
+  "Return the number of articles in THREAD.
  This may be 0 in some cases -- if none of the articles in
  the thread are to be displayed."
    (let* ((number
  This may be 0 in some cases -- if none of the articles in
  the thread are to be displayed."
    (let* ((number
@@ -2557,8 +2532,8 @@ If NO-DISPLAY, don't generate a summary buffer."
               (let ((gnus-newsgroup-dormant nil))
                 (gnus-summary-initial-limit show-all))
             (gnus-summary-initial-limit show-all))
               (let ((gnus-newsgroup-dormant nil))
                 (gnus-summary-initial-limit show-all))
             (gnus-summary-initial-limit show-all))
-       (setq gnus-newsgroup-limit 
-             (mapcar 
+       (setq gnus-newsgroup-limit
+             (mapcar
                (lambda (header) (mail-header-number header))
                gnus-newsgroup-headers)))
        ;; Generate the summary buffer.
                (lambda (header) (mail-header-number header))
                gnus-newsgroup-headers)))
        ;; Generate the summary buffer.
@@ -2663,7 +2638,7 @@ If NO-DISPLAY, don't generate a summary buffer."
          ;; Just remove the leading "Re:".
          (t
           (gnus-simplify-subject-re subject))))
          ;; Just remove the leading "Re:".
          (t
           (gnus-simplify-subject-re subject))))
-  
+
    (if (and gnus-summary-gather-exclude-subject
            (string-match gnus-summary-gather-exclude-subject subject))
        nil                              ; This article shouldn't be gathered
    (if (and gnus-summary-gather-exclude-subject
            (string-match gnus-summary-gather-exclude-subject subject))
        nil                              ; This article shouldn't be gathered
@@ -2686,7 +2661,7 @@ If NO-DISPLAY, don't generate a summary buffer."
           subject hthread whole-subject)
        (while threads
         (setq subject (gnus-general-simplify-subject
           subject hthread whole-subject)
        (while threads
         (setq subject (gnus-general-simplify-subject
-                      (setq whole-subject (mail-header-subject 
+                      (setq whole-subject (mail-header-subject
                                             (caar threads)))))
         (when subject
           (if (setq hthread (gnus-gethash subject hashtb))
                                             (caar threads)))))
         (when subject
           (if (setq hthread (gnus-gethash subject hashtb))
@@ -2789,7 +2764,7 @@ If NO-DISPLAY, don't generate a summary buffer."
                 ;; Deal with self-referencing References loops.
                 (when (and (car (symbol-value refs))
                            (not (zerop
                 ;; Deal with self-referencing References loops.
                 (when (and (car (symbol-value refs))
                            (not (zerop
-                                (apply 
+                                (apply
                                   '+
                                   (mapcar
                                    (lambda (thread)
                                   '+
                                   (mapcar
                                    (lambda (thread)
@@ -2808,9 +2783,9 @@ If NO-DISPLAY, don't generate a summary buffer."
  (defun gnus-build-sparse-threads ()
    (let ((headers gnus-newsgroup-headers)
         (deps gnus-newsgroup-dependencies)
  (defun gnus-build-sparse-threads ()
    (let ((headers gnus-newsgroup-headers)
         (deps gnus-newsgroup-dependencies)
-       header references generation relations 
+       header references generation relations
         cthread subject child end pthread relation)
         cthread subject child end pthread relation)
-    ;; First we create an alist of generations/relations, where 
+    ;; First we create an alist of generations/relations, where
      ;; generations is how much we trust the relation, and the relation
      ;; is parent/child.
      (gnus-message 7 "Making sparse threads...")
      ;; generations is how much we trust the relation, and the relation
      ;; is parent/child.
      (gnus-message 7 "Making sparse threads...")
@@ -2840,7 +2815,7 @@ If NO-DISPLAY, don't generate a summary buffer."
                 (unless (car (symbol-value cthread))
                   ;; Make this article the parent of these threads.
                   (setcar (symbol-value cthread)
                 (unless (car (symbol-value cthread))
                   ;; Make this article the parent of these threads.
                   (setcar (symbol-value cthread)
-                         (vector gnus-reffed-article-number 
+                         (vector gnus-reffed-article-number
                                   (cadddr relation)
                                   "" ""
                                   (cadr relation)
                                   (cadddr relation)
                                   "" ""
                                   (cadr relation)
@@ -2937,13 +2912,25 @@ If NO-DISPLAY, don't generate a summary buffer."
         header level nil (gnus-article-mark article)
         (memq article gnus-newsgroup-replied)
         (memq article gnus-newsgroup-expirable)
         header level nil (gnus-article-mark article)
         (memq article gnus-newsgroup-replied)
         (memq article gnus-newsgroup-expirable)
-       (mail-header-subject header)
+       ;; Only insert the Subject string when it's different
+       ;; from the previous Subject string.
+       (unless (gnus-subject-equal
+               (condition-case ()
+                   (mail-header-subject
+                    (gnus-data-header
+                     (cadr
+                      (gnus-data-find-list
+                       article
+                       (gnus-data-list t)))))
+                 (error ""))
+               (mail-header-subject header))
+        (mail-header-subject header))
         nil (cdr (assq article gnus-newsgroup-scored))
         (memq article gnus-newsgroup-processable))
        (when length
         (gnus-data-update-list
          (cdr datal) (- length (- (gnus-data-pos data) (point))))))))
         nil (cdr (assq article gnus-newsgroup-scored))
         (memq article gnus-newsgroup-processable))
        (when length
         (gnus-data-update-list
          (cdr datal) (- length (- (gnus-data-pos data) (point))))))))
-     
+
  (defun gnus-summary-update-article (article &optional iheader)
    "Update ARTICLE in the summary buffer."
    (set-buffer gnus-summary-buffer)
  (defun gnus-summary-update-article (article &optional iheader)
    "Update ARTICLE in the summary buffer."
    (set-buffer gnus-summary-buffer)
@@ -2954,7 +2941,7 @@ If NO-DISPLAY, don't generate a summary buffer."
          (references (mail-header-references header))
          (parent
           (gnus-id-to-thread
          (references (mail-header-references header))
          (parent
           (gnus-id-to-thread
-          (or (gnus-parent-id 
+          (or (gnus-parent-id
                 (when (and references
                            (not (equal "" references)))
                   references))
                 (when (and references
                            (not (equal "" references)))
                   references))
@@ -3027,7 +3014,7 @@ If NO-DISPLAY, don't generate a summary buffer."
  
  (defun gnus-parent-headers (headers &optional generation)
    "Return the headers of the GENERATIONeth parent of HEADERS."
  
  (defun gnus-parent-headers (headers &optional generation)
    "Return the headers of the GENERATIONeth parent of HEADERS."
-  (unless generation 
+  (unless generation
      (setq generation 1))
    (let (references parent)
      (while (and headers (not (zerop generation)))
      (setq generation 1))
    (let (references parent)
      (while (and headers (not (zerop generation)))
@@ -3058,7 +3045,7 @@ If NO-DISPLAY, don't generate a summary buffer."
    (let ((level (gnus-summary-thread-level article))
         (refs (mail-header-references  (gnus-summary-article-header article)))
         particle)
    (let ((level (gnus-summary-thread-level article))
         (refs (mail-header-references  (gnus-summary-article-header article)))
         particle)
-    (cond 
+    (cond
       ((null level) nil)
       ((zerop level) t)
       ((null refs) t)
       ((null level) nil)
       ((zerop level) t)
       ((null refs) t)
@@ -3071,7 +3058,7 @@ If NO-DISPLAY, don't generate a summary buffer."
  (defun gnus-root-id (id)
    "Return the id of the root of the thread where ID appears."
    (let (last-id prev)
  (defun gnus-root-id (id)
    "Return the id of the root of the thread where ID appears."
    (let (last-id prev)
-    (while (and id (setq prev (car (gnus-gethash 
+    (while (and id (setq prev (car (gnus-gethash
                                     id gnus-newsgroup-dependencies))))
        (setq last-id id
             id (gnus-parent-id (mail-header-references prev))))
                                     id gnus-newsgroup-dependencies))))
        (setq last-id id
             id (gnus-parent-id (mail-header-references prev))))
@@ -3140,7 +3127,7 @@ If NO-DISPLAY, don't generate a summary buffer."
        (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-data-remove 
+      (gnus-data-remove
         number
         (- (gnus-point-at-bol)
           (prog1
         number
         (- (gnus-point-at-bol)
           (prog1
@@ -3162,7 +3149,7 @@ If NO-DISPLAY, don't generate a summary buffer."
      (gnus-message 7 "Sorting articles...")
      (prog1
         (setq gnus-newsgroup-headers
      (gnus-message 7 "Sorting articles...")
      (prog1
         (setq gnus-newsgroup-headers
-             (sort articles (gnus-make-sort-function 
+             (sort articles (gnus-make-sort-function
                               gnus-article-sort-functions)))
        (gnus-message 7 "Sorting articles...done"))))
  
                               gnus-article-sort-functions)))
        (gnus-message 7 "Sorting articles...done"))))
  
@@ -3575,7 +3562,7 @@ If READ-ALL is non-nil, all articles in the group are selected."
          articles fetched-articles cached)
  
      (unless (gnus-check-server
          articles fetched-articles cached)
  
      (unless (gnus-check-server
-            (setq gnus-current-select-method 
+            (setq gnus-current-select-method
                    (gnus-find-method-for-group group)))
        (error "Couldn't open server"))
  
                    (gnus-find-method-for-group group)))
        (error "Couldn't open server"))
  
@@ -3615,7 +3602,7 @@ If READ-ALL is non-nil, all articles in the group are selected."
      (gnus-update-read-articles group gnus-newsgroup-unreads)
      (unless (gnus-ephemeral-group-p gnus-newsgroup-name)
        (gnus-group-update-group group))
      (gnus-update-read-articles group gnus-newsgroup-unreads)
      (unless (gnus-ephemeral-group-p gnus-newsgroup-name)
        (gnus-group-update-group group))
- 
+
      (setq articles (gnus-articles-to-read group read-all))
  
      (cond
      (setq articles (gnus-articles-to-read group read-all))
  
      (cond
@@ -3641,7 +3628,7 @@ If READ-ALL is non-nil, all articles in the group are selected."
                                      (not (eq gnus-fetch-old-headers 'some))
                                      (not (numberp gnus-fetch-old-headers)))
                                     (> (length articles) 1))))))
                                      (not (eq gnus-fetch-old-headers 'some))
                                      (not (numberp gnus-fetch-old-headers)))
                                     (> (length articles) 1))))))
-               (gnus-get-newsgroup-headers-xover 
+               (gnus-get-newsgroup-headers-xover
                  articles nil nil gnus-newsgroup-name t)
               (gnus-get-newsgroup-headers)))
        (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)
                  articles nil nil gnus-newsgroup-name t)
               (gnus-get-newsgroup-headers)))
        (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)
@@ -3839,7 +3826,7 @@ If READ-ALL is non-nil, all articles in the group are selected."
                                                 (car type))))))
           (push (cons (cdr type)
                       (if (memq (cdr type) uncompressed) list
                                                 (car type))))))
           (push (cons (cdr type)
                       (if (memq (cdr type) uncompressed) list
-                       (gnus-compress-sequence 
+                       (gnus-compress-sequence
                          (set symbol (sort list '<)) t)))
                 newmarked)))
  
                          (set symbol (sort list '<)) t)))
                 newmarked)))
  
@@ -3892,12 +3879,21 @@ If WHERE is `summary', the summary mode line format will be used."
                     (gnus-mode-string-quote
                      (mail-header-subject gnus-current-headers))
                   ""))
                     (gnus-mode-string-quote
                      (mail-header-subject gnus-current-headers))
                   ""))
-              max-len
+              bufname-length max-len
                gnus-tmp-header);; passed as argument to any user-format-funcs
           (setq mode-string (eval mformat))
                gnus-tmp-header);; passed as argument to any user-format-funcs
           (setq mode-string (eval mformat))
+         (setq bufname-length (if (string-match "%b" mode-string)
+                                  (- (length
+                                      (buffer-name
+                                       (if (eq where 'summary)
+                                           nil
+                                         (get-buffer gnus-article-buffer))))
+                                     2)
+                                0))
           (setq max-len (max 4 (if gnus-mode-non-string-length
                                    (- (window-width)
           (setq max-len (max 4 (if gnus-mode-non-string-length
                                    (- (window-width)
-                                     gnus-mode-non-string-length)
+                                     gnus-mode-non-string-length
+                                     bufname-length)
                                  (length mode-string))))
           ;; We might have to chop a bit of the string off...
           (when (> (length mode-string) max-len)
                                  (length mode-string))))
           ;; We might have to chop a bit of the string off...
           (when (> (length mode-string) max-len)
@@ -3907,9 +3903,8 @@ If WHERE is `summary', the summary mode line format will be used."
           ;; Pad the mode string a bit.
           (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
        ;; Update the mode line.
           ;; Pad the mode string a bit.
           (setq mode-string (format (format "%%-%ds" max-len) mode-string))))
        ;; Update the mode line.
-      (setq mode-line-buffer-identification 
-           (gnus-mode-line-buffer-identification
-            (list mode-string)))
+      (setq mode-line-buffer-identification
+           (gnus-mode-line-buffer-identification (list mode-string)))
        (set-buffer-modified-p t))))
  
  (defun gnus-create-xref-hashtb (from-newsgroup headers unreads)
        (set-buffer-modified-p t))))
  
  (defun gnus-create-xref-hashtb (from-newsgroup headers unreads)
@@ -4163,18 +4158,14 @@ The resulting hash table is returned, or nil if no Xrefs were found."
           (if (boundp (setq id-dep (intern id dependencies)))
               (if (and (car (symbol-value id-dep))
                        (not force-new))
           (if (boundp (setq id-dep (intern id dependencies)))
               (if (and (car (symbol-value id-dep))
                        (not force-new))
-                 ;; An article with this Message-ID has already
-                 ;; been seen, so we ignore this one, except we add
-                 ;; any additional Xrefs (in case the two articles
-                 ;; came from different servers).
+                 ;; An article with this Message-ID has already been seen,
+                 ;; so we rename the Message-ID.
                   (progn
                   (progn
-                   (mail-header-set-xref
-                    (car (symbol-value id-dep))
-                    (concat (or (mail-header-xref
-                                 (car (symbol-value id-dep)))
-                                "")
-                            (or (mail-header-xref header) "")))
-                   (setq header nil))
+                   (set
+                    (setq id-dep (intern (setq id (nnmail-message-id))
+                                         dependencies))
+                    (list header))
+                   (mail-header-set-id header id))
                 (setcar (symbol-value id-dep) header))
             (set id-dep (list header)))
           (when  header
                 (setcar (symbol-value id-dep) header))
             (set id-dep (list header)))
           (when  header
@@ -4245,8 +4236,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
                  (gnus-nov-read-integer) ; lines
                  (if (= (following-char) ?\n)
                      nil
                  (gnus-nov-read-integer) ; lines
                  (if (= (following-char) ?\n)
                      nil
-                  (gnus-nov-field))    ; misc
-                )))
+                  (gnus-nov-field))))) ; misc
  
        (widen))
  
  
        (widen))
  
@@ -4258,17 +4248,13 @@ The resulting hash table is returned, or nil if no Xrefs were found."
         (if (and (car (symbol-value id-dep))
                  (not force-new))
             ;; An article with this Message-ID has already been seen,
         (if (and (car (symbol-value id-dep))
                  (not force-new))
             ;; An article with this Message-ID has already been seen,
-           ;; so we ignore this one, except we add any additional
-           ;; Xrefs (in case the two articles came from different
-           ;; servers.
+           ;; so we rename the Message-ID.
             (progn
             (progn
-             (mail-header-set-xref
-              (car (symbol-value id-dep))
-              (concat (or (mail-header-xref
-                           (car (symbol-value id-dep)))
-                          "")
-                      (or (mail-header-xref header) "")))
-             (setq header nil))
+             (set
+              (setq id-dep (intern (setq id (nnmail-message-id))
+                                   dependencies))
+              (list header))
+             (mail-header-set-id header id))
           (setcar (symbol-value id-dep) header))
        (set id-dep (list header)))
      (when header
           (setcar (symbol-value id-dep) header))
        (set id-dep (list header)))
      (when header
@@ -4280,7 +4266,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
      header))
  
  ;; Goes through the xover lines and returns a list of vectors
      header))
  
  ;; Goes through the xover lines and returns a list of vectors
-(defun gnus-get-newsgroup-headers-xover (sequence &optional 
+(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
                                                   force-new dependencies
                                                   group also-fetch-heads)
    "Parse the news overview data in the server buffer, and return a
@@ -4324,9 +4310,9 @@ list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
        ;; headers using HEAD.
        (if (or (not also-fetch-heads)
               (not sequence))
        ;; headers using HEAD.
        (if (or (not also-fetch-heads)
               (not sequence))
+         ;; We (probably) got all the headers.
           (nreverse headers)
           (nreverse headers)
-       (let ((gnus-nov-is-evil t)
-             (nntp-nov-is-evil t))
+       (let ((gnus-nov-is-evil t))
           (nconc
            (nreverse headers)
            (when (gnus-retrieve-headers sequence group)
           (nconc
            (nreverse headers)
            (when (gnus-retrieve-headers sequence group)
@@ -4367,7 +4353,7 @@ This is meant to be called in `gnus-article-internal-prepare-hook'."
                  old-header)
         (when (setq d (gnus-data-find (mail-header-number old-header)))
           (goto-char (gnus-data-pos d))
                  old-header)
         (when (setq d (gnus-data-find (mail-header-number old-header)))
           (goto-char (gnus-data-pos d))
-         (gnus-data-remove 
+         (gnus-data-remove
            number
            (- (gnus-point-at-bol)
               (prog1
            number
            (- (gnus-point-at-bol)
               (prog1
@@ -4594,7 +4580,7 @@ displayed, no centering will be performed."
         ;; possible valid number, or the second line from the top,
         ;; whichever is the least.
         (set-window-start
         ;; possible valid number, or the second line from the top,
         ;; whichever is the least.
         (set-window-start
-        window (min bottom (save-excursion 
+        window (min bottom (save-excursion
                               (forward-line (- top)) (point)))))
        ;; Do horizontal recentering while we're at it.
        (when (and (get-buffer-window (current-buffer) t)
                               (forward-line (- top)) (point)))))
        ;; Do horizontal recentering while we're at it.
        (when (and (get-buffer-window (current-buffer) t)
@@ -4717,7 +4703,7 @@ The prefix argument ALL means to select all articles."
         (group gnus-newsgroup-name))
      (setq gnus-newsgroup-begin nil)
      (gnus-summary-exit)
         (group gnus-newsgroup-name))
      (setq gnus-newsgroup-begin nil)
      (gnus-summary-exit)
-    ;; We have to adjust the point of group mode buffer because 
+    ;; We have to adjust the point of group mode buffer because
      ;; point was moved to the next unread newsgroup by exiting.
      (gnus-summary-jump-to-group group)
      (when rescan
      ;; point was moved to the next unread newsgroup by exiting.
      (gnus-summary-jump-to-group group)
      (when rescan
@@ -5285,6 +5271,10 @@ If BACKWARD, the previous article is selected instead of the next."
      (unless (gnus-ephemeral-group-p gnus-newsgroup-name)
        (gnus-summary-jump-to-group gnus-newsgroup-name))
      (let ((cmd last-command-char)
      (unless (gnus-ephemeral-group-p gnus-newsgroup-name)
        (gnus-summary-jump-to-group gnus-newsgroup-name))
      (let ((cmd last-command-char)
+         (point
+          (save-excursion
+            (set-buffer gnus-group-buffer)
+            (point)))
           (group
            (if (eq gnus-keep-same-level 'best)
                (gnus-summary-best-group gnus-newsgroup-name)
           (group
            (if (eq gnus-keep-same-level 'best)
                (gnus-summary-best-group gnus-newsgroup-name)
@@ -5313,16 +5303,16 @@ If BACKWARD, the previous article is selected instead of the next."
         (t
         (when (gnus-key-press-event-p last-input-event)
           (gnus-summary-walk-group-buffer
         (t
         (when (gnus-key-press-event-p last-input-event)
           (gnus-summary-walk-group-buffer
-          gnus-newsgroup-name cmd unread backward))))))))
+          gnus-newsgroup-name cmd unread backward point))))))))
  
  
-(defun gnus-summary-walk-group-buffer (from-group cmd unread backward)
+(defun gnus-summary-walk-group-buffer (from-group cmd unread backward start)
    (let ((keystrokes '((?\C-n (gnus-group-next-unread-group 1))
                       (?\C-p (gnus-group-prev-unread-group 1))))
         (cursor-in-echo-area t)
         keve key group ended)
      (save-excursion
        (set-buffer gnus-group-buffer)
    (let ((keystrokes '((?\C-n (gnus-group-next-unread-group 1))
                       (?\C-p (gnus-group-prev-unread-group 1))))
         (cursor-in-echo-area t)
         keve key group ended)
      (save-excursion
        (set-buffer gnus-group-buffer)
-      (gnus-summary-jump-to-group from-group)
+      (goto-char start)
        (setq group
             (if (eq gnus-keep-same-level 'best)
                 (gnus-summary-best-group gnus-newsgroup-name)
        (setq group
             (if (eq gnus-keep-same-level 'best)
                 (gnus-summary-best-group gnus-newsgroup-name)
@@ -5362,7 +5352,7 @@ If BACKWARD, the previous article is selected instead of the next."
  (defun gnus-summary-next-unread-article ()
    "Select unread article after current one."
    (interactive)
  (defun gnus-summary-next-unread-article ()
    "Select unread article after current one."
    (interactive)
-  (gnus-summary-next-article 
+  (gnus-summary-next-article
     (or (not (eq gnus-summary-goto-unread 'never))
         (gnus-summary-last-article-p (gnus-summary-article-number)))
     (and gnus-auto-select-same
     (or (not (eq gnus-summary-goto-unread 'never))
         (gnus-summary-last-article-p (gnus-summary-article-number)))
     (and gnus-auto-select-same
@@ -5395,7 +5385,7 @@ article."
    (setq gnus-summary-buffer (current-buffer))
    (gnus-set-global-variables)
    (let ((article (gnus-summary-article-number))
    (setq gnus-summary-buffer (current-buffer))
    (gnus-set-global-variables)
    (let ((article (gnus-summary-article-number))
-       (article-window (get-buffer-window gnus-article-buffer))
+       (article-window (get-buffer-window gnus-article-buffer t))
         (endp nil))
      (gnus-configure-windows 'article)
      (if (eq (cdr (assq article gnus-newsgroup-reads)) gnus-canceled-mark)
         (endp nil))
      (gnus-configure-windows 'article)
      (if (eq (cdr (assq article gnus-newsgroup-reads)) gnus-canceled-mark)
@@ -5431,7 +5421,7 @@ Argument LINES specifies lines to be scrolled down."
    (interactive "P")
    (gnus-set-global-variables)
    (let ((article (gnus-summary-article-number))
    (interactive "P")
    (gnus-set-global-variables)
    (let ((article (gnus-summary-article-number))
-       (article-window (get-buffer-window gnus-article-buffer)))
+       (article-window (get-buffer-window gnus-article-buffer t)))
      (gnus-configure-windows 'article)
      (if (or (null gnus-current-article)
             (null gnus-article-current)
      (gnus-configure-windows 'article)
      (if (or (null gnus-current-article)
             (null gnus-article-current)
@@ -5593,7 +5583,7 @@ If not given a prefix, use the process marked articles instead."
  If given a prefix, remove all limits."
    (interactive "P")
    (gnus-set-global-variables)
  If given a prefix, remove all limits."
    (interactive "P")
    (gnus-set-global-variables)
-  (when total 
+  (when total
      (setq gnus-newsgroup-limits
           (list (mapcar (lambda (h) (mail-header-number h))
                         gnus-newsgroup-headers))))
      (setq gnus-newsgroup-limits
           (list (mapcar (lambda (h) (mail-header-number h))
                         gnus-newsgroup-headers))))
@@ -5623,7 +5613,7 @@ If given a prefix, remove all limits."
    (gnus-summary-limit-to-subject from "from"))
  
  (defun gnus-summary-limit-to-age (age &optional younger-p)
    (gnus-summary-limit-to-subject from "from"))
  
  (defun gnus-summary-limit-to-age (age &optional younger-p)
-  "Limit the summary buffer to articles that are older than (or equal) AGE days. 
+  "Limit the summary buffer to articles that are older than (or equal) AGE days.
  If YOUNGER-P (the prefix) is non-nil, limit the summary buffer to
  articles that are younger than AGE days."
    (interactive "nTime in days: \nP")
  If YOUNGER-P (the prefix) is non-nil, limit the summary buffer to
  articles that are younger than AGE days."
    (interactive "nTime in days: \nP")
@@ -5673,7 +5663,7 @@ with MARKS.  MARKS can either be a string of marks or a list of marks.
  Returns how many articles were removed."
    (interactive "sMarks: ")
    (gnus-summary-limit-to-marks marks t))
  Returns how many articles were removed."
    (interactive "sMarks: ")
    (gnus-summary-limit-to-marks marks t))
-  
+
  (defun gnus-summary-limit-to-marks (marks &optional reverse)
    "Limit the summary buffer to articles that are marked with MARKS (e.g. \"DK\").
  If REVERSE (the prefix), limit the summary buffer to articles that are
  (defun gnus-summary-limit-to-marks (marks &optional reverse)
    "Limit the summary buffer to articles that are marked with MARKS (e.g. \"DK\").
  If REVERSE (the prefix), limit the summary buffer to articles that are
@@ -5741,7 +5731,7 @@ Returns how many articles were removed."
      ;; children.
      (while (setq d (pop data))
        (when (or (not (= (gnus-data-mark d) gnus-dormant-mark))
      ;; children.
      (while (setq d (pop data))
        (when (or (not (= (gnus-data-mark d) gnus-dormant-mark))
-               (and (setq children 
+               (and (setq children
                            (gnus-article-children (gnus-data-number d)))
                      (let (found)
                        (while children
                            (gnus-article-children (gnus-data-number d)))
                      (let (found)
                        (while children
@@ -5958,7 +5948,7 @@ fetch-old-headers verbiage, and so on."
                      (gnus-nocem-unwanted-article-p
                       (mail-header-id (car thread))))
                 (progn
                      (gnus-nocem-unwanted-article-p
                       (mail-header-id (car thread))))
                 (progn
-                 (setq gnus-newsgroup-reads 
+                 (setq gnus-newsgroup-reads
                         (delq number gnus-newsgroup-unreads))
                   t))))
           ;; Nope, invisible article.
                         (delq number gnus-newsgroup-unreads))
                   t))))
           ;; Nope, invisible article.
@@ -6063,17 +6053,17 @@ Return how many articles were fetched."
        (setq message-id (concat message-id ">")))
      (let* ((header (gnus-id-to-header message-id))
            (sparse (and header
        (setq message-id (concat message-id ">")))
      (let* ((header (gnus-id-to-header message-id))
            (sparse (and header
-                       (gnus-summary-article-sparse-p 
+                       (gnus-summary-article-sparse-p
                          (mail-header-number header)))))
        (if header
           (prog1
               ;; The article is present in the buffer, to we just go to it.
                          (mail-header-number header)))))
        (if header
           (prog1
               ;; The article is present in the buffer, to we just go to it.
-             (gnus-summary-goto-article 
+             (gnus-summary-goto-article
                (mail-header-number header) nil header)
             (when sparse
               (gnus-summary-update-article (mail-header-number header))))
         ;; We fetch the article
                (mail-header-number header) nil header)
             (when sparse
               (gnus-summary-update-article (mail-header-number header))))
         ;; We fetch the article
-       (let ((gnus-override-method 
+       (let ((gnus-override-method
                (and (gnus-news-group-p gnus-newsgroup-name)
                     gnus-refer-article-method))
               number)
                (and (gnus-news-group-p gnus-newsgroup-name)
                     gnus-refer-article-method))
               number)
@@ -6122,7 +6112,7 @@ to guess what the document format is."
        (unwind-protect
            (if (gnus-group-read-ephemeral-group
                 name `(nndoc ,name (nndoc-address ,(get-buffer dig))
        (unwind-protect
            (if (gnus-group-read-ephemeral-group
                 name `(nndoc ,name (nndoc-address ,(get-buffer dig))
-                            (nndoc-article-type 
+                            (nndoc-article-type
                               ,(if force 'digest 'guess))) t)
                ;; Make all postings to this group go to the parent group.
                (nconc (gnus-info-params (gnus-get-info name))
                               ,(if force 'digest 'guess))) t)
                ;; Make all postings to this group go to the parent group.
                (nconc (gnus-info-params (gnus-get-info name))
@@ -6183,7 +6173,7 @@ Obeys the standard process/prefix convention."
         (cons (current-buffer) 'summary)))
       (t
        (error "Couldn't select virtual nndoc group")))))
         (cons (current-buffer) 'summary)))
       (t
        (error "Couldn't select virtual nndoc group")))))
-      
+
  (defun gnus-summary-isearch-article (&optional regexp-p)
    "Do incremental search forward on the current article.
  If REGEXP-P (the prefix) is non-nil, do regexp isearch."
  (defun gnus-summary-isearch-article (&optional regexp-p)
    "Do incremental search forward on the current article.
  If REGEXP-P (the prefix) is non-nil, do regexp isearch."
@@ -6488,7 +6478,7 @@ forward."
         (gnus-remove-text-with-property 'gnus-prev)
         (gnus-remove-text-with-property 'gnus-next)))))
  
         (gnus-remove-text-with-property 'gnus-prev)
         (gnus-remove-text-with-property 'gnus-next)))))
  
-(defun gnus-summary-move-article (&optional n to-newsgroup 
+(defun gnus-summary-move-article (&optional n to-newsgroup
                                             select-method action)
    "Move the current article to a different newsgroup.
  If N is a positive number, move the N next articles.
                                             select-method action)
    "Move the current article to a different newsgroup.
  If N is a positive number, move the N next articles.
@@ -6538,10 +6528,10 @@ and `request-accept' functions."
              (symbol-value (intern (format "gnus-current-%s-group" action)))
              articles prefix))
        (set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
              (symbol-value (intern (format "gnus-current-%s-group" action)))
              articles prefix))
        (set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
-    (setq to-method (or select-method 
+    (setq to-method (or select-method
                         (gnus-group-name-to-method to-newsgroup)))
      ;; Check the method we are to move this article to...
                         (gnus-group-name-to-method to-newsgroup)))
      ;; Check the method we are to move this article to...
-    (unless (gnus-check-backend-function 
+    (unless (gnus-check-backend-function
              'request-accept-article (car to-method))
        (error "%s does not support article copying" (car to-method)))
      (unless (gnus-check-server to-method)
              'request-accept-article (car to-method))
        (error "%s does not support article copying" (car to-method)))
      (unless (gnus-check-server to-method)
@@ -6579,20 +6569,29 @@ and `request-accept' functions."
                       " ")))
            (setq new-xref (concat (gnus-group-real-name gnus-newsgroup-name)
                                   ":" article))
                       " ")))
            (setq new-xref (concat (gnus-group-real-name gnus-newsgroup-name)
                                   ":" article))
-          (unless xref 
+          (unless xref
              (setq xref (list (system-name))))
            (setq new-xref
                  (concat
              (setq xref (list (system-name))))
            (setq new-xref
                  (concat
-                 (mapconcat 'identity 
+                 (mapconcat 'identity
                              (delete "Xref:" (delete new-xref xref))
                              " ")
                              (delete "Xref:" (delete new-xref xref))
                              " ")
-                 new-xref))
+                 " " new-xref))
            (save-excursion
              (set-buffer copy-buf)
            (save-excursion
              (set-buffer copy-buf)
+            ;; First put the article in the destination group.
              (gnus-request-article-this-buffer article gnus-newsgroup-name)
              (gnus-request-article-this-buffer article gnus-newsgroup-name)
-            (nnheader-replace-header "xref" new-xref)
-            (gnus-request-accept-article
-             to-newsgroup select-method (not articles)))))))
+            (setq art-group
+                  (gnus-request-accept-article
+                   to-newsgroup select-method (not articles)))
+            (setq new-xref (concat new-xref " " (car art-group)
+                                   ":" (cdr art-group)))
+            ;; Now we have the new Xrefs header, so we insert
+            ;; it and replace the new article.
+            (nnheader-replace-header "Xref" new-xref)
+            (gnus-request-replace-article
+             (cdr art-group) to-newsgroup (current-buffer))
+            art-group)))))
        (if (not art-group)
           (gnus-message 1 "Couldn't %s article %s"
                         (cadr (assq action names)) article)
        (if (not art-group)
           (gnus-message 1 "Couldn't %s article %s"
                         (cadr (assq action names)) article)
@@ -6602,7 +6601,7 @@ and `request-accept' functions."
                  (gnus-gethash
                   (gnus-group-prefixed-name
                    (car art-group)
                  (gnus-gethash
                   (gnus-group-prefixed-name
                    (car art-group)
-                  (or select-method 
+                  (or select-method
                        (gnus-find-method-for-group to-newsgroup)))
                   gnus-newsrc-hashtb)))
                (info (nth 2 entry))
                        (gnus-find-method-for-group to-newsgroup)))
                   gnus-newsrc-hashtb)))
                (info (nth 2 entry))
@@ -6640,7 +6639,7 @@ and `request-accept' functions."
                 (push (cons to-article gnus-read-mark) gnus-newsgroup-reads)
                 (setcdr (gnus-active to-group) to-article)
                 (setcdr gnus-newsgroup-active to-article))
                 (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"
               (while marks
                 (when (memq article (symbol-value
                                      (intern (format "gnus-newsgroup-%s"
@@ -6664,9 +6663,7 @@ and `request-accept' functions."
             (save-excursion
               (set-buffer copy-buf)
               (gnus-request-article-this-buffer article gnus-newsgroup-name)
             (save-excursion
               (set-buffer copy-buf)
               (gnus-request-article-this-buffer article gnus-newsgroup-name)
-             (nnheader-replace-header
-              "xref" (concat new-xref " " (car art-group)
-                             ":" (cdr art-group)))
+             (nnheader-replace-header "Xref" new-xref)
               (gnus-request-replace-article
                article gnus-newsgroup-name (current-buffer)))))
  
               (gnus-request-replace-article
                article gnus-newsgroup-name (current-buffer)))))
  
@@ -6677,7 +6674,7 @@ and `request-accept' functions."
      ;; Re-activate all groups that have been moved to.
      (while to-groups
        (gnus-activate-group (pop to-groups)))
      ;; Re-activate all groups that have been moved to.
      (while to-groups
        (gnus-activate-group (pop to-groups)))
-    
+
      (gnus-kill-buffer copy-buf)
      (gnus-summary-position-point)
      (gnus-set-mode-line 'summary)))
      (gnus-kill-buffer copy-buf)
      (gnus-summary-position-point)
      (gnus-set-mode-line 'summary)))
@@ -6696,7 +6693,7 @@ re-spool using this method."
    (gnus-summary-move-article n nil nil 'crosspost))
  
  (defcustom gnus-summary-respool-default-method nil
    (gnus-summary-move-article n nil nil 'crosspost))
  
  (defcustom gnus-summary-respool-default-method nil
-  "Default method for respooling an article.  
+  "Default method for respooling an article.
  If nil, use to the current newsgroup method."
    :type 'gnus-select-method-name
    :group 'gnus-summary-mail)
  If nil, use to the current newsgroup method."
    :type 'gnus-select-method-name
    :group 'gnus-summary-mail)
@@ -6715,7 +6712,7 @@ Respooling can be done both from mail groups and \"real\" newsgroups.
  In the former case, the articles in question will be moved from the
  current group into whatever groups they are destined to.  In the
  latter case, they will be copied into the relevant groups."
  In the former case, the articles in question will be moved from the
  current group into whatever groups they are destined to.  In the
  latter case, they will be copied into the relevant groups."
-  (interactive 
+  (interactive
     (list current-prefix-arg
          (let* ((methods (gnus-methods-using 'respool))
                 (methname
     (list current-prefix-arg
          (let* ((methods (gnus-methods-using 'respool))
                 (methname
@@ -6723,12 +6720,12 @@ latter case, they will be copied into the relevant groups."
                                   (car (gnus-find-method-for-group
                                         gnus-newsgroup-name)))))
                 (method
                                   (car (gnus-find-method-for-group
                                         gnus-newsgroup-name)))))
                 (method
-                (gnus-completing-read 
+                (gnus-completing-read
                   methname "What backend do you want to use when respooling?"
                   methods nil t nil 'gnus-mail-method-history))
                 ms)
            (cond
                   methname "What backend do you want to use when respooling?"
                   methods nil t nil 'gnus-mail-method-history))
                 ms)
            (cond
-           ((zerop (length (setq ms (gnus-servers-using-backend 
+           ((zerop (length (setq ms (gnus-servers-using-backend
                                       (intern method)))))
              (list (intern method) ""))
             ((= 1 (length ms))
                                       (intern method)))))
              (list (intern method) ""))
             ((= 1 (length ms))
@@ -6888,7 +6885,9 @@ delete these instead."
         ;; after all.
         (unless (memq (car articles) not-deleted)
           (gnus-summary-mark-article (car articles) gnus-canceled-mark))
         ;; after all.
         (unless (memq (car articles) not-deleted)
           (gnus-summary-mark-article (car articles) gnus-canceled-mark))
-       (setq articles (cdr articles))))
+       (setq articles (cdr articles)))
+      (when not-deleted
+       (gnus-message 4 "Couldn't delete articles %s" not-deleted)))
      (gnus-summary-position-point)
      (gnus-set-mode-line 'summary)
      not-deleted))
      (gnus-summary-position-point)
      (gnus-set-mode-line 'summary)
      not-deleted))
@@ -6897,7 +6896,7 @@ delete these instead."
    "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
    "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
-groups." 
+groups."
    (interactive "P")
    (save-excursion
      (set-buffer gnus-summary-buffer)
    (interactive "P")
    (save-excursion
      (set-buffer gnus-summary-buffer)
@@ -6971,7 +6970,7 @@ groups."
  
  (defun gnus-summary-edit-wash (key)
    "Perform editing command in the article buffer."
  
  (defun gnus-summary-edit-wash (key)
    "Perform editing command in the article buffer."
-  (interactive 
+  (interactive
     (list
      (progn
        (message "%s" (concat (this-command-keys) "- "))
     (list
      (progn
        (message "%s" (concat (this-command-keys) "- "))
@@ -6990,11 +6989,9 @@ groups."
    (let (gnus-mark-article-hook)
      (gnus-summary-select-article)
      (save-excursion
    (let (gnus-mark-article-hook)
      (gnus-summary-select-article)
      (save-excursion
-      (set-buffer gnus-article-buffer)
+      (set-buffer gnus-original-article-buffer)
        (save-restriction
        (save-restriction
-       (goto-char (point-min))
-       (search-forward "\n\n")
-       (narrow-to-region (point-min) (point))
+       (message-narrow-to-head)
         (message "This message would go to %s"
                  (mapconcat 'car (nnmail-article-group 'identity) ", "))))))
  
         (message "This message would go to %s"
                  (mapconcat 'car (nnmail-article-group 'identity) ", "))))))
  
@@ -7513,7 +7510,7 @@ even ticked and dormant ones."
    (save-excursion
      (set-buffer gnus-summary-buffer)
      (goto-char (point-min))
    (save-excursion
      (set-buffer gnus-summary-buffer)
      (goto-char (point-min))
-    (while 
+    (while
         (progn
           (and (< (gnus-summary-article-score) score)
                (gnus-summary-mark-article nil mark))
         (progn
           (and (< (gnus-summary-article-score) score)
                (gnus-summary-mark-article nil mark))
@@ -7579,7 +7576,7 @@ even ticked and dormant ones."
  
  (defun gnus-summary-catchup (&optional all quietly to-here not-mark)
    "Mark all unread articles in this newsgroup as read.
  
  (defun gnus-summary-catchup (&optional all quietly to-here not-mark)
    "Mark all unread articles in this newsgroup as read.
-If prefix argument ALL is non-nil, ticked and dormant articles will 
+If prefix argument ALL is non-nil, ticked and dormant articles will
  also be marked as read.
  If QUIETLY is non-nil, no questions will be asked.
  If TO-HERE is non-nil, it should be a point in the buffer.  All
  also be marked as read.
  If QUIETLY is non-nil, no questions will be asked.
  If TO-HERE is non-nil, it should be a point in the buffer.  All
@@ -7719,7 +7716,7 @@ with that article."
      (gnus-summary-goto-subject article)))
  
  (defun gnus-summary-reparent-thread ()
      (gnus-summary-goto-subject article)))
  
  (defun gnus-summary-reparent-thread ()
-  "Make current article child of the marked (or previous) article.
+  "Make the current article child of the marked (or previous) article.
  
  Note that the re-threading will only work if `gnus-thread-ignore-subject'
  is non-nil or the Subject: of both articles are the same."
  
  Note that the re-threading will only work if `gnus-thread-ignore-subject'
  is non-nil or the Subject: of both articles are the same."
@@ -7731,7 +7728,7 @@ is non-nil or the Subject: of both articles are the same."
    (save-window-excursion
      (let ((gnus-article-buffer " *reparent*")
           (current-article (gnus-summary-article-number))
    (save-window-excursion
      (let ((gnus-article-buffer " *reparent*")
           (current-article (gnus-summary-article-number))
-                                       ; first grab the marked article, otherwise one line up.
+         ;; First grab the marked article, otherwise one line up.
           (parent-article (if (not (null gnus-newsgroup-processable))
                               (car gnus-newsgroup-processable)
                             (save-excursion
           (parent-article (if (not (null gnus-newsgroup-processable))
                               (car gnus-newsgroup-processable)
                             (save-excursion
@@ -7740,24 +7737,23 @@ is non-nil or the Subject: of both articles are the same."
                                 (error "Beginning of summary buffer."))))))
        (unless (not (eq current-article parent-article))
         (error "An article may not be self-referential."))
                                 (error "Beginning of summary buffer."))))))
        (unless (not (eq current-article parent-article))
         (error "An article may not be self-referential."))
-      (let ((message-id (mail-header-id 
+      (let ((message-id (mail-header-id
                          (gnus-summary-article-header parent-article))))
         (unless (and message-id (not (equal message-id "")))
           (error "No message-id in desired parent."))
         (gnus-summary-select-article t t nil current-article)
                          (gnus-summary-article-header parent-article))))
         (unless (and message-id (not (equal message-id "")))
           (error "No message-id in desired parent."))
         (gnus-summary-select-article t t nil current-article)
-       (set-buffer gnus-article-buffer)
-       (setq buffer-read-only nil)
+       (set-buffer gnus-original-article-buffer)
         (let ((buf (format "%s" (buffer-string))))
         (let ((buf (format "%s" (buffer-string))))
-         (erase-buffer)
-         (insert buf))
-       (goto-char (point-min))
-       (if (search-forward-regexp "^References: " nil t)
-           (insert message-id " " )
-         (insert "References: " message-id "\n"))
-       (unless (gnus-request-replace-article current-article
-                                             (car gnus-article-current)
-                                             gnus-article-buffer)
-         (error "Couldn't replace article."))
+         (nnheader-temp-write nil
+           (insert buf)
+           (goto-char (point-min))
+           (if (search-forward-regexp "^References: " nil t)
+               (insert message-id " " )
+             (insert "References: " message-id "\n"))
+           (unless (gnus-request-replace-article
+                    current-article (car gnus-article-current)
+                    (current-buffer))
+             (error "Couldn't replace article."))))
         (set-buffer gnus-summary-buffer)
         (gnus-summary-unmark-all-processable)
         (gnus-summary-rethread-current)
         (set-buffer gnus-summary-buffer)
         (gnus-summary-unmark-all-processable)
         (gnus-summary-rethread-current)
@@ -7874,7 +7870,7 @@ If SILENT, don't output messages."
      (while (and (> n 0)
                 (gnus-summary-go-to-next-thread backward))
        (decf n))
      (while (and (> n 0)
                 (gnus-summary-go-to-next-thread backward))
        (decf n))
-    (unless silent 
+    (unless silent
        (gnus-summary-position-point))
      (when (and (not silent) (/= 0 n))
        (gnus-message 7 "No more threads"))
        (gnus-summary-position-point))
      (when (and (not silent) (/= 0 n))
        (gnus-message 7 "No more threads"))
@@ -8043,7 +8039,7 @@ The variable `gnus-default-article-saver' specifies the saver function."
    (interactive "P")
    (gnus-set-global-variables)
    (let* ((articles (gnus-summary-work-articles n))
    (interactive "P")
    (gnus-set-global-variables)
    (let* ((articles (gnus-summary-work-articles n))
-        (save-buffer (save-excursion 
+        (save-buffer (save-excursion
                         (nnheader-set-temp-buffer " *Gnus Save*")))
          (num (length articles))
          header article file)
                         (nnheader-set-temp-buffer " *Gnus Save*")))
          (num (length articles))
          header article file)
@@ -8223,7 +8219,7 @@ save those articles instead."
                                   nil nil
                                   'gnus-group-history))
            (t
                                   nil nil
                                   'gnus-group-history))
            (t
-           (gnus-completing-read nil prom 
+           (gnus-completing-read nil prom
                                   (mapcar (lambda (el) (list el))
                                           (nreverse split-name))
                                   nil nil nil
                                   (mapcar (lambda (el) (list el))
                                           (nreverse split-name))
                                   nil nil nil
@@ -8231,12 +8227,14 @@ save those articles instead."
      (when to-newsgroup
        (if (or (string= to-newsgroup "")
               (string= to-newsgroup prefix))
      (when to-newsgroup
        (if (or (string= to-newsgroup "")
               (string= to-newsgroup prefix))
-         (setq to-newsgroup (or default "")))
+         (setq to-newsgroup default))
+      (unless to-newsgroup
+       (error "No group name entered"))
        (or (gnus-active to-newsgroup)
           (gnus-activate-group to-newsgroup)
           (if (gnus-y-or-n-p (format "No such group: %s.  Create it? "
                                      to-newsgroup))
        (or (gnus-active to-newsgroup)
           (gnus-activate-group to-newsgroup)
           (if (gnus-y-or-n-p (format "No such group: %s.  Create it? "
                                      to-newsgroup))
-             (or (and (gnus-request-create-group 
+             (or (and (gnus-request-create-group
                         to-newsgroup (gnus-group-name-to-method to-newsgroup))
                        (gnus-activate-group to-newsgroup nil nil
                                             (gnus-group-name-to-method
                         to-newsgroup (gnus-group-name-to-method to-newsgroup))
                        (gnus-activate-group to-newsgroup nil nil
                                             (gnus-group-name-to-method
@@ -8276,7 +8274,12 @@ save those articles instead."
                       (funcall (if (string-match "%s" action)
                                    'format 'concat)
                                action
                       (funcall (if (string-match "%s" action)
                                    'format 'concat)
                                action
-                              (mapconcat (lambda (f) f) files " ")))))
+                              (mapconcat
+                               (lambda (f)
+                                 (if (equal f " ")
+                                     f
+                                   (gnus-quote-arg-for-sh-or-csh f)))
+                               files " ")))))
           (setq ps (cdr ps)))))
      (if (and gnus-view-pseudos (not not-view))
         (while pslist
           (setq ps (cdr ps)))))
      (if (and gnus-view-pseudos (not not-view))
         (while pslist
@@ -8324,7 +8327,7 @@ save those articles instead."
      (setq buffer-read-only nil)
      (let ((command (if automatic command (read-string "Command: " command)))
           ;; Just binding this here doesn't help, because there might
      (setq buffer-read-only nil)
      (let ((command (if automatic command (read-string "Command: " command)))
           ;; Just binding this here doesn't help, because there might
-         ;; be output from the process after exiting the scope of 
+         ;; be output from the process after exiting the scope of
           ;; this `let'.
           ;; (buffer-read-only nil)
           )
           ;; this `let'.
           ;; (buffer-read-only nil)
           )
@@ -8358,7 +8361,7 @@ save those articles instead."
  (defun gnus-read-header (id &optional header)
    "Read the headers of article ID and enter them into the Gnus system."
    (let ((group gnus-newsgroup-name)
  (defun gnus-read-header (id &optional header)
    "Read the headers of article ID and enter them into the Gnus system."
    (let ((group gnus-newsgroup-name)
-       (gnus-override-method 
+       (gnus-override-method
          (and (gnus-news-group-p gnus-newsgroup-name)
               gnus-refer-article-method))
         where)
          (and (gnus-news-group-p gnus-newsgroup-name)
               gnus-refer-article-method))
         where)
@@ -8435,7 +8438,7 @@ save those articles instead."
              ;; Fix by Mike Dugan <dugan@bucrf16.bu.edu>.
              (from (if (get-text-property beg gnus-mouse-face-prop)
                        beg
              ;; Fix by Mike Dugan <dugan@bucrf16.bu.edu>.
              (from (if (get-text-property beg gnus-mouse-face-prop)
                        beg
-                    (or (next-single-property-change 
+                    (or (next-single-property-change
                           beg gnus-mouse-face-prop nil end)
                          beg)))
              (to
                           beg gnus-mouse-face-prop nil end)
                          beg)))
              (to
@@ -8479,8 +8482,8 @@ save those articles instead."
         (setq list (cdr list))))
      (let ((face (cdar list)))
        (unless (eq face (get-text-property beg 'face))
         (setq list (cdr list))))
      (let ((face (cdar list)))
        (unless (eq face (get-text-property beg 'face))
-       (gnus-put-text-property 
-        beg end 'face 
+       (gnus-put-text-property
+        beg end 'face
          (setq face (if (boundp face) (symbol-value face) face)))
         (when gnus-summary-highlight-line-function
           (funcall gnus-summary-highlight-line-function article face))))
          (setq face (if (boundp face) (symbol-value face) face)))
         (when gnus-summary-highlight-line-function
           (funcall gnus-summary-highlight-line-function article face))))
@@ -8533,6 +8536,32 @@ save those articles instead."
        (gnus-get-unread-articles-in-group info (gnus-active group))
        t)))
  
        (gnus-get-unread-articles-in-group info (gnus-active group))
        t)))
  
+(defun gnus-offer-save-summaries ()
+  "Offer to save all active summary buffers."
+  (save-excursion
+    (let ((buflist (buffer-list))
+         buffers bufname)
+      ;; Go through all buffers and find all summaries.
+      (while buflist
+       (and (setq bufname (buffer-name (car buflist)))
+            (string-match "Summary" bufname)
+            (save-excursion
+              (set-buffer bufname)
+              ;; We check that this is, indeed, a summary buffer.
+              (and (eq major-mode 'gnus-summary-mode)
+                   ;; Also make sure this isn't bogus.
+                   gnus-newsgroup-prepared
+                   ;; Also make sure that this isn't a dead summary buffer.
+                   (not gnus-dead-summary-mode)))
+            (push bufname buffers))
+       (setq buflist (cdr buflist)))
+      ;; Go through all these summary buffers and offer to save them.
+      (when buffers
+       (map-y-or-n-p
+        "Update summary buffer %s? "
+        (lambda (buf) (switch-to-buffer buf) (gnus-summary-exit))
+        buffers)))))
+
  (provide 'gnus-sum)
  
  (run-hooks 'gnus-sum-load-hook)
  (provide 'gnus-sum)
  
  (run-hooks 'gnus-sum-load-hook)