From: bg66 <bg66>
Date: Wed, 26 Sep 2007 12:21:25 +0000 (+0000)
Subject: (shimbun-get-headers): Use `shimbun-header-index-pages'.
X-Git-Tag: mixi-el-1_0_0~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ea7fbcf0f2640f117515ef1695f68135e3ebc591;p=elisp%2Fmixi.git

(shimbun-get-headers): Use `shimbun-header-index-pages'.
---

diff --git a/ChangeLog b/ChangeLog
index 5d844dc..7c7bc0d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-26  OHASHI Akira  <bg66@koka-in.org>
+
+	* sb-mixi.el (shimbun-get-headers): Use `shimbun-header-index-pages'.
+
 2007-09-25  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-topic-content-regexp): Fix regexp.
diff --git a/mixi.el b/mixi.el
index 0ed517d..0f403de 100644
--- a/mixi.el
+++ b/mixi.el
@@ -1,6 +1,6 @@
 ;; mixi.el --- API libraries for accessing to mixi -*- coding: euc-jp -*-
 
-;; Copyright (C) 2005,2006,2007 OHASHI Akira
+;; Copyright (C) 2005, 2006, 2007 OHASHI Akira
 
 ;; Author: OHASHI Akira <bg66@koka-in.org>
 ;; Keywords: hypermedia
diff --git a/sb-mixi.el b/sb-mixi.el
index fa07016..6aaff8d 100644
--- a/sb-mixi.el
+++ b/sb-mixi.el
@@ -1,6 +1,6 @@
 ;;; sb-mixi.el --- shimbun backend for mixi
 
-;; Copyright (C) 2006 OHASHI Akira
+;; Copyright (C) 2006, 2007 OHASHI Akira
 
 ;; Author: OHASHI Akira <bg66@koka-in.org>
 ;; Keywords: news
@@ -192,7 +192,9 @@ of mixi object."
 					 &optional range)
   (let ((url-or-function (cdr (assoc (shimbun-current-group-internal shimbun)
 				     (shimbun-mixi-group-alist))))
-	(range (when (integerp range) (* range shimbun-mixi-page-articles))))
+	(pages (shimbun-header-index-pages range)))
+    (when (integerp pages)
+      (setq range (* pages shimbun-mixi-page-articles)))
     (shimbun-sort-headers
      (shimbun-mixi-get-headers shimbun
 			       (mixi-make-objects url-or-function range)