[mew-dist 24053] mew-summary-setup-mode-line

[Kan Sasaki]

今日になって気がつきましたが、anoncvs の emacs で mode-line-position
が以下のように変更されました。

----------------------------
revision 1.125
date: 2003/09/29 10:28:21;  author: lute;  state: Exp;  lines: +2 -2
(mode-line-modes): Remove superfluous :propertize
construct in initialization.
(mode-line-position): Change cons cell into proper list in
initialization.

Index: bindings.el
===================================================================
RCS file: /cvs/emacs/lisp/bindings.el,v
retrieving revision 1.124
retrieving revision 1.125
diff -u -r1.124 -r1.125
--- bindings.el 26 Sep 2003 12:52:36 -0000      1.124
+++ bindings.el 29 Sep 2003 10:28:21 -0000      1.125
@@ -303,7 +303,7 @@
      `(:propertize ("" mode-name)
                   help-echo "mouse-2: help for current major mode"
                   local-map ,mode-line-major-mode-keymap)
-     `(:propertize ("" mode-line-process))
+     '("" mode-line-process)
      `(:propertize ("" minor-mode-alist)
                   help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu"
                   local-map ,mode-line-minor-mode-keymap)
@@ -313,7 +313,7 @@
      (propertize ")%]--" 'help-echo help-echo)))
 
   (setq-default mode-line-position
-    `((-3 . ,(propertize "%p" 'help-echo help-echo))
+    `((-3 ,(propertize "%p" 'help-echo help-echo))
       (size-indication-mode 
        (8 ,(propertize " of %I" 'help-echo help-echo)))
       (line-number-mode

この影響で mew-summary-setup-mode-line が無効になってしまっています。
添付のパッチで有効になるようです。

-- 
Fusion Communications Corp.
佐々木  寛  sasaki at example.com
-------------- next part --------------
Index: mew-summary.el
===================================================================
RCS file: /cvsmew/mew/mew-summary.el,v
retrieving revision 1.162
diff -u -r1.162 mew-summary.el
--- mew-summary.el	2003/06/18 06:27:27	1.162
+++ mew-summary.el	2003/10/03 02:18:48
@@ -232,7 +232,8 @@
 	  (setq prev mode-line-position))
       (setq mode-line-format (copy-sequence (default-value 'mode-line-format)))
       (setq prev mode-line-format))
-    (setq target (or (rassoc tgt prev) (car (member tgt prev))))
+    (setq target (or (rassoc `(,tgt) prev) (rassoc tgt prev)
+		     (car (member tgt prev))))
     (when target
       (setq pos (- (length prev) (length (member target prev))))
       (setcar (nthcdr pos prev) mew-mode-line-format))