・新規取得時に START=1 と NOFIRST=TRUE が同時に指定されると NOFIRST=TRUE が優先されて 1 が表示されないので対処。

diff --git a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
index 4e1feb3..6d09dca 100644 (file)
--- a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
@@ -78,7 +78,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 0;
        RELEASE_VERSION         = 'alpha';
-       REVISION_VERSION        = 2;
+       REVISION_VERSION        = 3;
 
 // =========================================================================
 // \8eG\97p\8aÖ\90\94
@@ -314,11 +314,18 @@ begin
                        // InternalDownload \82É\94C\82¹\82é\82±\82Æ\82ª\8fo\97\88\82é
                        modified        := LastModified;
                        // http://hokkaido.machi.to/bbs/read.pl?BBS=hokkaidou&KEY=1061764446
-                       // 1 + \90V\92\85
-                       datURL          :=
-                               uri.Protocol + '://' + uri.Host + '/bbs/read.pl?' +
-                               'BBS=' + uriList.Values[ 'BBS' ] + '&KEY=' + uriList.Values[ 'KEY' ] +
-                               '&START=' + IntToStr( Count + 1 ) + '&NOFIRST=TRUE';
+                       if Count = 0 then
+                               // 1\81`
+                               datURL          :=
+                                       uri.Protocol + '://' + uri.Host + '/bbs/read.pl?' +
+                                       'BBS=' + uriList.Values[ 'BBS' ] + '&KEY=' + uriList.Values[ 'KEY' ] +
+                                       '&START=' + IntToStr( Count + 1 )
+                       else
+                               // \90V\92\85\82Ì\82Ý
+                               datURL          :=
+                                       uri.Protocol + '://' + uri.Host + '/bbs/read.pl?' +
+                                       'BBS=' + uriList.Values[ 'BBS' ] + '&KEY=' + uriList.Values[ 'KEY' ] +
+                                       '&START=' + IntToStr( Count + 1 ) + '&NOFIRST=TRUE';
                        responseCode := InternalDownload( PChar( datURL ), modified, tmp, 0 );
 
                        try