From: Oleksandr Gavenko <gavenkoa@gmail.com>
To: info-gnus-english@gnu.org
Subject: Re: GNUS hide group from *Group* buffer when there no unread messages...
Date: Fri, 24 Aug 2012 20:10:48 +0300 [thread overview]
Message-ID: <87fw7ccj1j.fsf@gavenkoa.example.com> (raw)
In-Reply-To: <87r4r96cq5.fsf@topper.koldfront.dk>
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
info-gnus-english@gnu.org
https://lists.gnu.org/mailman/listinfo/info-gnus-english
next prev parent reply other threads:[~2012-08-24 17:10 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-08-14 9:17 Oleksandr Gavenko
2012-08-14 9:26 ` Oleksandr Gavenko
2012-08-14 9:32 ` Adam Sjøgren
2012-08-14 13:13 ` Eric Abrahamsen
2012-08-14 14:44 ` Kevin Brubeck Unhammer
2012-08-15 3:10 ` Eric Abrahamsen
2012-08-15 6:12 ` Kevin Brubeck Unhammer
2012-08-24 14:57 ` Oleksandr Gavenko
2012-08-28 12:01 ` Andy Moreton
2012-08-30 10:12 ` Oleksandr Gavenko
[not found] ` <mailman.7811.1346321591.855.info-gnus-english@gnu.org>
2012-09-07 17:27 ` Randal L. Schwartz
2012-09-09 19:04 ` Lars Ingebrigtsen
2012-08-24 17:10 ` Oleksandr Gavenko [this message]
2012-08-15 7:03 ` XeCycle
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87fw7ccj1j.fsf@gavenkoa.example.com \
--to=gavenkoa@gmail.com \
--cc=info-gnus-english@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).