[Mew-dist 405] Re: メッセージが日本語か英語かで環境を分ける。

[Mikio Nakajima]

  おはようございます、中島です。

  昨日の夜書いたものから match-data が変わっちゃわないように、少し
だけ改良しました。フックで呼ぶので、こうしておいた方が安全ですね。


From: 桐山和彦 <kiri at example.com>
Subject: Re: [Mew-dist 402] Re: メッセージが日本語か英語かで環境を分ける。
Date: Tue, 14 Jan 1997 00:23:50 +0900
Message-ID: <199701131523.AAA23464 at example.com>

kiri> 遅くまで御苦労様です。自分でも今どんな MLに入っているか把握してません^^;;

  昨日遅くまで起きていたのは嫁さんが S*APxSM*P を見ているのにつきあっ
ていたからです (あれは社会現象ですねぇ...f(^_^;;;)。今朝は仕事があ
るので早めに起き出してきました。


kiri> PGP って便利ですか？
kiri> 

  PGP はプライベートでは{使いこなしている|便利}と言えるレベルではあ
りませんが、仕事で使おうとして、山本さんご推薦の書籍で勉強していま
す。


kiri> ＃ 私も中島さんみたいにスラスラと elisp が書ければいいのになといつも切ない願
kiri> ＃ 望で終ってますf^^;;
	
  Lisp は interactive 性が確保されているので修得しやすいです。C や
Perl がすらすら書けるようになりたいのですが、interactive 性が (Lisp
と比較して) 欠如しているので、難しいです。

中島幹夫 <gy2m-nkjm at example.com>

-------------- next part --------------
(setq mew-from "中島幹夫 <gy2m-nkjm at example.com>")

(add-hook 'mew-send-hook
          (function
           (lambda ()
             (if (string=
                  (mew-charset-guess-region mew-draft-buffer-header (point-max))
                  "us-ascii" )
                 (save-excursion
                   (save-match-data
                     (goto-char (point-min))
                     (if (search-forward  (concat "\nFrom: " mew-from)
                                          mew-draft-buffer-header 'noerror )
                         (progn
                           (delete-region (+ (match-beginning 0) 7) (match-end 0))
                           (insert "Mikio Nakajima <gy2m-nkjm at example.com>") ))))))))