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

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

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
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-28 (Mon) 今週もがんばろ〜〜

おぉ!!

とでも言わないとやっていられませんが、今週はずーと仕事です。

長期休みにずーと出社するのは、入社以来初めての様な気がする。少なくても、結婚してからは初めて。

某氏のメールより

Texas と聞いて

  • 『テキサース!!』と叫ぶ山さん
  • ドリー、テリーのザ・ファンクスが血だらけになりながら腕を振り回している姿
  • スタン・ハンセンがロープを振り回している入場シーン

しか頭に浮かんで来ないわたしって。。。

goto-new-folder

最近、spam よけやらなんやらで procmail から直接 folder に放り込むのが多くなったので、こんなのを寄せ集めで書いた。ぼくにはこれで十分。Mew2-3 用。どっかに (defvar mew-touch-folder-p t) と書いておくと、Mew 4 でも動くかもしれない。
(define-key mew-summary-mode-map "Gn" 'mew-summary-goto-new-folder)
 
(defun mew-summary-goto-new-folder ()
  "Goto folder to have a few new messages."
  (interactive)
  (message "Gathering new folders...")
  (let ((flds (or (and (boundp 'mew-folder-list) mew-folder-list)
		  (and (boundp 'mew-local-folder-list) mew-local-folder-list)
		  (and (boundp 'mew-local-folder-alist)
		       (mapcar 'car mew-local-folder-alist))))
	newflds alst fld)
    (while (setq fld (car flds))
      (when (and (not (or (mew-folder-draftp fld)
			  (mew-folder-queuep fld)
			  (mew-folder-postqp fld)))
		 (mew-summary-goto-new-folder-p fld))
	(setq newflds (cons fld newflds)))
      (setq flds (cdr flds)))
    (if (null newflds)
	(message "Gathering new folders...no new folders")
      (mapcar (lambda (x) (setq alst (cons (list x) alst))) newflds)
      (let ((completion-ignore-case mew-complete-folder-ignore-case))
	(setq fld (completing-read "UNREAD folder: " alst nil t nil
				   'mew-input-folder-hist)))
      (setq mew-input-folder-hist (cons fld mew-input-folder-hist))
      (let ((newfld (mew-summary-switch-to-folder fld)))
	(if (eq 1 (w3m-function-max-args 'mew-summary-ls))
	    (mew-summary-ls newfld)
	  (dont-compile;; To avoid a byte-compile warnning.
	    (mew-summary-ls newfld newfld)))))))
 
(defun mew-summary-goto-new-folder-p (folder)
  (let* ((dir (file-chase-links (mew-expand-folder folder)))
	 (t1 (if mew-touch-folder-p
		 (mew-file-get-time
		  (expand-file-name mew-summary-touch-file
				    (mew-expand-folder dir)))
	       (mew-file-get-time dir)))
	 (cache (expand-file-name mew-summary-cache-file dir))
	 (t2 (mew-file-get-time cache)))
    (if (and mew-touch-folder-p (null t1)
	     (file-directory-p dir)
	     (mew-dir-messages (mew-expand-folder dir)))
	t
      (mew-compare-times t1 t2))))

がーーん

家にたどり着いて、玄関の鍵を出そうとしたら、無い。どうも昨日着ていたベストのポッケの中のようだ^^;;;
3回目の電話で女房が起きてくれて助かった。

/usr/bin/env hoge

前から何とかしようと思いつつも、個人的にはまったく困っていないため、めちゃくちゃ腰の重いこの問題は、やっぱり mw32script.el で "#! /usr/bin/env hoge" の解析をするのがよいのだろうか? mw32script-argument-editing-alist に ruby.exe を押し込んだ張本人としては、少々悩んでしまう。

また、どこであった話かも覚えていないけど、script interpreter(って言うんだっけ?これ)の是非の討論とかも読んだ気がするし、どうなんだろうなぁ。けど、Ruby Script って /usr/bin/env 使う人が多いみたいだしなぁ。。。


2004-04-28 (Wed) へろへろ

明日から黄金週間

らしいのだが、ずーーーーと仕事の予定。そういえば、去年も働いていましたよ。


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