[Mew-dist 15189] Re: thread

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
Message-Id: <20001129.002533.304095360.jado at example.com>

> > mew-summary-thread-region() 内で
> > 
> > 	   (if (not (looking-at mew-regex-thread))
> > 	       (forward-line)
> > 	     (setq my-id (mew-match 1))
> > 	     (if (string= my-id "")
> > 		 (setq my-id (make-temp-name "foo")))
> >  とか

> ちなみに、(make-temp-name "foo") ではあんまりなので、せめて、
> (make-temp-name "null") とか (make-temp-name "dummy") とかの方がいいか
> な。単にキモチの問題ですが。

なんとなく、パッチにしてみました。こんなもんでしょうか??
--
田原 / jado at example.com

*** mew-thread.el.orig	Mon Nov 27 22:03:05 2000
--- mew-thread.el	Wed Nov 29 00:36:17 2000
***************
*** 138,144 ****
  	   (setq start (point))
  	   (if (not (looking-at mew-regex-thread))
  	       (forward-line)
! 	     (setq my-id (mew-match 1))
  	     (setq prnt-id (mew-match 2))
  	     (forward-line)
  	     (setq me (mew-thread-make-entry))
--- 138,147 ----
  	   (setq start (point))
  	   (if (not (looking-at mew-regex-thread))
  	       (forward-line)
! 	     (let ((id (mew-match 1)))
! 	       (if (string= id "")
! 		   (setq my-id (make-temp-name "dummy"))
! 		 (setq my-id id)))
  	     (setq prnt-id (mew-match 2))
  	     (forward-line)
  	     (setq me (mew-thread-make-entry))