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

[Tak Ota]

Summary buffer のモードラインだけ (display-time) の日時情報や mew-biff 
の情報が表示されなくて不便に思っています。mew-summary.el の以下の部分
に原因があるのは分ったのですが mew-mode-line-magic-number の意図が分ら
ず悩んだ末に諦めました。想像なのですが list の一要素を置き換えるつもり
が実は後ろを全部切り捨ててしまっているような気がします。

mew-mode-line-magic-number には doc string を付けておいた方がいいと思
います。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Modeline
;;;

(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 "*")
		"-%-"))))
  (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))))