[mew-dist 21673] Re: mew-summary-setup-mode-line

[Kan Sasaki]

> Summary buffer のモードラインだけ (display-time) の日時情報や mew-biff 
> の情報が表示されなくて不便に思っています。mew-summary.el の以下の部分

anoncvs の emacs 使用されてますよね?

> X-Mailer: Mew-3.0.66 on Emacs-21.3.50.1 (i386-msvc-nt5.0.2195) of 2002-09-10

最近 modeline の書式が変更されたので、それによるものだと思います。かな
り適当ですが、一応添付のパッチで使えてます。

-- 
Fusion Communications Corp.
佐々木  寛  sasaki at example.com
-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /cvsmew/mew/mew-summary.el,v
retrieving revision 1.125
diff -u -r1.125 mew-summary.el
--- mew-summary.el	2002/09/05 13:44:47	1.125
+++ mew-summary.el	2002/09/11 05:57:49
@@ -219,14 +219,19 @@
 (defvar mew-mode-line-magic-number 3)
 
 (defun mew-summary-setup-mode-line ()
-  (setq mode-line-format (copy-sequence (default-value 'mode-line-format)))
-  ;; (... (-3 . "%p") "-%-") -> (... Mew-stuff "-%-")
-  (let* ((len (length mode-line-format)))
-    (when (> len mew-mode-line-magic-number)
-      (setcdr (nthcdr (- len mew-mode-line-magic-number) mode-line-format)
-	      '("[" mew-summary-buffer-left-msgs " more]"
-		(mew-summary-buffer-raw "*")
-		"-%-"))))
+  (if (boundp 'mode-line-position)
+      (setq mode-line-position
+	    (append '("[" mew-summary-buffer-left-msgs " more]"
+		      (mew-summary-buffer-raw "*"))
+		    (cdr mode-line-position)))
+    (setq mode-line-format (copy-sequence (default-value 'mode-line-format)))
+    ;; (... (-3 . "%p") "-%-") -> (... Mew-stuff "-%-")
+    (let* ((len (length mode-line-format)))
+      (when (> len mew-mode-line-magic-number)
+	(setcdr (nthcdr (- len mew-mode-line-magic-number) mode-line-format)
+		'("[" mew-summary-buffer-left-msgs " more]"
+		  (mew-summary-buffer-raw "*")
+		  "-%-")))))
   (or (assq 'mew-summary-buffer-process mode-line-process)
       (setq mode-line-process
 	    (cons '(mew-summary-buffer-process
@@ -683,6 +688,7 @@
   ;;
   (make-local-variable 'tab-width)
   (make-local-variable 'search-invisible)
+  (make-local-variable 'mode-line-position)
   (setq search-invisible nil)
   (cond
    (mew-gemacs-p