トップ «前の日(04-22) 最新 次の日(04-24)» 追記

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2003-04-23 (Wed) ちょっと風邪気味

飲みすぎ

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

新形?Spam

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

bogofilter その2

またまた、昼休みの気晴らしに、Mew (ただし ver.3) から bogofilter をいじる elisp を書いてみた。
(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))))
 
思いっ切りぼくの環境に依存しているので注意。だけど、本当は、mew-pop-command-dele() にで組み込んで spam のチェックをしないとあまりうれしくないな。

2004-04-23 (Fri) ぼろぼろ

ぼろぼろの1

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

ぼろぼろの2

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

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

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

ぼろぼろの3

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

もっとぼろぼろ

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

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

というわけで

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

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

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

本日のツッコミ(全2件) [ツッコミを入れる]

344 [そろそろ新 Zaurus が出るころですね。]

ぱんだ [夏のボーナス商戦かしら?それまで待とうかな。(今日も会社)]


書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed