[Mew-dist 2955] mode-line patch

[Akihiro Motoki]

元木です。

mode-line-buffer-identification が採用されているはずなのに、
Mew を使用しているときに、modeline の表示が Emacs: +draft/1 
のようになっていました。

どうやら、変数名のtypoだったようです。
mew-1.93b1 へのパッチです。
-- 
━━━━━━━………‥・・ ・ ・・　．
  元木 顕弘 / Akihiro Motoki      　　・
　E-mail: motoki at example.com  　・
  http://www.hal.t.u-tokyo.ac.jp/~motoki/ ‘  ・・ ‥…━━☆

diff -u -r ../mew-1.93b1.orig/mew-draft.el ./mew-draft.el
--- ../mew-1.93b1.orig/mew-draft.el	Tue Nov  4 12:49:50 1997
+++ ./mew-draft.el	Wed Nov 12 12:39:46 1997
@@ -369,7 +369,7 @@
         (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-separate))
   (setq major-mode 'mew-draft-mode)
   (setq mode-name "Draft")
-  (setq modeline-buffer-identification mew-modeline-id)
+  (setq mode-line-buffer-identification mew-mode-line-id)
   (use-local-map mew-draft-mode-map)
   (set-syntax-table mew-draft-mode-syntax-table)
   (cd (expand-file-name mew-home))
Only in .: mew-draft.el~
diff -u -r ../mew-1.93b1.orig/mew-message.el ./mew-message.el
--- ../mew-1.93b1.orig/mew-message.el	Tue Nov  4 12:49:50 1997
+++ ./mew-message.el	Wed Nov 12 12:40:42 1997
@@ -80,7 +80,7 @@
   (interactive)
   (setq major-mode 'mew-message-mode)
   (setq mode-name "Message")
-  (setq modeline-buffer-identification mew-modeline-id)
+  (setq mode-line-buffer-identification mew-mode-line-id)
   (use-local-map mew-message-mode-map)
   (setq buffer-read-only t)
   (setq mew-message-citation 'header)
Only in .: mew-message.el~
diff -u -r ../mew-1.93b1.orig/mew-summary.el ./mew-summary.el
--- ../mew-1.93b1.orig/mew-summary.el	Tue Nov  4 12:49:51 1997
+++ ./mew-summary.el	Wed Nov 12 12:40:45 1997
@@ -371,7 +371,7 @@
   (interactive)
   (setq major-mode 'mew-summary-mode)
   (setq mode-name "Summary")
-  (setq modeline-buffer-identification mew-modeline-id)
+  (setq mode-line-buffer-identification mew-mode-line-id)
   (use-local-map mew-summary-mode-map)
   (setq buffer-read-only t)
   (setq truncate-lines t)
Only in .: mew-summary.el~
diff -u -r ../mew-1.93b1.orig/mew-virtual.el ./mew-virtual.el
--- ../mew-1.93b1.orig/mew-virtual.el	Tue Oct 28 13:08:43 1997
+++ ./mew-virtual.el	Wed Nov 12 12:40:27 1997
@@ -174,7 +174,7 @@
   (interactive)
   (setq major-mode 'mew-virtual-mode)
   (setq mode-name "Virtual")
-  (setq modeline-buffer-identification mew-modeline-id)
+  (setq mode-line-buffer-identification mew-mode-line-id)
   (use-local-map mew-virtual-mode-map)
   (setq buffer-read-only t)
   (setq truncate-lines t)
Only in .: mew-virtual.el~
diff -u -r ../mew-1.93b1.orig/mew.el ./mew.el
--- ../mew-1.93b1.orig/mew.el	Tue Nov  4 12:49:51 1997
+++ ./mew.el	Wed Nov 12 12:39:33 1997
@@ -218,8 +218,8 @@
 ;;; Misc
 ;;;
 
-(defvar mew-modeline-id '("Mew: %12b")
-  "*A default value of modeline-buffer-identification for each Mew mode.")
+(defvar mew-mode-line-id '("Mew: %12b")
+  "*A default value of mode-line-buffer-identification for each Mew mode.")
 
 ;;BBDB not fully supported
 (defvar mew-use-bbdb nil
Only in .: mew.el~