Remove outgoing headers 40tude dialog freeware nntp newsreader

[Tom]

I pieced together from the record the following usenet tutorial which might
help others who care about their user agent privacy when posting with the
freeware NNTP newsreader 40tude Dialog ............

Step 0:
Install 40tude Dialog nntp usenet newsreader client on Windows
http://40tude.com/dialog/

Step 1:
Copy the Object Pascal script below to your Windows clipboard:
http://www.40tude.com/dialog/wiki/index.php/RemoveHeaders

Step 2:
Paste that script into the scripting OnBeforeSendingMessage window:
Settings-> Scripting-> Scripting -> Event scripts -> OnBeforeSendingMessage

Step 3:
Compile the script, kill & restart the freeware 40tude nntp newsreader:
Script -> Compile, File -> Exit, c:\freewware\nntp\dialog\dialog.exe

APPENDIX:
Here is the Object Pascal script by Thomas Barghahn Th.Ba...@t-online.de

program OnBeforeSendingMessage;
// Date: 2004/11/16
const
// ----------------------------------------------------
// Configuration settings
// ----------------------------------------------------
// Set the header(s) you want to remove here, e.g.,
// Remove_Headers = 'X-Scoring: ,X-Hamster-Info: ';
Remove_Headers='User-Agent:';

// Remove header(s) from emails and/or postings
// Please set only to 'true' or 'false'
RemoveFromEmails = true;
RemoveFromNews = true;

// ----------------------------------------------------
// End of configuration settings
// ----------------------------------------------------
// --------------------------------------------------------------- //
// ---- No user maintainable parts below this line -------------- //
// --------------------------------------------------------------- //
procedure RemoveHeaders ( Message : TStringlist;
IsEmail : boolean
);
var i : integer;
k : integer;
s : string;
CommaPos : integer;
DelHeader : TStringlist;
RemoveH : String;
begin
RemoveH := Remove_Headers;
i := 0;
if ((IsEmail=true) and (RemoveFromEmails=true)) or
((IsEmail=false) and (RemoveFromNews=true)) then begin
If ( RemoveH <> '' ) then begin
try
DelHeader := TStringlist.Create;
if ansipos ( ',', RemoveH) = 0 then begin
DelHeader.Add ( LowerCase ( TrimLeft( RemoveH )));
end // if
else begin
CommaPos := 0;
for k := 1 to length ( RemoveH ) do begin
If RemoveH[k] = ',' then begin
DelHeader.Add ( LowerCase ( TrimLeft (copy ( RemoveH,
CommaPos + 1, k - ( CommaPos + 1 )))));
CommaPos := k;
end; // if
if k = length ( RemoveH ) then
DelHeader.Add ( LowerCase ( TrimLeft (copy ( RemoveH,
CommaPos + 1, k - CommaPos ))));
end; // for
end; // else
s:=Message.text;
while (Message.Strings[i]<>'') do begin
k := 0;
while k <= ( DelHeader.Count - 1 ) do begin
if pos( DelHeader[k], LowerCase ( Message.Strings[i] )) = 1
then begin
delete ( s, pos(DelHeader[k], LowerCase (s) ), length (
Message.Strings[i] ) + 2 );
i := i - 1;
k := DelHeader.Count - 1;
message.text := s;
end; // if
k := k + 1;
end; // while
i := i + 1;
end; //while
message.text:=s;
finally
DelHeader.Free;
end; // try - finally
end; // if
end; // if
end; // RemoveHeaders
function OnBeforeSendingMessage(var Message : TStringlist;
Servername : string;
IsEmail : boolean
):boolean;
begin
RemoveHeaders(Message,IsEmail);
result:=true;
end;
// ----------------------------------------------------------------------
begin
end.

[Bozweb]

On Sat, 28 Jun 2008 13:53:54 -0700, Tom <twil...@hotmail.com> wrote:

>I pieced together from the record the following usenet tutorial which might
>help others who care about their user agent privacy when posting with the
>freeware NNTP newsreader 40tude Dialog ............
>
>Step 0:
>Install 40tude Dialog nntp usenet newsreader client on Windows
>http://40tude.com/dialog/
>
>Step 1:
>Copy the Object Pascal script below to your Windows clipboard:
>http://www.40tude.com/dialog/wiki/index.php/RemoveHeaders
>
>Step 2:
>Paste that script into the scripting OnBeforeSendingMessage window:
>Settings-> Scripting-> Scripting -> Event scripts -> OnBeforeSendingMessage
>
>Step 3:
>Compile the script, kill & restart the freeware 40tude nntp newsreader:
>Script -> Compile, File -> Exit, c:\freewware\nntp\dialog\dialog.exe
>
>
>APPENDIX:
>Here is the Object Pascal script by Thomas Barghahn Th.Ba...@t-online.de
>

The headers are on the server-side not on the client.
Go to a server witch remove the headers, then you have privacy.
--
Posted by:
news.bozweb.net
http://www.bozweb.net/