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

○ おぉ！！

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

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

○ 某氏のメールより

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

○ goto-new-folder

(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 使う人が多いみたいだしなぁ。。。

○ 明日から黄金週間

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