;;; 
;;; gnus-toggle-thread.el: スレッドをトグル表示する
;;; 
;;;     [1999/06/05] OSHIRO Naoki.
;;;   
;;;     $Log:$
;;;

; 次の設定を ~/.emacs で行えば TAB キーでスレッドを開いたり閉じたり
; できまする〜．
;   -->gnus-summary-toggle-threads という関数もあるが，あれはスレッドの
;      表示自体を行うかプレーンで表示するかどうかの切替えなので，それとは
;      ちょっと違う．

(add-hook 'gnus-summary-mode-hook
  '(lambda ()
     (defun gnus-summary-show/hide-thread ()
       (interactive)
       (let (end)
	 (save-excursion 
	   (end-of-line)
	   (setq end (point)))
	 (if (save-excursion (search-forward "\^M" end t))
	     (gnus-summary-show-thread)
	   (gnus-summary-hide-thread))))
     (define-key gnus-summary-mode-map "\t" 'gnus-summary-show/hide-thread)))