ひま
竹宮桃子
｜)狭猫( さん wrote:
｜
｜> (一部省略)en...@jcom.home.ne.jp さんから "A WinXP Patch"
｜> なんて一発でヘンと判るメールが来ました。
｜（中略）
｜> でも、今時Klez.Hなんてまだ流れてるんだなぁ…
｜
｜
｜私のトコロにはよく流れてきます（汗）。
｜
｜周囲の人には、外観急行を使うの止めようよと言っているのです
｜
｜が……。
外観急行は外観で勝負、というのは嘘だけど。
「<メッセージID>」をクリックしたら、それをメールアドレスと見なして
しまうんで、「news:メッセージID」にしてあげないといけない……手間
のかかるソフトよね。
--
竹宮桃子 mailto:vierge...@hotmail.com
T. Sugita
In message news:3d62ecac.6106%vierge...@hotmail.com
"竹宮桃子" <vierge...@hotmail.com> wrote ...
> 「<メッセージID>」をクリックしたら、それをメールアドレスと見なして
> しまうんで、「news:メッセージID」にしてあげないといけない……手間
> のかかるソフトよね。
一応回避方法はあり、URL:MailTo プロトコルを置き換えることで
本文内のものに関しては取得可能です。
他、同様の手法のものをフリーで公開されてる方もいます。
open
c:\windows\wscript.exe c:\home\news\msgid.js
# google にしてますが、Queen の方が便利です。
=== 次の行から (ファイル名：msgid.js) ============================
// Windows Scripting Host, Language=JScript, Filename=msgid.js
// mailto:message-id -> web, news, mail
// URL : MailTo プロトコル
// URL : News プロトコル
// open : c:\windows\wscript.exe drive:\path\msgid.js
if ( WScript.Arguments.length < 1 )
WScript.Quit();
GetNetNewsMessage( WScript.Arguments(0) );
WScript.Quit();
function GetNetNewsMessage(mailurl)
{
var WshShell = WScript.CreateObject("WScript.Shell");
var today = new Date();
//
var googleopt = "output=gplain&oe=iso-2022-jp&";
var google = "http://groups.google.com/groups?" + googleopt + "as_umsgid=";
var queen = "http://queen.heart.ne.jp/cgi-bin/queen?msgid=";
var msnews = "//msnews.microsoft.com/";
var msnewskey = "@tkmsftng";
var OEpath = WshShell.RegRead("HKLM\\Software\\Microsoft\\Outlook Express\\InstallRoot");
var OE = OEpath + "\\msimn.exe";
var newsscheme = "news:";
var mailscheme = "mailto:";
var newsflag = false;
var newsprog = '"' + OE + '" /newsurl:' + newsscheme;
var mailprog = '"' + OE + '" /mailurl:' + mailscheme;
var newspopup = "NetNews archive site を検索しますか？";
var mailpopup = "電子メールメッセージを作成しますか？";
//
var vbStop=16, vbQuestion=32, vbExclamation=48, vbInfo=64;
var vbOk=0, vbOkCancel=1, vbYesNoCancel=3;
var yes=6, no=7, ok=1, cancel=2, timeout=-1;
var at = mailurl.indexOf("@", 0);
if ( at < 0 ) {
WshShell.Popup(mailurl, 0, "URI", vbStop|vbOk);
WshShell = null;
return;
}
var st = mailurl.lastIndexOf("<", at);
if ( st >= 0 ) {
st += 1;
} else if ( (st = mailurl.indexOf(mailscheme,0)) >= 0 ) {
st += mailscheme.length;
} else if ( (st = mailurl.indexOf(newsscheme,0)) >= 0 ) {
st += newsscheme.length;
newsflag = true;
} else {
st = 0;
}
var ed = mailurl.indexOf(">", at);
if ( ed < 0 )
ed = mailurl.length;
var msgid = mailurl.substring(st, ed);
var intSel = WshShell.Popup(newspopup, 0, "News", vbQuestion|vbYesNoCancel);
switch ( intSel ) {
case yes:
var searchsite = google;
// searchsite = (today < Date.parse("Jan 1 2003")) ? queen : google;
ed = msgid.length;
if ( (st = msgid.lastIndexOf("/",ed-1)) >= 0 )
msgid = msgid.substring(st+1, ed);
WshShell.Run(searchsite + escape(msgid));
break;
case no:
if ( msgid.indexOf("/",0) < 0 && msgid.toLowerCase().indexOf(msnewskey,0) >= 0 ) {
WshShell.Run(newsprog + msnews + unescape(msgid));
} else {
WshShell.Run(newsprog + msgid);
}
break;
default:
if ( newsflag )
break;
intSel = WshShell.Popup(mailpopup, 0, "Mail", vbQuestion|vbOkCancel);
switch ( intSel ) {
case ok:
WshShell.Run(mailprog + msgid);
break;
}
break;
}
WshShell = null;
}
=== この行の上まで ===============================================