Re: open/close threads with `<' and `>'

[Tassilo Horn]

Rasmus Pank Roulund <rasmus.pank@gmail.com> writes:

> Tassilo Horn <tassilo@member.fsf.org> writes:
>
>> This should do the trick:
>>
>>   (define-key gnus-summary-mode-map (kbd ">") 'gnus-summary-show-thread)
>>   (define-key gnus-summary-mode-map (kbd "<") 'gnus-summary-hide-thread)
>
> Does Gnus feature a function that can test whether a thread is already
> hidden?
>
> I would like to defun a function that can toggles a given thread as the
> ">" is hard to use on my keyboard.

I have such a function:

--8<---------------cut here---------------start------------->8---
(defun th-next-line-invisible-p ()
  "Return non-nil, if the line after POS starts invisible.
POS defaults to `point'."
  (invisible-p (line-end-position)))

(defun th-gnus-summary-toggle-show/hide ()
  (interactive)
  (if (th-next-line-invisible-p)
      (gnus-summary-show-thread)
    (gnus-summary-hide-thread)))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo