猫熊は燃えつきた？！日記

○ どうやら

体調は元に戻りつつあるようだ。ビールを買って帰ろう。

○ 勘があたった :-)

しかし、世の中狭いですね。

○ Application/Octet-Stream 時に C-c C-e だけですむようにする

ぼくの場合は逆でして、勝手に wvHtml とかが召喚されるのが嫌なので、

(setq mew-prog-msword '(mew-mime-application/octet-stream
			mew-mime-application/msword-ext))
(setq mew-prog-msexcel '(mew-mime-application/octet-stream
			 mew-mime-application/msexcel-ext))
(setq mew-prog-mspowerpoint '(mew-mime-application/octet-stream
			      mew-mime-application/mspowerpoint-ext))

として、C-cC-e しないと動かないようにしている。だけど、最近、仕事ガラミで、App/Oct で Word/Excel/ppt/画像を送り付けてくるメール(とあるグループウェアから)が大量にあるので、触発されて、C-u を省くためにこんなことをしてみた。parameter の name があるときは、必ず "Filename:" が表示されている様な気もするけど、まぁ、いっか。

(setq mew-prog-octet-stream '(mew-mime-application/octet-stream
			      mew-mime-application/octet-ext))
     
(defun mew-mime-application/octet-ext (cache begin end &optional parameter)
  (save-excursion
    (set-buffer (mew-buffer-message))
    (goto-char (point-min))
    (let (fname ext func ct conv)
      (when (or (and (re-search-forward "^Filename:\t+\\([^\n]+\\)$" nil t)
		     (setq fname (match-string 1)))
		(setq fname (nth 1 (assoc "name" parameter))))
	(when (string-match "\\.\\([^.]+\\)$" fname)
	  (setq ext (downcase (match-string 1 fname)))))
      (cond
       ((and ext (string= "doc" ext))
	(setq func 'mew-mime-application/msword))
       ((and ext (string= "xls" ext))
	(setq func 'mew-mime-application/msexcel))
       ((and ext (string= "ppt" ext))
	(setq func 'mew-mime-application/mspowerpoint))
       ((and ext (string= "pdf" ext))
	(setq func 'mew-mime-application/pdf))
       ((and ext (string-match "^html?$" ext))
	(setq conv t)
	(setq func 'mew-mime-text/html))
       ((and ext (setq ext (assoc ext
				  '(("tif" . "Image/Tiff")
				    ("tiff" . "Image/Tiff")
				    ("jpg" . "Image/Jpeg")
				    ("jpeg" . "Image/Jpeg")
				    ("png" . "Image/Png")
				    ("gif" . "Image/Gif")
				    ("xwd" . "Image/X-Xwd")
				    ("xpm" . "Image/X-Xpm")
				    ("xbm" . "Image/X-Xbm")
				    ("bmp" . "Image/X-Bmp")))))
	(setq ct (cdr ext))
	(setq func 'mew-mime-image/*)))
      (if func
	  (mew-elet
	   (mew-erase-buffer)
	   (if ct
	       (funcall func cache begin end parameter ct)
	     (funcall func cache begin end parameter))
	   (when conv
	     (decode-coding-region (point-min) (point-max) 'undecided))
	   (mew-summary-display-postscript 'nohook))
	(message "Nothing to do")))))

○ Content-type: Bill/Gates

で、普通は wvHtml とか使って Emacs 内で表示しているんだけど、やっぱり MSWORD.exe とかで見たいなぁというときは、"C-uC-cC-e => bill/gates" で fiber 起動。

(setq mew-prog-micro$oft '("fiber" nil t))
(setq mew-prog-micro$oft-arg nil)
 
(setq mew-mime-content-type
      (cons '("bill/gates" "^micro\\$oft$" mew-b64
	      mew-prog-micro$oft mew-icon-application/octet-stream)
	    mew-mime-content-type))

Windows では "fiber.exe" まかせだけど、UNIXでは、"fiber" という shell script で、(普段 ASTEC-X だから)samba 経由でファイルを Windows から読めるところにコピーして、'ssh PC fiber さっきのファイル' として起動している。今なら、open office でも使えば良いのかな？
いろんな CT で試したんだけど、結局 Bill/Gates で落ち着いてしまった。"micro$oft" というファイルをアタッチすると CT が Bill/Gates になってしまう ^^;;;

○ X31 のキーボード

もう重いキータッチにはなれてしまった

馬場さんに紹介されたここのこれをじーと見ていて気付いたのだけど、数字キーが並んでいる列(第一列っていうのかな？)が一個少ないのですね。うーん、HHK と同じ配置が作れないなぁ。"`" を打つときに思いっ切り右手の小指をのばしてからちょっと下に落す感じかな？なれれば大丈夫か？

このわけのワカラン余分なキーはブラウザキーというのか、あとで潰しておこうかしら。個人的にはブルーの "Access IBM" を押すと Meadow が立ち上がるとかやりたいな。

○ とある事情で

会社の WS で立ち上げている Apache で簡単な認証をかけなければならなくなった。ちゃんと Realm が "Plase type 'hoge' and 'fuga'" となるようにしてしまった。しかし、これで審査？が通るのだ。

○ GMail account

招待していただいたので加入。http://gmail.goggle.com/ にいったときに、ちゃんと GMail にいけるブラウザと、SpyBouncer の宣伝にいっちゃうブラウザがあって、その違いがわからないのよ。

○ Zaurus: SL-C3000

この辺とかこの辺からの情報
うーーん、個人的にはハードディスクはあっても無くても良いから SDRAM を 128MByte Over に増やした機種が欲しかったな。電池はどれぐらい持つのかな？
けど、一番気になるのはいくら？かも。オープン価格って嫌いだ！！

○ mew-browse.el 改版(久しぶりの実験おやじ)

わーい、MozEx に本格対応だぁ(自画自賛)。
mew-win32 の方で、多言語対応を要望されていてでっち上げたのだが、

<a href="mailto:hoge@exsample.com?subject=実験">間違った mailto</a>

こんなのが世の中に多いのですよ、と指摘されてしまった。しかし、MozEx の "%r" だと上記の "実験" 部分が完全に壊れてしまっているのだ。
上記の様な間違ったものでも、(おそらく)IE + gnudoitw を使う組み合わせ以外はちゃんと動くと思う。IE でもページが SHIFT_JIS か ISO-2022-JP なら動くんじゃないかな。

○ いたたたた。。。

昨日、200Kg の物体を二つ運んだのだが、今ごろになって腰と左足の付け根が痛み出した。

○ ファーミネーター

近所のペットショップに行ったところ、(ダンと)仲良しの店員さんが見本品を使って、みるみるうちに不要なアンダーコートを取ってくれた。すっごーく取れたのよ。

というわけで、買っちゃいました。ちょっとお高い ;_;

○ ペンキ塗り

玄関まわりのラティスその他のペンキ塗りで半日終了。息子と遊びに来た息子の友達も手伝わせたので、結構落チンで終わった。だけど、今度はベランダのラティス一式が待っているんだよなぁ。

○ 新品のグローブ

息子が今度の水曜日だかの江戸川区の小学校対抗陸上大会でリレーの選手になったのだが、真っ当な運動靴が全然なかったので、市川のスポーツデポまで、それなりの運動靴を買いに行った。はい、親バカです。

当然、靴は買ったのだが、ついで？にグローブ買っちゃった。でへへ。ここの二岡モデルの黒。ちなみに、同じところのヨシノブモデルのオレンジも持っていたりする ^^;;;

これで内野も外野も完璧だ！！

○ ちなみに

野球を始めたときに買ったオールラウンドのグローブもあるのだが、これ、買ったときにお店でスチーム+棍棒？使って型を付けてもらったんだけど、ちょっと使っているうちに軟らかくなりすぎちゃったのよねぇー。面倒でも自分で型をつけましょー。今の軟式用のグローブは最初からそれなりに軟らかいから最初は楽だけど。