[Mew-dist 14915] mew-refile-guess-by-alist1 question

[sen_ml at example.com]

mew-refile-guess-by-alist まわりの動きを edebug で観察していたのですが、
mew-refile-guess-by-alist1 の中に

(while sublist
  (setq key (car (car sublist)))
  (setq val (cdr (car sublist)))
  (if (and (stringp key) (string-match key header))
	  (cond
	   ((stringp val)
	    (setq ent (mew-refile-guess-by-alist2 key header val)))
	   ((listp val)
	    (setq ent (mew-refile-guess-by-alist1 val)))))
  (if ent
	  (if (listp ent)
	      (setq ret (nconc ent ret) ent nil)
	    (setq ret (cons ent ret))))
  (setq sublist (cdr sublist))))))

というループがあります。

ret の中身を追っていたら、同じ要素が何度も（意味もなく？）ret に cons されて
いく場合がありました。

もしかして、ループの頭か尻尾（？）に

  (setq ent nil)

等があった方が良いのではないでしょうか？