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

○ 今日の Palm

今年中にやらないといけないこと(自分の家のことね)がほぼ終わったので、少し遊び出した。で、この前買った Wnn for Palm で "○▲□←〒" の様な記号を入力するのに、わざわざ、スクリーンキーボードを選んで文字コード表を立ち上げないと入力出来ないことに気付く。○ を出すのに maru も shiromaru も z1 もダメだった。うーーー、結局、最低限必要なものは辞書登録したのだけど、辞書登録画面もコピー、ペーストができなくて使いにくかったぞい。とりあえず POBox の英単語辞書に記号も追加してしまったが、なにげに失敗した買い物かもしれない Wnn for Palm ったら ;_;。

○ 銀行

当然のごとくめちゃくちゃ混んでいた。だけど、日頃、窓口が開いている時に銀行に行くことなんて無いので、住宅ローン担当窓口で(以前からそのうち言わないとなぁと思っていた)ここ数年の変化を説明したところ、やっぱり『後で送るから、たくさん書類を書いてくださいね』ということになってしまった。担当のおねいさんに『やっぱりめんどくさいので届け出やめていいですか？』と冗談半分に聞いたら『だめです』と言われてしまった。うーーー謄本取ったりめんどくさいですよぉ。

○ この前の寄生虫 for Mew

ああいうパターンで quoted-printable 使ってくる人を見掛けたので(各人で勝手に)改造する。

○ 今日の寄生虫 for Mew + mew-w3m

(SHIMBUN で読売とか読んでいて)画像データを cid で Multipart/Related しているメッセージのとき、設定によっては Text/Html の表示で一緒に画像データを表示してしまうけど、一度見た画像データのパートが Summary にあって、もう一回見るのはうざったいぞ、という人向け。文章ではうまく説明できないと思われる。

;; Summary から CID の part を消す
;; 消えたパートは
;; ":" mew-summary-analyze-again-alternative() で出てくる
;; (setq shimbun-encapsulate-images t)
;; (setq mew-w3m-auto-insert-image t) ;; じゃないとつまらない
 
(defvar mew-w3m-cid-retrieve-cids nil)
(add-hook 'mew-w3m-cid-retrieve-hook 'mew-w3m-cid-retrieve-get)
 
(defun mew-w3m-cid-retrieve-get ()
  (setq mew-w3m-cid-retrieve-cids
	(cons cidstx mew-w3m-cid-retrieve-cids)))
 
(add-hook 'mew-message-hook 'mew-w3m-cid-delete-part)
 
