🚀 go-pugleaf

Thomas Haase schrieb:

>Da muss ich mal ein Feature des Windows-Readers "Xnews" beschreiben. 
>Der findet MIDs im Text �hnlich wie URLs. (Es gibt eindeutige Begrenzer 
>(< und >) und dazwischen muss ein "@" und darf kein " " vorkommen.)
>Wenn man mit der Maus dr�berf�hrt, �ndert sich der Mauszeiger vom 
>senkrechten Strich zu einer Hand mit ausgestrecktem Zeigefinger (als 
>auff�lliger Hinweis f�r die Klicks�chtigen).
>
>Beim Anklicken einer MID wird das Posting erst auf dem Newsserver 
>gesucht (wenn da, wird es angezeigt), bei Misserfolg kommt die Frage: 
>"Bei Deja suchen?". Bei Bejahung wird der Lieblingsbrowser mit
>        http://www.deja.com/=dnc/msgid.xp?MID=%m
>(wobei %m die MID (mit < und >) ist) aufgerufen.

Na das geht mit slrn bestimmt auch...
 *werkel-schraub-h�mmer-tapezier*

#v+

define search_for_msgid(mid) {

  % catch locate_header_by_msgid failure
  ERROR_BLOCK {
    _clear_error();

    % TODO: Lokales Newsarchiv durchsuchen
  
    if( get_yes_no_cancel("Bei Deja suchen?") == 1) {
       variable url = strcat("http://www.deja.com/=dnc/msgid.xp?MID=",mid);

       % TODO: non_Xbrowser oder Xbrowser aufrufen
       verror(url);
       
    }
  }

  if( locate_header_by_msgid(mid,1) == 1) 
    call("art_bob");
}


define msgid_in_article() 
{
  variable regexp = "<[^@<>\" ]*@[^@<>\" ]*>";
  
  if( _is_article_visible () & 1 ) % article visible
  {

    % search for MIDs
    variable line,pos,len;
    variable number=0;
    
    call("art_bob");

    while( re_search_article(regexp) == 1 )
    { 
      line = ();
      for( pos=1; string_match(line,regexp,pos)>0; pos+=len )
      {
        (pos, len) = string_match_nth(0);
        substr(line, pos+1, len);	% put MID on stack
        number++;
      }
    }
  
    % found MID[s]
    if(number>0)
    {
     
      % put MIDs into array
      variable mids = String_Type [number];
      variable i;
      for(i=number-1; i>=0; i--)
        mids[i] = ();
     
      % let select MID (always ask since MID could be email-address)
      variable evalstr = "get_select_box_response(\"Goto MID\",";
      for(i=0;i<number;i++) 
        evalstr += "\"" + mids[i] + "\"" + ","; 
      evalstr += sprintf("%d);",number);
      eval(evalstr);

      variable mid = ();
      search_for_msgid(mids[mid]);
      
   } else verror("no Message-ID found!");
  } else verror("no article visible!");
  
  close_log_file();
}

definekey ("msgid_in_article", "m", "article");

#v-

Bei dem RegExp bin ich mir nicht ganz sicher, obs auch besser geht.

Um auch in anderen Gruppen suchen zu k�nnen und damit je nach
Umgebung der richtige Browser aufgerufen wird fehlen noch ein
paar Erweiterungen [1], aber ansonsten ist es schon ganz praktisch :-)

Jakob

f'up to de.comm.software.newsreader

[1a] Wie kriege ich heraus, ob X und ggf. X-Browser l�uft oder nicht?
[1b] Wo ist mein lokales News-Verzeichnis?