X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=261330246184eca1346b890bcb62845b89c5f517;hb=0d34ee305d12def612850d1f62d0fa066bb7da01;hp=f6f6bb4f5b09ab7b420f8c82b2225bcf76ddbed5;hpb=d0a5abb008d1345b5af6e268e42cee522197de98;p=gnus

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index f6f6bb4f5..261330246 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4092,12 +4092,20 @@ Unscored articles will be counted as having a score of zero."
 
 (defvar gnus-tmp-thread-tree-header-string "")
 
-(defvar gnus-sum-thread-tree-root "> ")
-(defvar gnus-sum-thread-tree-single-indent "")
-(defvar gnus-sum-thread-tree-vertical "| ")
-(defvar gnus-sum-thread-tree-indent "  ")
-(defvar gnus-sum-thread-tree-leaf-with-other "+-> ")
-(defvar gnus-sum-thread-tree-single-leaf "\\-> ")
+(defvar gnus-sum-thread-tree-root "> "
+  "With %B spec, used for the root of a thread.
+If nil, use subject instead.")
+(defvar gnus-sum-thread-tree-single-indent ""
+  "With %B spec, used for a thread with just one message.
+If nil, use subject instead.")
+(defvar gnus-sum-thread-tree-vertical "| "
+  "With %B spec, used for drawing a vertical line.")
+(defvar gnus-sum-thread-tree-indent "  "
+  "With %B spec, used for indenting.")
+(defvar gnus-sum-thread-tree-leaf-with-other "+-> "
+  "With %B spec, used for a leaf with brothers.")
+(defvar gnus-sum-thread-tree-single-leaf "\\-> "
+  "With %B spec, used for a leaf without brothers.")
 
 (defun gnus-summary-prepare-threads (threads)
   "Prepare summary buffer from THREADS and indentation LEVEL.
@@ -4330,8 +4338,8 @@ or a straight list of headers."
 	      ((not gnus-show-threads) "")
 	      ((zerop gnus-tmp-level)
 	       (if (cdar thread) 
-		   gnus-sum-thread-tree-root
-		 gnus-sum-thread-tree-single-indent))
+		   (or gnus-sum-thread-tree-root subject)
+		 (or gnus-sum-thread-tree-single-indent subject)))
 	      (t
 	       (concat (apply 'concat
 			      (mapcar (lambda (item)