Wanderlust のサブジェクトが同じ記事をマークする elisp

Shimbun のダウンロードに失敗したりなんかして、記事が重複してて、そこのファイルを Namazu でインデクス化すると重複してて気持ち悪い。なので、↓こんな elisp を作ってた。Summery モードで M-x my-wl-summery-uniq とかやってね。

(defun my-wl-summery-uniq ()
  (interactive)
  (let ((p)
        (list ())
        (subject))
    (while (< (point) (point-max))
      (goto-char (- (search-forward "
") 1))
      (setq p (point))
      (setq subject (buffer-substring (+ 1 (search-backward "]")) p))
      (if (member subject list)
          (let (num)
            (beginning-of-line)
            (setq num (buffer-substring (point) (+ (point) 5)))
            (message num)
            (wl-summary-target-mark (string-to-number num)))
        (setq list (cons subject list)))
      (next-line 1)
      )))

こんなののために、睡眠時間を削るのはどうか。

elisp むずいなー。