diff -C5 orig/ChangeLog ./ChangeLog *** orig/ChangeLog Wed Jul 25 13:02:31 2001 --- ./ChangeLog Wed Jul 25 12:57:56 2001 *************** *** 1,5 **** --- 1,9 ---- + 2001-07-25 12:54:00 Danny Siu + * gnus-sum.el (gnus-summary-prepare-threads): Shouldn't do tree + display (%B) for threads if threading is off. + 2001-07-24 13:00:00 ShengHuo ZHU * gnus-sum.el (gnus-summary-display-arrow): Test fboundp. 2001-07-24 12:00:00 ShengHuo ZHU diff -C5 orig/gnus-sum.el ./gnus-sum.el *** orig/gnus-sum.el Tue Jul 24 15:15:07 2001 --- ./gnus-sum.el Wed Jul 25 12:48:42 2001 *************** *** 4324,4346 **** ((string-match "(.+)" gnus-tmp-from) (substring gnus-tmp-from (1+ (match-beginning 0)) (1- (match-end 0)))) (t gnus-tmp-from)) gnus-tmp-thread-tree-header-string ! (if (zerop gnus-tmp-level) ! (if (cdar thread) ! gnus-sum-thread-tree-root ! gnus-sum-thread-tree-single-indent) ! (concat (apply 'concat ! (mapcar (lambda (item) ! (if (= item 1) gnus-sum-thread-tree-vertical ! gnus-sum-thread-tree-indent)) ! (cdr (reverse tree-stack)))) ! (if (nth 1 thread) ! gnus-sum-thread-tree-leaf-with-other ! gnus-sum-thread-tree-single-leaf)))) (when (string= gnus-tmp-name "") (setq gnus-tmp-name gnus-tmp-from)) (unless (numberp gnus-tmp-lines) (setq gnus-tmp-lines -1)) --- 4324,4349 ---- ((string-match "(.+)" gnus-tmp-from) (substring gnus-tmp-from (1+ (match-beginning 0)) (1- (match-end 0)))) (t gnus-tmp-from)) gnus-tmp-thread-tree-header-string ! (cond ! ((not gnus-show-threads) "") ! ((zerop gnus-tmp-level) ! (if (cdar thread) ! gnus-sum-thread-tree-root ! gnus-sum-thread-tree-single-indent)) ! (t ! (concat (apply 'concat ! (mapcar (lambda (item) ! (if (= item 1) gnus-sum-thread-tree-vertical ! gnus-sum-thread-tree-indent)) ! (cdr (reverse tree-stack)))) ! (if (nth 1 thread) ! gnus-sum-thread-tree-leaf-with-other ! gnus-sum-thread-tree-single-leaf))))) (when (string= gnus-tmp-name "") (setq gnus-tmp-name gnus-tmp-from)) (unless (numberp gnus-tmp-lines) (setq gnus-tmp-lines -1))