+(defun shimbun-mixi-release-article (shimbun header)
+ (let* ((message-id (shimbun-header-id header))
+ (cache (shimbun-mixi-release-cache-internal shimbun))
+ (article (gethash message-id cache)))
+ (unless (stringp article)
+ (let ((releases (mixi-get-releases)))
+ (while releases
+ (let ((id (mixi-make-message-id (car releases)))
+ (content (mixi-release-content (car releases))))
+ (puthash id content cache)
+ (when (string= id message-id)
+ (setq article content)))
+ (setq releases (cdr releases)))))
+ article))
+