トップ «前の日記(2005-05-12 (Thu)) 最新 次の日記(2005-05-16 (Mon))» 編集

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

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
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|


2005-05-13 (Fri) [長年日記]

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 で出していたんだ ^^;;;

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

複数の日記維持

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


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