[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.39.2.1 
emacs/lisp/gnus/gnus-sum.el:1.39.2.2
*** emacs/lisp/gnus/gnus-sum.el:1.39.2.1        Thu Jul 22 16:45:48 2004
--- emacs/lisp/gnus/gnus-sum.el Tue Aug 31 14:47:59 2004
***************
*** 1379,1389 ****
  (defvar gnus-newsgroup-variables nil
    "A list of variables that have separate values in different newsgroups.
  A list of newsgroup (summary buffer) local variables, or cons of
! variables and their default values (when the default values are not
! nil), that should be made global while the summary buffer is active.
  These variables can be used to set variables in the group parameters
! while still allowing them to affect operations done in other
! buffers. For example:
  
  \(setq gnus-newsgroup-variables
       '(message-use-followup-to
--- 1379,1397 ----
  (defvar gnus-newsgroup-variables nil
    "A list of variables that have separate values in different newsgroups.
  A list of newsgroup (summary buffer) local variables, or cons of
! variables and their default expressions to be evalled (when the default
! values are not nil), that should be made global while the summary buffer
! is active.
! 
! Note: The default expressions will be evaluated (using function `eval')
! before assignment to the local variable rather than just assigned to it.
! If the default expression is the symbol `global', that symbol will not
! be evaluated but the global value of the local variable will be used
! instead.
! 
  These variables can be used to set variables in the group parameters
! while still allowing them to affect operations done in other buffers.
! For example:
  
  \(setq gnus-newsgroup-variables
       '(message-use-followup-to
***************
*** 11148,11161 ****
             (not (gnus-summary-article-sparse-p (mail-header-number header))))
        ;; We have found the header.
        header
-       ;; If this is a sparse article, we have to nix out its
-       ;; previous entry in the thread hashtb.
-       (when (and header
-                (gnus-summary-article-sparse-p (mail-header-number header)))
-       (let* ((parent (gnus-parent-id (mail-header-references header)))
-              (thread (and parent (gnus-id-to-thread parent))))
-         (when thread
-           (delq (assq header thread) thread))))
        ;; We have to really fetch the header to this article.
        (save-excursion
        (set-buffer nntp-server-buffer)
--- 11156,11161 ----