[Mew-dist 1146] mode-line-buffer-identification

[NISHIDA Keisuke]

西田＠阪大です。

細かいことなんですが、Mew では mode-line-buffer-identification 
はセットしないのでしょうか? 一応、パッチです。

---
大阪大学基礎工学部システム工学科三年
西田 圭介 <ks5036nk at example.com>

-------------- next part --------------
*** mew-summary.el~	Tue Jul  1 10:15:52 1997
--- mew-summary.el	Wed Jul  2 00:17:50 1997
***************
*** 337,342 ****
--- 337,343 ----
    (interactive)
    (setq major-mode 'mew-summary-mode)
    (setq mode-name "Summary")
+   (setq mode-line-buffer-identification '("Mew: %12b"))
    (use-local-map mew-summary-mode-map)
    (setq buffer-read-only t)
    (setq truncate-lines t)
-------------- next part --------------
*** mew-message.el~	Mon Jun  2 14:31:33 1997
--- mew-message.el	Wed Jul  2 00:18:06 1997
***************
*** 84,89 ****
--- 84,90 ----
    (interactive)
    (setq major-mode 'mew-message-mode)
    (setq mode-name "Message")
+   (setq mode-line-buffer-identification '("Mew: %12b"))
    (use-local-map mew-message-mode-map)
    (setq buffer-read-only t)
    (setq mew-message-citation 'header)
-------------- next part --------------
*** mew-draft.el~	Tue Jul  1 09:53:55 1997
--- mew-draft.el	Wed Jul  2 00:18:26 1997
***************
*** 311,316 ****
--- 311,317 ----
          (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-separate))
    (setq major-mode 'mew-draft-mode)
    (setq mode-name "Draft")
+   (setq mode-line-buffer-identification '("Mew: %12b"))
    (use-local-map mew-draft-mode-map)
    (set-syntax-table mew-draft-mode-syntax-table)
    (cd (expand-file-name "~"))