2003-04-17 Mike Woolley <mike@ariel.co.uk>

	* gnus-sum.el (gnus-sum-thread-tree-false-root): New variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc2bd62..8237b9c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-17  Mike Woolley  <mike@ariel.co.uk>
+
+       * gnus-sum.el (gnus-sum-thread-tree-false-root): New variable. 
+
 2003-04-15  Michael Shields  <shields@msrl.com>
 
        * gnus-art.el (article-hide-boring-headers): Hide Reply-To: if

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ca8364c..6fad90d 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4567,6 +4567,11 @@ Unscored articles will be counted as having a score of zero."
 If nil, use subject instead."
   :type 'string
   :group 'gnus-thread)
+(defcustom gnus-sum-thread-tree-false-root "> "
+  "With %B spec, used for a false root of a thread.
+If nil, use subject instead."
+  :type 'string
+  :group 'gnus-thread)
 (defcustom gnus-sum-thread-tree-single-indent ""
   "With %B spec, used for a thread with just one message.
 If nil, use subject instead."
@@ -4837,9 +4842,12 @@ or a straight list of headers."
             (cond
              ((not gnus-show-threads) "")
              ((zerop gnus-tmp-level)
-              (if (cdar thread)
-                  (or gnus-sum-thread-tree-root subject)
-                (or gnus-sum-thread-tree-single-indent subject)))
+              (cond ((cdar thread)
+                     (or gnus-sum-thread-tree-root subject))
+                    (gnus-tmp-new-adopts
+                     (or gnus-sum-thread-tree-false-root subject))
+                    (t
+                     (or gnus-sum-thread-tree-single-indent subject))))
              (t
               (concat (apply 'concat
                              (mapcar (lambda (item)