MewのSpotlight検索でto=を使えるようにする

Mac で Mew を使うとき Spotlight を使えば便利なはずなのですが，なぜか to= だけ使えない．
なんでだろう、と思ってソースを読むと確かに to= の項目だけ無い(Mew5.2)．

以下 mew-pick.el

(defun mew-pick-pattern-spotlight-kyvl  (kyvl)

  (let ((op (nth 0 kyvl))

        (ky (nth 1 kyvl))

        (vl (nth 2 kyvl))

        kmd)

    (cond

     ((string= ky "subject")

      (setq kmd "kMDItemTitle"))

     ((string= ky "from")

      (setq kmd "kMDItemAuthors"))

     ((string= ky "body")

      (setq kmd "kMDItemTextContent"))

     (t

      (error "'%s' is not supported" ky)))

以下略...

というか，subject，from，body しか使えないじゃないか．

mdls で mew で保存されたファイルを確認してみると kMDItemRecipients という項目が to に当たるらしい．
ということで mew-pick.el に以下のように追加してみました．

(defun mew-pick-pattern-spotlight-kyvl  (kyvl)

  (let ((op (nth 0 kyvl))

        (ky (nth 1 kyvl))

        (vl (nth 2 kyvl))

        kmd)

    (cond

     ((string= ky "subject")

      (setq kmd "kMDItemTitle"))

     ((string= ky "from")

      (setq kmd "kMDItemAuthors"))

     ((string= ky "to")

      (setq kmd "kMDItemRecipients"))

     ((string= ky "body")

      (setq kmd "kMDItemTextContent"))

     (t

      (error "'%s' is not supported" ky)))

以下略...

すると見事に検索できます．
こんなことで出来るようになるくらいだから何か間違ってるのかもしれません．
まねするのは自己責任で．