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

○ 飲みすぎ

ぼくは言ったかなぁ？良く覚えていないや。まぁ、ぼくも散々飲んだくれていたから、あんまり人のことは言えないけど、ぼくが飲んだくれていたのは 独身のとき だから、ちょっと違うかな。

○ 新形？Spam

最近、ぼくの H" にまで、中国語(と思われる) Spam が来るようになった。H" なメールは全然使っていないのになぁ。。。。

○ bogofilter その2

(defun mew-add-bogo-blacklist (&optional white)
  "Bogofilter の spam list にいれる。C-u で nospam list にいれる。"
  (interactive "P")
  (mew-summary-not-in-queue
   (mew-summary-not-in-draft
    (save-excursion
      (mew-summary-goto-message)
      (let* ((bogo (mew-which-exec "bogofilter"))
	     (fld (mew-summary-folder-name))
	     (msg (mew-summary-message-number)))
	(when (and bogo fld msg)
	  (with-temp-buffer
	    (let ((coding-system-for-write mew-cs-text-for-write)
		  (coding-system-for-read mew-cs-text-for-read))
	      (insert-file-contents (mew-expand-folder fld msg))
	      (if (not (y-or-n-p (format "Add `%s' to %s? " (mew-header-get-value "From:")
					 (if white "*noSpam* list" "*SPAM* list"))))
		  (error "Nothing to do.")
		(when (string= (mew-header-get-value "From:")
			       "emacs-w3m-admin@namazu.org")
		  (goto-char (point-min))
		  (if (and (re-search-forward "^------- Forwarded Message" nil t)
			   (re-search-forward "^Received: " nil t))
		      (delete-region (point-min) (line-beginning-position))
		    (error "???")))
		(apply 'call-process-region (point-min) (point-max) bogo
		       'delete (current-buffer) nil
		       (if white '("-S" "-n") '("-s"))))))
	  (if white
	      (when (string= fld "+spam")
		(mew-summary-refile-body '("+inbox")))
	    (when (not (string= fld "+spam"))
	      (mew-summary-refile-body '("+spam"))))
	  (message "%s/%s to %s" fld msg (if white "noSpam." "SPAM!!"))))))))
 
(defun mew-bogo-check (&optional arg)
  "Bogofilter を使った Spam check。C-u なら region。"
  (interactive "P")
  (if (mew-summary-or-virtual-p)
      (mew-summary-not-in-queue
       (mew-summary-not-in-draft
	(if arg
	    (mew-bogo-check-region)
	  (mew-bogo-check-one))))
    (message "This command can be used in Mew.")))
 
(defun mew-bogo-check-region ()
  (let* ((begend (mew-summary-get-region))
	 (spam 0)
	 (total 0)
	 beg end pos)
    (when begend
      (setq beg (car begend))
      (setq end (cdr begend))
      (save-restriction
	(narrow-to-region beg end)
	(mew-decode-syntax-delete)
	(when (mew-sinfo-get-disp-msg)
	  (mew-summary-toggle-disp-msg))
	(goto-char (point-min))
	(setq pos (point))
	(while (not (eobp))
	  (setq total (1+ total))
	  (when (mew-bogo-check-one)
	    (setq spam (1+ spam)))
	  (forward-line 1)))
      (message "%d/%d detect." spam total))))
  
(defun mew-bogo-check-one ()
  (save-excursion
    (mew-summary-goto-message)
    (let* ((fld (mew-summary-folder-name))
	   (msg (mew-summary-message-number))
	   (bogo (mew-which-exec "bogofilter"))
	   ret)
      (when (and bogo fld msg)
	(with-temp-buffer
	  (let ((coding-system-for-write mew-cs-text-for-write)
		(coding-system-for-read mew-cs-text-for-read))
	    (insert-file-contents (mew-expand-folder fld msg))
	    (goto-char (point-min))
	    (when (string= (mew-header-get-value "From:")
			   "emacs-w3m-admin@namazu.org")
	      (goto-char (point-min))
	      (if (and (re-search-forward "^------- Forwarded Message" nil t)
		       (re-search-forward "^Received: " nil t))
		  (delete-region (point-min) (line-beginning-position))
		(error "???")))
	    (apply 'call-process-region (point-min) (point-max) bogo
		   'delete (current-buffer) nil '("-u" "-e" "-p"))
	    (goto-char (point-min))
	    (when (and (re-search-forward "^X-Bogosity: " nil t)
		       (looking-at "Yes"))
	      (setq ret t))))
	(if ret
	    (progn
	      (when (not (string= fld "+spam"))
		(mew-summary-refile-body '("+spam")))
	      (message "%s/%s is Spam!!" fld msg))
	  (when (string= fld "+spam")
	    (mew-summary-refile-body '("+inbox")))
	  (message "%s/%s is noSpam." fld msg))
	ret))))
 

○ ぼろぼろの１

今週は風邪も併発してしまい、めちゃくちゃ辛かった。なのにまた新たな問題が。。。一瞬でも浮上できたかえるくんがうらやましいよ。

○ ぼろぼろの２

先週の日曜日にとっても久しぶりに野球の練習に参加したのだが、まったく体が動かない。内野ノックなんて体が反応しないからぼーっと横を通りすぎるのを見ているだけ。外野ノックで落下地点に入っているのに、なぜか左手が持ち上がらなくてメガネの右のレンズに球が直撃してしまいましたよ。

そのかわりまったく力まないからか、ハーフバッティングはまあまあ。

もう大会もはじまっているけど、ぼくは秋の大会まで試合なんか出れないな。

○ ぼろぼろの３

ぼくの Palm m505。なんだか、月曜日ぐらいからデジタイザが狂いだしてきて、最初は数mm のタップずれだったのが、1cm ぐらいずれるようになってしまった。いろいろ試したところアルミの外枠の右上あたりをふみふみと押すと、良くなったり悪くなったり。きっとクリエだ！ザウルスだ！！とか騒いでいたので機嫌を損ねたのだろうと思われる。ふみふみすればなんとかだましだまし使えそう。

○ もっとぼろぼろ

とか安心していたら、水曜日、木曜日と二回もデジタイザがまったくの無反応になってしまいましたよ。ハードリセットで復活するのだけど、やっぱ寿命かなぁ。。。折角松本さんが試作品送ってくれたのに。。。

こういうのって蓋開けてコネクタをどうのこうのすると延命措置ができるレベルなのかな？ドライバ(トルクスっていうだっけな)持っていないから買ってこないと蓋も開けられないのよ。だれか近場の人、もってない？

○ というわけで

そろそろ、本気でザウルスか？クリエか？はたまたもう一度Palmか？決めないといけなくなってきた。洋物を買うほど根性はないからザウルスかクリエかぁ、やっぱ。大きさをとるか Emacs をとるかだな。だけど、どれを選ぶにしても一式そろえると結構お金がかかりそうだなぁ;_; もうちょっと安いクリエという手もあるな。

○ けど SL-C860 も TH55 もそこいら中で売り切れなんだね。ヨドバシカメラの Web だと SL-C860 は 4月末入荷予定かぁ。TH55 なんか入荷未定で販売休止しているし。なにか部品供給の問題でも抱えているのかしら。さてさてなんにしようか。だけど、そろそろ新しいザウルス出ないのかな？ぶつぶつ。。。

○ ふと気づいたのだけど、どれを買うにしても音楽を持ち歩いて聞けるのだよな。ラジオ以外でそういうの持ち歩くの生まれて初めてだよ、ちょっと緊張。