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

diff --git a/ChangeLog b/ChangeLog
index 5d844dc..7c7bc0d 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)