From 98413a904eff7297a4770d8d87ea6d8282c9faa0 Mon Sep 17 00:00:00 2001 From: bg66 Date: Sat, 21 Oct 2006 14:49:11 +0000 Subject: [PATCH] * mixi.el (mixi-friend-max-pages): Abolish; Move to toplevel defvar. (mixi-favorite-max-pages): Ditto. (mixi-log-max-pages): Ditto. (mixi-diary-max-pages): Ditto. (mixi-new-diary-max-pages): Ditto. (mixi-community-max-pages): Ditto. (mixi-topic-max-pages): Ditto. (mixi-new-topic-max-pages): Ditto. (mixi-new-community-max-pages): Ditto. --- ChangeLog | 12 ++++++++++++ mixi.el | 63 +++++++++---------------------------------------------------- 2 files changed, 21 insertions(+), 54 deletions(-) diff --git a/ChangeLog b/ChangeLog index e08e1a6..4f3c772 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,15 @@ +2006-10-21 OHASHI Akira + + * mixi.el (mixi-friend-max-pages): Abolish; Move to toplevel defvar. + (mixi-favorite-max-pages): Ditto. + (mixi-log-max-pages): Ditto. + (mixi-diary-max-pages): Ditto. + (mixi-new-diary-max-pages): Ditto. + (mixi-community-max-pages): Ditto. + (mixi-topic-max-pages): Ditto. + (mixi-new-topic-max-pages): Ditto. + (mixi-new-community-max-pages): Ditto. + 2006-10-20 OHASHI Akira * mixi.el (mixi): Use `mixi' instead of `Mixi'. diff --git a/mixi.el b/mixi.el index 49f6616..6051d7d 100644 --- a/mixi.el +++ b/mixi.el @@ -155,60 +155,6 @@ Increase this value when unexpected error frequently occurs." :type 'directory :group 'mixi) -(defcustom mixi-friend-max-pages 10 - "*Number of pages which is retrieved for friends." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-favorite-max-pages nil - "*Number of pages which is retrieved for favorites." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-log-max-pages 1 - "*Number of pages which is retrieved for logs." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-diary-max-pages nil - "*Number of pages which is retrieved for diaries." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-new-diary-max-pages nil - "*Number of pages which is retrieved for new diaries." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-community-max-pages nil - "*Number of pages which is retrieved for communities." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-topic-max-pages nil - "*Number of pages which is retrieved for topics." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-new-comment-max-pages nil - "*Number of pages which is retrieved for new comments." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - -(defcustom mixi-new-topic-max-pages nil - "*Number of pages which is retrieved for new topics." - :type '(choice (integer :tag "Number of pages") - (const :tag "Infinity" nil)) - :group 'mixi) - (defcustom mixi-verbose t "*Flag controls whether `mixi' should be verbose. If it is non-ni, the `w3m-verbose' variable will be bound to nil @@ -487,6 +433,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-friend-list-nick-regexp "\\(.+\\)¤µ¤ó([0-9]+)
") +(defvar mixi-friend-max-pages 10) (defun mixi-get-friends (&optional friend) "Get friends of FRIEND." (unless (or (null friend) (mixi-friend-p friend)) @@ -515,6 +462,7 @@ while `mixi' is waiting for a server's response." "̾  Á° \\(.+\\)") +(defvar mixi-favorite-max-pages nil) (defun mixi-get-favorites () "Get favorites." (let ((ids (mixi-get-matched-items (mixi-favorite-list-page) @@ -557,6 +505,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-log-list-regexp "\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\) \\(.+\\)
") +(defvar mixi-log-max-pages 1) (defun mixi-get-logs () "Get logs." (let ((items (mixi-get-matched-items (mixi-log-list-page) @@ -693,6 +642,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-diary-list-regexp "") +(defvar mixi-diary-max-pages nil) (defun mixi-get-diaries (&optional friend) "Get diaries of FRIEND." (unless (or (null friend) (mixi-friend-p friend)) @@ -710,6 +660,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-new-diary-list-regexp "") +(defvar mixi-new-diary-max-pages nil) (defun mixi-get-new-diaries () "Get new diaries." (let ((items (mixi-get-matched-items (mixi-new-diary-list-page) @@ -878,6 +829,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-community-list-name-regexp "\\(.+\\)([0-9]+)") +(defvar mixi-community-max-pages nil) (defun mixi-get-communities (&optional friend) "Get communities of FRIEND." (unless (or (null friend) (mixi-friend-p friend)) @@ -1035,6 +987,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-topic-list-regexp "") +(defvar mixi-new-topic-max-pages nil) (defun mixi-get-new-topics () "Get new topics." (let ((items (mixi-get-matched-items (mixi-new-topic-list-page) @@ -1189,6 +1143,7 @@ while `mixi' is waiting for a server's response." (defconst mixi-new-comment-list-regexp "") +(defvar mixi-new-community-max-pages nil) (defun mixi-get-new-comments () "Get new comments." (let ((items (mixi-get-matched-items (mixi-new-comment-list-page) -- 1.7.10.4