* gnus-sum.el (gnus-summary-refer-thread): Don't re-fetch current

articles.

* gnus-msg.el (gnus-version-expose-system): Change default.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 48d2ab5..00a7348 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2003-02-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-refer-thread): Don't re-fetch current
+       articles. 
+
+       * gnus-msg.el (gnus-version-expose-system): Change default.
+
+2003-02-07  Vasily Korytov  <deskpot@myrealbox.com>
+
+       * gnus-msg.el (gnus-version-expose-system): New variable.
+
 2003-02-07  Simon Josefsson  <jas@extundo.com>
 
        * mml-sec.el (mml-unsecure-message): Don't use kill-region.  Tiny

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index c391b0e..b22d3ef 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -283,6 +283,11 @@ If nil, the address field will always be empty after invoking
   :group 'gnus-message
   :type 'boolean)
 
+(defcustom gnus-version-expose-system nil
+  "If non-nil, `system-configuration' is exposed in `gnus-extended-version'."
+  :group 'gnus-message
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar gnus-inhibit-posting-styles nil
@@ -1028,7 +1033,9 @@ If SILENT, don't prompt the user."
    (cond
     ((string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
      (concat "Emacs/" (match-string 1 emacs-version)
-            " (" system-configuration ")"))
+            (if gnus-version-expose-system
+                " (" system-configuration ")"
+              "")))
     ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
                   emacs-version)
      (concat (match-string 1 emacs-version)
@@ -1037,8 +1044,10 @@ If SILENT, don't prompt the user."
                 (match-string 3 emacs-version)
               "")
             (if (boundp 'xemacs-codename)
+            (if gnus-version-expose-system
                 (concat " (" xemacs-codename ", " system-configuration ")")
-              "")))
+              (concat " (" xemacs-codename ")"))
+            "")))
     (t emacs-version))))
 
 \f

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index cbbe19f..61bdff4 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7941,16 +7941,16 @@ of what's specified by the `gnus-refer-thread-limit' variable."
   (let ((id (mail-header-id (gnus-summary-article-header)))
        (limit (if limit (prefix-numeric-value limit)
                 gnus-refer-thread-limit)))
-    ;; We want to fetch LIMIT *old* headers, but we also have to
-    ;; re-fetch all the headers in the current buffer, because many of
-    ;; them may be undisplayed.  So we adjust LIMIT.
-    (when (numberp limit)
-      (incf limit (- gnus-newsgroup-end gnus-newsgroup-begin)))
     (unless (eq gnus-fetch-old-headers 'invisible)
       (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name)
       ;; Retrieve the headers and read them in.
       (if (eq (gnus-retrieve-headers
-              (list gnus-newsgroup-end) gnus-newsgroup-name limit)
+              (list (min
+                     (+ (mail-header-number
+                         (gnus-summary-article-header))
+                        limit)
+                     gnus-newsgroup-end))
+              gnus-newsgroup-name (* limit 2))
              'nov)
          (gnus-build-all-threads)
        (error "Can't fetch thread from backends that don't support NOV"))