Enter group with full threads

Hi,

As this has come up on nsr and it is a faq, here's a macro that
enters a group displaying full threads that contain at least one
unread article:

#v+
#iffalse
This macro offers an answer to
"I want to see full threads as soon as they contain at least one unread article."
"Can slrn do this?"
from http://www.slrn.org/docs/slrn-FAQ-3.html
until the functionality is implemented in a generic way.

Works best with a local spool as the server has to be queried.
#endif

implements ("EnterFullThreads");

static define enter_fullthreads () {
  variable next = 1;
  call ("select_group");
  collapse_threads ();
  set_prefix_argument (1);
  while (next > 0) {
    try {
      call ("get_parent_header");
    }
    catch AnyError;
    collapse_thread ();
    next = header_down (1);
  }
  reset_prefix_arg ();
  call ("header_bob");
  uncollapse_threads ();
}

definekey ("EnterFullThreads->enter_fullthreads", "\r", "group");
#v-

c
-- 
\black\trash movie    _C O W B O Y_  _C A N O E_  _C O M A_
                     Ein deutscher Western/A German Western

         --->> http://www.blacktrash.org/underdogma/ccc.php

------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev