function replaceImage(img) {
	if (img.width == '1' && img.src.match(/\.01\./)) {
		img.src = 'http://images-jp.amazon.com/images/G/09/x-locale/detail/thumb-no-image.gif';
		img.width = 98;
		img.height = 140;
	} else if (img.width == '1') {
		img.src = img.src.replace('.09.','.01.');
	}
}

<script src="path/to/amazon.js" type="text/javascript"></script>

<img src="/path/to/image" onload="replaceImage(this)" />

$ tar -xjvf vim-6.3.tar.bz2
$ tar -xzvf vim-6.3-extra.tar.gz
$ tar -xzvf vim-6.3-lang.tar.gz

$ cat ../patches/6.3.* | patch -p0

$ ./configure --enable-multibyte \
              --with-features=big \
              --disable-gui \
              --without-x
$ make
$ make test
# make install

<?xml version="1.0"?>
<!-- In order to work correctly, this file must be named -->
<!-- res/builtin/userHTMLBindings.xml in the mozilla tree. -->

<bindings id="htmlBindings"
	xmlns="http://www.mozilla.org/xbl"
	xmlns:xul="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul">
	
	<binding id="browserUser">
		<handlers>
			<handler event="keypress" key="k" command="cmd_scrollLineUp"/>
			<handler event="keypress" key="j" command="cmd_scrollLineDown"/>
			<handler event="keypress" key="l" command="cmd_scrollRight"/>
			<handler event="keypress" key="h" command="cmd_scrollLeft"/>
		</handlers>
	</binding>
	
</bindings>

// Find As You Type Configuration:
// Set this pref to false to disable Find As You Type:
user_pref("accessibility.typeaheadfind", true);
// If you set this pret to true, typing can automatically start Find As You Type.
// If false (default), you must hit / (find text) or ' (find links) before your search.
user_pref("accessibility.typeaheadfind.autostart", false);
// Set this pref to false if you want Find As You Type to search normal text too:
user_pref("accessibility.typeaheadfind.linksonly", false);
// Set this pref to true if you require that the link starts with the entered text:
user_pref("accessibility.typeaheadfind.startlinksonly", false);
// This is the time in milliseconds for the Find As You Type to stop watching for keystrokes:
user_pref("accessibility.typeaheadfind.timeout", 3000);

javascript:
var u=document.location.href;
var ai=u.indexOf('ASIN');
var asin=u.substring(ai+5,ai+15);
var title=document.title.substring(14);
var link='{{amazon(\''+asin+'\',\''+title+'\')}}';
var x = prompt('',link);

### amazon リンクの作成 (画像タイトル付き)
# usage: {{amazon_image('ASIN', 'Title', 'num')}}
sub amazon_image {
	my ($asin, $title, $num) = @_;
	my $prefix  = "http://amazon.co.jp/o/ASIN";
	my $suffix  = "xight-22/ref=nosim"; # アソシID使用時
	my $prefix2 = "http://images-jp.amazon.com/images/P";
	my $suffix2 = "MZZZZZZZ.jpg";
	if ($num ne '01'){
		$num = '09';
	}
	return qq(<a href="$prefix/$asin/$suffix" title="$title"><img src="$prefix2/$asin.$num.$suffix2" title="$title" /></a>);
}

# crle -c /var/ld/ld.config -l /usr/lib:/usr/local/lib

$ tar zxvf libiconv-1.9.2.tar.gz
$ zcat libiconv-1.9.2-cp932.patch.gz | patch -p0
$ cd libiconv-1.9.2
$ ./configure
$ make ; make check
$ su
# make install

$ iconv -l | egrep -i '(-31j|-ms)'
EUC-JP-MS EUCJP-MS EUCJP-OPEN EUCJP-WIN
CP932 SJIS-OPEN SJIS-WIN WINDOWS-31J CSWINDOWS31J

[global]
	coding system = EUC
	client code page = 932
[homes]
	path = %H
	recycle bin = .recycle

[global]
	unix charset = EUC-JP
	dos charset = CP932
	display charset = CP932
	vfs objects = recycle
	recycle:keeptree = yes
	recycle:versions = yes
	recycle:touch = yes

(setq mew-touch-folder-p t)
(setq file-writable-p t)

(defun mew-make-cache-all (&optional arg)
  ".mew-cache を一気に作る"
  (interactive "P")
  (let ((fldlst (mapcar 'car mew-local-folder-alist))
    (mew-summary-mode-hook nil)
    (font-lock-mode nil)
    (font-lock-support-mode nil)
    fld)
    (while (setq fld (car fldlst))
      (condition-case err
      (mew-make-cache arg (directory-file-name fld))
    (error nil))
      (setq fldlst (cdr fldlst))))
  (mew-summary-visit-folder mew-inbox-folder)
  (message "Make .mew-cache done")
  (mew-summary-quit))

(defun mew-make-cache (arg fld)
  (if (or (mew-folder-virtualp fld)
      (and (fboundp 'mew-nmz-skip-folder) (mew-nmz-skip-folder fld))
      (not (mew-dir-messages (mew-expand-folder fld)))
      (and (not arg) (not (mew-make-folder-dir-newp fld))))
      (message "no Make %s" fld)
    (message "Make %s in %s ..." mew-summary-cache-file fld)
    (let ((mew-summary-mode-hook nil)
      (mew-scan-sentinel-hook nil)
      (mew-scan-wait-for 0))
      (mew-summary-visit-folder fld)
      (font-lock-mode -1)
      (while mew-summary-buffer-process
    (sit-for 0.5)
    (discard-input))
      (message "Make %s in %s ...done" mew-summary-cache-file fld))))

(defun mew-make-folder-dir-newp (fld)
  (let* ((dir (file-chase-links (mew-expand-folder fld)))
     (tdir (if mew-touch-folder-p
           (mew-file-get-time
            (expand-file-name mew-summary-touch-file
                      (mew-expand-folder dir)))
         (mew-file-get-time dir)))
     (cache (expand-file-name mew-summary-cache-file dir))
     (tcache (mew-file-get-time cache))
     t1 t2)
    (setq t1 tdir)
    (setq t2 tcache)
    (cond
     ((null t1)
      (if mew-touch-folder-p
      (if (and (file-writable-p (expand-file-name mew-summary-touch-file
                              (mew-expand-folder dir)))
           (mew-dir-messages (mew-expand-folder dir)))
          (progn (mew-touch-folder fld) t)
        nil)
    nil))
     ((null t2) t) ;; do update
     ((> (nth 0 t1) (nth 0 t2)) t)
     ((= (nth 0 t1) (nth 0 t2))
      (if (> (nth 1 t1) (nth 1 t2)) t nil)) ;; nil if equal
     (t nil))))

### Microsoft ダウンロードセンター へのリンクプラグイン
# usage: {{msdc('FamilyID','word')}}
sub msdc {
	my ($id,$str) = @_;
	my $prefix = q(http://www.microsoft.com/downloads/details.aspx);
	my $lang   = q(ja);
	return qq(<a href="$prefix?displaylang=$lang&FamilyID=$id" title="Microsoftダウンロードセンター - $str">Microsoftダウンロードセンター - $str</a>);
}

### Microsoft ダウンロードセンター への検索リンクプラグイン
# usage: {{msdc_search('word')}}
sub msdc_search {
	my ($str) = @_;
	my $prefix = q(http://www.microsoft.com/downloads/results.aspx);
	my $lang   = q(ja);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?displaylang=$lang&freeText=$enc" title="Microsoftダウンロードセンター検索 - $str">Microsoftダウンロードセンター検索 - $str</a>);
}