[mew-dist 21796] Re: Mew 3.0.67

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 21777] Re: Mew 3.0.67

> 確認も遅くなってごめんなさい。手持ちの Emacs を総動員して動作を
> 確認しました。ありがとうございます。

確認ありがとうございます。

> (defun mew-summary-setup-mode-line ()
>   (let ((tgt mew-mode-line-target)
> 	target prev pos)
>     (if (boundp 'mode-line-position)
> 	(progn
> 	  (make-local-variable 'mode-line-position)
> 	  (setq mode-line-position (copy-sequence (default-value 'mode-line-position)))
> 	  (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))))
>     (when target
>       (setq pos (- (length prev) (length (member target prev))))
>       (setcar (nthcdr pos prev) mew-mode-line-format)) *1
>     (or (assq 'mew-summary-buffer-process mode-line-process)
> 	(setq mode-line-process
> 	      (cons '(mew-summary-buffer-process
> 		      mew-summary-buffer-process-status)
> 		    mode-line-process)))))

*1 のところですが、mew-line-position のことも考えてあげなくていいんで
しょうか？

--かず