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

○ どうやら

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

○ 勘があたった :-)

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

○ 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'" となるようにしてしまった。しかし、これで審査？が通るのだ。