[Mew-dist 13602] Re: little patch for mew-summary-mode-name 第2弾

[Ninomiya Hideyuki]

こんにちは	二宮@お四国 です

山本 和彦 様 は Sat, 08 Jul 2000 19:08:03 +0900 (JST) 頃に
    Subject:    Re: [Mew-dist 13445] little patch for mew-summary-mode-name 第2弾
    Message-ID: <20000708.190803.74737447.kazu at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
かず> どうしてもと言うなら、hook を定義してカスタマイズするようにしませんか？

『どうしてもほしーよー』って言っているのは自分だけ m(__)m なので、
それでも良いです。お願い致します。m(__)m > かず様

つまり、(1.95b43で)こんな感じでしょうか ?

Index: mew-summary.el
===================================================================
RCS file: /tmp/am/od/cvs/mew/mew-summary.el,v
retrieving revision 0.0.0.14
diff -u -r0.0.0.14 mew-summary.el
--- mew-summary.el	2000/07/01 12:15:00	0.0.0.14
+++ mew-summary.el	2000/07/11 03:26:18
@@ -968,7 +968,8 @@
       (mew-decode-syntax-delete)
       (mew-window-configure (current-buffer) 'summary)
       (mew-current-set 'message nil)
-      (mew-summary-reset-mode-line (current-buffer))))))
+      (mew-summary-reset-mode-line (current-buffer)))))
+  (run-hooks 'mew-summary-toggle-disp-msg-hook))
 
 (defun mew-summary-recenter ()
   "Make the current line to the center of Summary mode."

そんで、こんな感じですねっ

(add-hook 'mew-summary-toggle-disp-msg-hook
      (function (lambda ()
		  (setq mode-name
			(if mew-summary-buffer-disp-msg
			    "Summary" "Summary Only"))
		  (force-mode-line-update))))

この方が他の用途にも使えて良いかも知んないですねっ
お願い致します。m(__)m
---
ICQ UIN:57442553                        二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:  http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com http://user.shikoku.ne.jp/~nin/index.html