[Mew-dist 17850] mew-use-thread-cursor doesn not work

[Tak Ota]

確か以前は正しく動作していた mew-use-thread-cursor がいつからかうまく
動作しなくなってしまいました。あれこれ原因を追及していたらどうやら以前
は

  (setq mew-fancy-thread-indent-strings ["┣" "┗" "┃" "　"])

と設定していたのが

  (setq mew-fancy-thread-indent-strings [" ┣" " ┗" " ┃" " 　"])

になった（なぜこうしたのか記憶にありません）のが原因でした。特に禁止さ
れている設定でもないので本来正常に動作するべきでしょう。以下に b126 へ
のパッチを添えます。


他の個所でも lambda 前の function (quote) を省略している例を見付けたの
で一緒に横着しました。lambda が subr.el でマクロになったのはいつからな
のでしょう。

*** mew-thread.org.el	Thu May 31 23:57:56 2001
--- mew-thread.el	Wed Jun 20 23:25:25 2001
***************
*** 166,174 ****
        (setq mew-thread-indent-lregex
  	    (concat "[^"
  		    (regexp-quote
! 		     (format "%c%c%c%c"
! 			     (aref idt1 0) (aref idt2 0)
! 			     (aref idt3 0) (aref idt4 0))) "]"))))
     (t
      (let* ((i 0)
  	   (size mew-thread-indent-array-size)
--- 166,180 ----
        (setq mew-thread-indent-lregex
  	    (concat "[^"
  		    (regexp-quote
! 		     (let (l)
! 		       (mapc (lambda (s)
! 			       (mapc (lambda (c)
! 				       (unless (memq c l)
! 					 (setq l (cons c l))))
! 				     (string-to-list s)))
! 			     `(,idt1 ,idt2 ,idt3 ,idt4))
! 		       (apply 'string l)))
! 		    "]"))))
     (t
      (let* ((i 0)
  	   (size mew-thread-indent-array-size)