[Mew-dist 15657] Re: b92

[Kazu Yamamoto ( 山本和彦 )]

ちゃんと説明せずにいました。ごめんなさい。

From: NINOMIYA Hideyuki <nin at example.com>
Subject: [Mew-dist 15628] Re: b92

>     (if mew-summary-buffer-process
>         ()
>       (let ((left (1- (mew-count-lines (point) (point-max)))))
> +       (if (and (mew-thread-p) mew-use-thread-separator)
> + 	  (let ((spl (concat "\n" mew-thread-separator "\n")))
> + 	    (save-excursion
> + 	      (while (search-forward spl nil t) (setq left (1- left))))))
>         (if (and (mew-decode-syntax-p)
>   	       (equal (mew-decode-syntax-buffer) (current-buffer)))
>   	  (setq left (- left (mew-count-lines (mew-decode-syntax-begin)

理論的には、あるリージョンを 1 回なめるだけで済む仕事に対し、2 回なめ
る実装になっているので、採用していません。1 回で済むようになれば、取り
込みます。

>   (defsubst mew-thread-insert-separator ()
> !   (if (and mew-use-thread-separator
> ! 	   (not (= (line-beginning-position) 1)))
> !       (insert mew-thread-separator "\n")))

line-beginning-position って、XEmacs にはないように思います。

そもそも、この意図がよく分りません。第1行なら、セパレータを表示しない
ということですか？ それなら、

	(save-excursion (beginning-of-line) (= (point) 1)) 

ぐらいで、よさそうですけど。

--かず