modify 'twittering-show-minibuffer-length' for both Emacs21 and Emacs23.

ChangeLog

@@ -1,3 +1,11 @@
+2009-12-25  Satoshi Yatagawa  <yata_github@y.hauN.org>
+
+	* twittering-mode.el (twittering-show-minibuffer-length): Replace
+	`minibufferp' by `minibuffer-window-active-p' to work this on
+	Emacs21.
+	(twittering-show-minibuffer-length): Change a message style for
+	Emacs23.
+
 2009-12-25  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-tinyurl-get): Fix typo to resolve

twittering-mode.el

@@ -1374,15 +1374,17 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
 
 (defun twittering-show-minibuffer-length (&optional beg end len)
   "Show the number of charactors in minibuffer."
-  (when (and (functionp 'minibufferp) (minibufferp))
+  (when (minibuffer-window-active-p (selected-window))
     (let* ((status-len (- (buffer-size) (minibuffer-prompt-width)))
 	   (sign-len (length (twittering-sign-string)))
 	   (mes (if (< 0 sign-len)
-		    (format " (%d=%d+%d)"
+		    (format "%d=%d+%d"
 			    (+ status-len sign-len) status-len sign-len)
-		  (format " (%d)" status-len))))
-      (minibuffer-message mes))
-    ))
+		  (format "%d" status-len))))
+      (if (<= 23 emacs-major-version)
+	  (minibuffer-message mes) ; Emacs23 or later
+	(minibuffer-message (concat " (" mes ")")))
+      )))
 
 (defun twittering-setup-minibuffer ()
   (twittering-show-minibuffer-length)