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

○ mew-syntax-format-hook で Message/Rfc822 の From: を表示

以前、[mew-dist: 25962] で、mew-syntax-format-hook の一例を書いたことがあるけど、[mew-dist: 26256] を読んでいて From: も表示したくなった。大変かなぁと思ったのだが、やってみたら結構あっさりできたので公開。(mew-dist に出すほどのものでも無し)
表示幅の数字をお好みで変えるときは、トータルが変わらないようにしないとだめ。

(add-hook 'mew-syntax-format-hook 'my-mew-syntax-format-change)
 
(defun my-mew-syntax-format-change ()
  (cond
   ((and (string= mew-ct-msg ct)
	 (string-match mew-buffer-cache-prefix (buffer-name)))
    (let* ((beg (mew-syntax-get-begin syntax))
	   (end (mew-syntax-get-end syntax))
	   (from
	    (save-excursion
	      (goto-char beg)
	      (when (re-search-forward "^from: +" end t)
		(buffer-substring-no-properties (point) (line-end-position))))))
      (setq ct "RFC822")		;; CT を短くする
      (setq lt 8)			;; 27-8=19 減った
      (if from
	  (progn
	    (setq filename cd-or-dec)	;; 真ん中と右を交換して
	    (setq cd-or-dec from)	;; from subjcect と表示
	    (setq ld (- ld 8))          ;; 真ん中を減らして
	    (setq lf (+ lf 27)))	;; 右を 19+8=27 増やす
	(setq ld (+ ld lf 19))		;; 全部 subject を表示
	(setq lf 0))))
   ((mew-draft-p)			;; draft では decrypters をたくさん表示したい
    (setq lf (+ lf 8))                  ;; ので、真ん中はあまり減らさない。
    (setq ld (- ld 8)))
   (t					;; summary では file名を長く表示
    (setq lf (+ lf 16))
    (setq ld (- ld 16)))))

使用前

 M05/13(金) 1143   4k To:hoge@exsample.com     Fw: [mew-dist 26211] Re: AOL  |転送の実験。
     2  Message/Rfc822               [mew-dist 26211] Re: AOL の引用
     2.2  Text/Html(iso-2022-jp)                                                zzz.html
 
 M05/11(水) 2354   7k Mimpei MORISHITA         [mew-dist 26256] フォワード時 |森下と申します。
     2  Message/Rfc822               Fw: Original subject
     2.2  Message/Rfc822               Original subject
     3  Message/Rfc822               Fw: Original subject
     3.2  Message/Rfc822               Fw: Original subject
     3.2.2  Message/Rfc822               Original subject

使用後

 M05/13(金) 1143   4k To:hoge@exsample.com     Fw: [mew-dist 26211] Re: AOL  |転送の実験。
     2  RFC822    Hideyuki SHIRAI (白井秀行) <s..  [mew-dist 26211] Re: AOL の引用
     2.2  Text/Html(iso-2022-jp)                                zzz.html
 
 M05/11(水) 2354   7k Mimpei MORISHITA         [mew-dist 26256] フォワード時 |森下と申します。
     2  RFC822    Bar <bar@bar.jp>                 Fw: Original subject
     2.2  RFC822    Foo <foo@foo.jp>                 Original subject
     3  RFC822    Baz <baz@baz.jp>                 Fw: Original subject
     3.2  RFC822    Bar <bar@bar.jp>                 Fw: Original subject
     3.2.2  RFC822    Foo <foo@foo.jp>                 Original subject

結構満足してしまった。

○ すいません、私が悪うございました。

最近、特定のマシン(複数台)から Zaurus に ssh では入れるけど、scp とか rsync とかではダメで、ずーーと悩んでいたのだけど、ふと rsync を手動で動かしたときのメッセージ is your shell clean を読んで氷解。あー、scp 動かしたときにでる謎のメッセージはおいらが Zaurus の ~/.cshrc で出していたんだ ^^;;;

じゃ、なんで大丈夫なマシンもあったんだろうか？不思議

○ 複数の日記維持

犬の日記も書けないぐらいの不精者なので無理、無理。