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

○ 今日の 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)))))))