(defun mew-w3m-cid-delete-part ()
  (when mew-w3m-cid-retrieve-cids
    (let* ((cids mew-w3m-cid-retrieve-cids)
	   (fld (mew-current-get-fld (mew-frame-id)))
	   (msg (mew-current-get-msg (mew-frame-id)))
	   (cache (mew-cache-hit fld msg 'must-hit))
	   (syntax (mew-cache-decode-syntax cache))
	   (vfld (mew-minfo-get-summary))
	   alt part partstx)
      (setq mew-w3m-cid-retrieve-cids nil)
      (when (and syntax cids msg cache vfld)
	(save-excursion
	  (set-buffer cache)
	  (setq alt (mew-dinfo-get-use-alt))
	  (set-buffer vfld)
	  (when (and alt
		     (mew-decode-syntax-p)
		     (<= (point) (mew-decode-syntax-end)))
	    (save-excursion
	      (goto-char (mew-decode-syntax-begin))
	      (mew-elet
	       (catch 'end
		 (while (<= (point) (mew-decode-syntax-end))
		   (setq part (mew-syntax-nums))
		   (unless part (throw 'end nil))
		   (setq partstx (mew-syntax-get-entry syntax part))
		   (if (memq partstx cids)
		       (delete-region (point) (progn (forward-line) (point)))
		     (forward-line))))
	       (set-buffer-modified-p nil)))))))))
 
;; ここから先は Emacs20 + bitmap で表示しようという奇特な人だけ必要
(add-hook 'w3m-bitmap-cache-image-hook 'mew-w3m-cid-get-syntax)
(defun mew-w3m-cid-get-syntax (url)
  (when (and w3m-mew-support-cid
	     (eq major-mode 'mew-message-mode)
	     (string-match "^cid:\\(.+\\)" url))
    (setq url (match-string 1 url))
    (save-excursion
      (let ((fld (mew-current-get-fld (mew-frame-id))))
	(set-buffer fld)
	(let* ((msg (mew-current-get-msg (mew-frame-id)))
	       (cache (mew-cache-hit fld msg 'must-hit))
	       (syntax (mew-cache-decode-syntax cache))
	       (cidstx (mew-syntax-get-entry-by-cid syntax url)))
	  (when cidstx
	    (run-hooks 'mew-w3m-cid-retrieve-hook)))))))

○ でんきメーカは

みんな？こんなもののような気がするよ。

○ 筋肉痛、その一

金曜日は、納会のあとちょっとだけ？飲みに行って 23時すぎに帰宅したのだが、土曜日の朝、どうにもふくらはぎが筋肉痛で痛い。何でだろう？と悩んでいたのだが、女房いわく「昨日の夜、とってもご機嫌にキッチンでダンスしていたわよ」とのこと。ぜんぜん覚えていない ^^;;;

○ 筋肉痛、その二

土曜日は野球のメンバで忘年会。ぶじ三次会まで参加したが、三次会のカラオケでも勝手にダンスをしていたようで、またまたふくらはぎが筋肉痛だ。

○ 日月火

と掃除したり買い物行ったり。カビとりハイターストロングは強力だ。すばらしい。

○ Mew4

本日夕方から、ちょっと手があいたので、突発的に Mew 4 にした。自分で作って自分で使っている寄生虫は大体動かしたつもりだけど、mew-shimbun.el はまだ未着手。Mew の contrib の下は皆さんがパッチを出してくれていたのですごく楽だった。ありがたい。

このまま Meadow2 まで持っていけるとうれしいのだが。

○ m505 + 16MByte改 + リセット問題みたび

muthuさんから再度のつっこみあり。

へぇー、やっぱりソフトウェアの問題なのですね。残念ながら、僕の場合は DateBK3 もつかっていないし、検索もノーエラーなので、同様の手法は使えないのですが、なんだかやる気が出てきました。教えていただいてありがとうございます。

○ がーーん

ふと気付いたのだが、SL-C3000 に ACアダプタのコネクタをさすと、ささりきらずに 1.5mm 程度残ってしまう。当然充電出来ていない。

最後に充電したのは会社だから、そのとき (会社にたくさんあったうちの会社の昔の製品用の ACアダプタの)コネクタの先っぽのプラスチック部品が中に残っちゃったんだろうなぁ。自分で直せるかどうか。。。それまでは SL-C860 で充電かぁ。もしかして電池替えるたびにリセットですか ;_;

○ 予測変換な Tamago

Anthy の予測変換機能だと、Anthy でしか使えなくてつまらないから、egg-remix を使っているときに pobox server を使って予測変換しちゃうよ、というのをでっちあげてみた。
Zaurus だとちょっと重いかなぁ、という感じだが、普通の PC だとなんにも問題ない。
やり過ぎだと思うぐらい pbserver にがんがん単語登録しちゃうところが、良いところでもあり、悪いところでもある。詳しくは egg-pobox.el を見てもらうことにして、こんな感じ↓。

;; 以下のものが (egg v4 以外に) 必須
;; POBoxサーバ		http://pitecan.com/OpenPOBox/server/index.html
;; suikyo (elisp)	http://taiyaki.org/suikyo/
;; egg-remix		http://www.extipl.jp/~payashi/remix/
;;                      (egg-remix を利用していないときは動作しない)
;;
;; 設定
;; ~/.emacs に
;; (require 'egg-remix)
;; (require 'egg-pobox)
;;
;; お好みで
;; (setq egg-pobox-server "localhost") ;; pbserver のホスト名
;; (setq egg-pobox-server-port 1178)   ;; 上記のポート番号
;; (setq egg-pobox-type 'inline)       ;; 表示の選択。 inline か minibuffer。
;;                                     ;; nil だと egg-pobox の機能を使わない
;; (setq egg-pobox-active-list '("japanese-egg-anthy" ;; egg-pobox を有効にする
;;				 "japanese-egg-wnn")  ;; input method を指定する。
;;
;; 使い方
;; 候補リストが出ているときに C-1, C-2, ... , C-0 or M-1, M-2, ..., M-0 を押す。

pbserver の挙動を調べもしないで書いたので、なにかしら pbserver の扱いを間違っている可能性高し。また、実用的かどうかもよくわからん。