On 2012-08-14, Adam Sjøgren wrote:
>> But GNUS hide groups from *Group* buffer when there no unread messages...
>
> Does L do what you want?
In some way yes, but this command (gnus-group-list-all-groups) also shown
unsubscribed and killed groups. But for my purpose it is not a harm.
My redefinition:
(define-key gnus-group-mode-map (kbd "l")
(lambda nil (interactive) (gnus-group-list-groups gnus-level-subscribed
t)))
more suitable for my purpose but as I wrote recently about my workflow to find
group for reading or posting:
C-s KEYWORD and C-s C-s ... as many time until find looked group and then
RET in *Groups* buffer.
When some groups hidden due to:
> But GNUS hide groups from *Group* buffer when there no unread messages
I can't post to this groups with my workflow. So I look for way to preserve
all groups in *Groups* buffer discarding read or unread it.
I think that "defadvice" around "gnus-group-list-groups" will give me desired
behaviour. I am not expert of defadvice style of elisp programming but this
code seems work as I want (I use it for half day only...):
(eval-after-load 'gnus-group
'(progn
(defadvice gnus-group-list-groups (before with-read-groups (&optional
level unread lowest))
(unless level
(ad-set-arg 0 gnus-level-subscribed))
(ad-set-arg 1 t)
)
(ad-activate 'gnus-group-list-groups)
))
My previous code:
(define-key gnus-group-mode-map (kbd "l")
(lambda nil (interactive) (gnus-group-list-groups
gnus-level-subscribed t)))
no longer necessary.
--
Best regards!
_______________________________________________
info-gnus-english mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/info-gnus-english
