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

○ イチロー

昨日から読売新聞の朝刊にイチローのインタビューがのっているが、今日のはすごかった。数えるほどしかできたことはありませんってできたことがあるのが信じられない。『ボールの縫い目がが止まって見えた by 打撃の神様』ぐらいのインパクトがある。

○ どっか〜〜ん

一家そろって「ゆき先生が女王様！？」と驚きましたぜ。

○ スタッドレスタイア

に変えた。軟弱にガソリンスタンドで工賃 ￥3,000- なり。けど、雪の上を走るかどうかは不明。

○ Virus だめだめ

こいつのせいで社外への/からの転送が止められてしまった。某工場は全滅状態だそうだ。これは namazu.org から出してみたが、やっぱり手元に帰ってこない。かずさんのメールも来ないしね。(18:00 現在、web で見えているかずさんのお返事はまだ手元に来ない)

○ いかん

社内から "Subject: Hi" "Content-Type: application/x-msdownload;" なメールが送って来たときに ISP に転送しないように ~/.procmailrc 書き換えて実験。。。いかん、正規表現間違えて送っちゃった。その筋からチェックが入りそう。。。

○ 高林哲の『検索技術論』

図書室で日経バイトをコピーして、やっと読んだ。Emacs のことを書いていらっしゃるが「おぉ、これは素晴らしい」と手を出す日経おじさんがいると面白いかも。

○ 無駄足＆再々入院

もうひとつ頼んでいたのは、納期も未定とのことなので、あきらめて昨日デジカメを取りに行った。一度失敗しているので、ちょっと店舗を離れたところで袋を開けて修理明細をみたらこのときと同じことしかやってないじゃん。いゃ〜〜な予感がしたので、一度ヨドバシに戻って電池を買って試したところ、やっぱりぜんぜんなおってない :-<。そのまま、デジカメ売り場に行って、売り場のにいちゃんに症状を確認させて、そのまま再々入院。ちょっとだけ頭にきたので電池は返品して返金してもらった。
やっぱ電池つかわないと動かないカメラはだめだわ。

○ SPAM を読もう！！

こんなことに無駄な労力をかけたい気分だったので :-)
mew-dist に出したのよりちょっとだけ進化したような感じ。

(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (define-key mew-summary-mode-map "`" 'mew-force-view-strange-message)))
 
(defconst mew--fake--decode nil)
(defun mew-force-view-strange-message (&optional arg)
  (interactive "P")
  (if (not mew-mule-p)
      (message "This command cannot be used on non-Mule Emacs")
    (mew-summary-msg-or-part
     (mew-summary-goto-message)
     (let ((mew-cs-database-for-decoding mew-cs-database-for-decoding)
	   (mew--fake--decode t)
	   (mew-decode-broken t)
	   (mew-use-name-parameter t)
	   (mew-use-alternative nil)
	   (mew-use-text-body t)
	   (orig-lang current-language-environment)
	   lang cs-env)
       (when arg
	 (setq lang (mew-input-language-name
		     (format "Language (%s): " orig-lang) orig-lang))
	 (setq cs-env (mew-set-language-environment-coding-systems lang)))
       (setq mew-cs-database-for-decoding
	     (cons '("unknown" . undecided) mew-cs-database-for-decoding))
       (unwind-protect
	   (mew-summary-analyze-again)
	 (when (and arg cs-env)
	   (mew-reset-coding-systems (car cs-env) (cdr cs-env))))))))
 
(defadvice mew-header-decode (around fake-decode activate)
  (if mew--fake--decode (ad-set-arg 0 "unknown"))
  ad-do-it)
 
(defadvice mew-decode-charset-conv (around fake-decode activate)
  (when mew--fake--decode
    (mew-xinfo-set-warning
     (cons "Charset FAKE!!\n" (mew-xinfo-get-warning)))
    (when (eq mew--fake--decode 'mime)
      (mew-xinfo-set-warning
       (cons "Mime-Version: FAKE!!\n" (mew-xinfo-get-warning))))
    (ad-set-arg 0 "unknown"))
  ad-do-it)
 
(defadvice mew-decode-rfc822-header (after fake-decode activate)
  ;; (list mimep subj from)
  (when (and mew--fake--decode
	     (not (car ad-return-value)))
    (setq mew--fake--decode 'mime)
    (setcar ad-return-value t)))

良い子のみなさんは使わない方が良いと思われるし、こんな大事な関数群に advice かけちゃって良いのか？という気もする。

○ 効能

• ` を押すと、間違った chaset でも Emacs にまかせて Decode する
• ` を押すと、C-cC-l と違って MIME の解析もする
• ` を押すと、Mime-Version: が無くても MIME なメールと見なして解析する
• C-u ` を押すと、言語が選べる
• 結果を捨てたいときは、. したり zc したり

○ もしも

あとなにかやるとしたら、

  Subject: [palm-ml 5755] =?ISO-2022-JP?B?GyRCJGQkQyRIPVAkPyRfJD8kJCRHJDkkTRso
          Qg==?=

こんなのを救うかどうかか。。。これはちょっと大変だな。

○ ニコンもコニカもミノルタも。。。

寂しい。。。がんばれペンタックス。

○ Emacs ユーザーの方に質問です。これは便利! と思える elisp プログラムを教えてください。 (人力検索はてな)

前から導入しようとおもっていた color-moccur を入れてみたりした。また、ぼくがいろいろとかかわっていたのも何個かのっていてうれしい限り。

だけど、『人力検索はてな』って初めて知ったりして ^^;;;