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

○ 昨日の夜

右どなりに座った太ったあんちゃんが、まったくもって落ち着きがなく、何回も座り方を変えたり、ひざの上においた鞄のジッパーを何回も何回も閉じたり開いたりして中の物を出したり入れたりしていた。それがまた、左手でジッパーを開くときに、脇を開いて力いっぱい勢いよく開けるものだから、あと少しでエルボースマッシュをくらいそうになったのが数回ほど。勘弁してくれ、眠気がぶっとんじまったぞ。

○ 今日の朝

どう見ても新入社員って感じの若いスーツ姿のにいちゃんが座っている前のつり革につかまったのだが、にいちゃんのヘッドフォンステレオの音漏れが立っていてもめちゃくちゃうるさい。

で、途中で隣の席が空いたので座ったのだけど、まったく我慢できずに 1.5秒後に肩をたたいて「もうちょっと音を小さくしてくれ」とクレームをつけてしまった。だけど、最初は何を言われたのか理解できなかったようだ(こいつ電車乗ったこと無いんじゃないだろうか？)。しかし、ぼくの前に座っていた OL さんと逆に座っていたあんちゃん、よく我慢できたな。

しかし、4月 5月の通勤時間帯の電車にはろくなのがいない。

○ Mew

なんだか久しぶりに Mew のコードを読んで、気に入らないところのパッチを送ってしまいましたよ。ついでに、"t)" で thread を全部閉じる、"t(" で thread を全部開くというのと、閉じた thread に一気に mark をつけるというのを作って Mew-dist に送った。とりあえず満足。
しかし、うーん、一度閉じた thread もう一回開くときって fancy-summary と相性が悪いな。ちょっと無理やりだけど、Emacs20, 21 用の advice。XEmacs はもう気にしないことにした。もしかすると、パッチも XEmacs じゃだめかもね。

(defadvice mew-thread-graft (after re-fancy activate)
  (save-excursion
    (let ((beg (line-beginning-position))
	  (end (progn (forward-line) (line-beginning-position)))
	  (prop (or (and (get-text-property (point) 'fontified)
			 'fontified)
		    (and (get-text-property (point) 'lazy-lock)
			 'lazy-lock))))
      (goto-char (or (mew-thread-next-property2 (point) (point-max) 0)
		     (point-max)))
      (when (and prop
		 (not (eq end (line-beginning-position))))
	(mew-elet
	 (put-text-property beg (line-beginning-position) prop nil))))))

○ 『以前 XEmacs のユーザだったとき』って山岡師が言うぐらいだからなぁ、もう、XEmacs はどうでもいいや。