tell application "Internet Explorer"
	Activate
	do script "
		var bsetPrefix = 'Benriset';
		var bsetScriptName = 'ShowCiteInfo';
		bsetMain();

		function bsetMain(){
			if (!bsetIsFirstLaunch()) return;
			bsetshowCiteInfo();
		}
		
		function bsetshowCiteInfo() {
			var target = ['BLOCKQUOTE','Q'];
			for (var i=0; i<target.length; i++) {
				var OBJs = document.getElementsByTagName(target[i]);
				for (var j=0, n=OBJs.length; j<n; j++) {
					bsetShowProgress('Appending cite info of <' + target[i] + '>', j, n)
					var obj = OBJs.item(j);
					var url = obj.cite;
					var title = obj.title;
					if (!url && !title) continue;
					cINS = document.createElement('ins');
					if ( url ) {
						title = (title) ? title : url;
						var cA = document.createElement('a');
						cA.href = url;
						cA.title = title;
						cA.innerText = title; //  MacIE5.0はcreateTextNodeで日本語を扱うと文字化けする(5.1はOK)
						cINS.appendChild(cA);
						bsetAppendStyle(cA);
					} else cINS.innerText = title;
				obj.appendChild(cINS);
				bsetAppendStyle(cINS);
				}
			}
		}
		
		function bsetAppendStyle(obj){
			switch(obj.tagName){
				case 'INS' :
					var disp = (obj.parentNode.tagName == 'Q') ? 'inline' : 'block';
					with(obj.style){
						display = disp + ' !important';
						margin = '1em 2px !important';
						padding = '1px 2px !important';
						color = 'black !important';
						background = '#ffffce !important';
						borderWidth = '1px !important';
						borderStyle = 'solid !important';
						borderColor =  '#bbbbbb #999999 #999999 #bbbbbb !important';
						fontSize = '10px !important';
						fontWeight = 'normal !important';
						fontStyle = 'normal !important';
						textDecoration = 'none !important';
						textAlign = 'right !important';
					}
					break;
				case 'A' :
					with(obj.style){
						margin = '0 !important';
						padding = '0 !important';
						color = 'blue !important';
						background = 'transparent !important';
						border = '0 none !important';
						fontSize = '10px !important';
						fontWeight = 'normal !important';
						fontStyle = 'normal !important';
						textDecoration = 'underline !important';
					}
					break;
			default: break;
			}
		}
		
		function bsetIsFirstLaunch() {
			var bsetNSURL = 'http://www.remus.dti.ne.jp/~a-satomi/bunsyorou/MacIE5_benriSet.html';
			var flagAttrName = bsetPrefix + ':' + bsetScriptName;
			var applyFlag = document.documentElement.getAttribute(flagAttrName);
			if (!applyFlag) {
				document.documentElement.setAttribute('xmlns:'+bsetPrefix, bsetNSURL);
				document.documentElement.setAttribute(flagAttrName, 'true');
				return true;
			} else {
				window.status = flagAttrName + ' is already applied.';
				return false;
			}
		}
		
		function bsetShowProgress(text, currentNo, wholeNo){
			currentNo++;
			window.status = text + ' (' + currentNo + '/' + wholeNo + ')';
			if (currentNo >= wholeNo) window.status = '';
		}
	"
end tell