[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-topic.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/gnus-topic.el
diff -c emacs/lisp/gnus/gnus-topic.el:1.8 emacs/lisp/gnus/gnus-topic.el:1.9
*** emacs/lisp/gnus/gnus-topic.el:1.8   Sun Dec 24 01:36:33 2000
--- emacs/lisp/gnus/gnus-topic.el       Sat Jul  6 09:15:21 2002
***************
*** 1416,1422 ****
        (gnus-topic-kill-group)
        (push (cdar gnus-topic-killed-topics) gnus-topic-alist)
        (gnus-topic-create-topic
!        topic parent nil (cdaar gnus-topic-killed-topics))
        (pop gnus-topic-killed-topics)
        (or (gnus-topic-goto-topic topic)
            (gnus-topic-goto-topic parent))))))
--- 1416,1422 ----
        (gnus-topic-kill-group)
        (push (cdar gnus-topic-killed-topics) gnus-topic-alist)
        (gnus-topic-create-topic
!        topic parent nil (cdar (car gnus-topic-killed-topics)))
        (pop gnus-topic-killed-topics)
        (or (gnus-topic-goto-topic topic)
            (gnus-topic-goto-topic parent))))))
***************
*** 1435,1441 ****
        (push (cdar gnus-topic-killed-topics) gnus-topic-alist)
        (gnus-topic-create-topic
         topic grandparent (gnus-topic-next-topic parent)
!        (cdaar gnus-topic-killed-topics))
        (pop gnus-topic-killed-topics)
        (gnus-topic-goto-topic topic))))
  
--- 1435,1441 ----
        (push (cdar gnus-topic-killed-topics) gnus-topic-alist)
        (gnus-topic-create-topic
         topic grandparent (gnus-topic-next-topic parent)
!        (cdar (car gnus-topic-killed-topics)))
        (pop gnus-topic-killed-topics)
        (gnus-topic-goto-topic topic))))