05/05/18 10:02:15 .net
(require 'shimbun)
(require 'sb-rss)
(require 'md5)
(luna-define-class shimbun-rfc (shimbun-rss) ())
(defvar shimbun-rfc-url "URLﾘﾝｸ(rfc.x42.com)")
(defvar shimbun-rfc-groups '("latest"))
(defvar shimbun-rfc-from-address "nobody@rfc.x42.com")
(defvar shimbun-rfc-content-start "<BODY[^<>]*>")
(defvar shimbun-rfc-content-end "</BODY>")
(luna-define-method shimbun-index-url ((shimbun shimbun-rfc))
"URLﾘﾝｸ(rfc.x42.com)")
(luna-define-method shimbun-rss-build-message-id ((shimbun shimbun-rfc)
url date)
(concat "<" (md5 (concat url)) "@rfc.x42.com>"))
(provide 'sb-rfc)
こんなんで良いの？