[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:01870] Re: guess location.
乃村です.
On Thu, 30 Oct 2003 18:22:36 +0900 (JST),
Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx> said:
> (setq mhc-guess-location-list '("東京ドーム"
> "江戸川河川敷"
> "荒川河川敷"
> "ホームグランド"))
>
> (defun mhc-guess-location-setup ()
> (when mhc-guess-location-list
> (let ((regex (regexp-opt mhc-guess-location-list)))
> (unless (assoc regex mhc-guess-location-regexp-list)
> (setq mhc-guess-location-regexp-list
> (cons `(,regex mhc-guess/make-location-from-string 0)
> mhc-guess-location-regexp-list))))))
>
> (add-hook 'mhc-setup-hook 'mhc-guess-location-setup)
>
> なことを仕込めばよいと。
>
> # 異論が無ければ(そのうち ^^;;;)やっておきます。
異論ありません.
実は,既存アーティクルの X-SC-Location: から
mhc-guess-location-list 相当を作ろうと思っていたところでした.
でも重たくなりそうだし,効果の程も疑問ですね.
--
nom