[mew-dist 21798] Re: Mew 3.0.67

[Hideyuki SHIRAI ( 白井秀行 )]

untabify してみる。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 21796] Re: Mew 3.0.67
Message-ID: <20020927.145833.125105401.kazu at example.com>
Date: Fri, 27 Sep 2002 14:58:33 +0900 (JST)

(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))  <= *2
      (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 のことも考えてあげなくていいんで
> しょうか？

# mode-line-position のこと？だとすると

*2 の時点で prev に mode-line-position が入っているから大丈夫です。
 
# それとも mew-line-position という新たな変数を作らなくて良いの
# か？ということだとすると

問題なく動いているので必要ないです。変更後の mode-line-position
の中身も見ましたが大丈夫。

しかし、prev というか form ですね。

-- 
白井秀行 (mailto:shirai at example.com)