(twittering-lookup-http-start-function): don't use 'booleanp' to work…

… on Emacs21.

ChangeLog

@@ -1,3 +1,8 @@
+2010-03-10  Satoshi Yatagawa  <yata_github@y.hauN.org>
+
+	* twittering-mode.el (twittering-lookup-http-start-function):
+	Don't use `booleanp' to work on Emacs21.
+
 2010-03-09  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-redisplay-status-on-buffer): call

twittering-mode.el

@@ -1589,22 +1589,22 @@ The alist consists of pairs of field-name and field-value, such as
 	  (and (setq config (cdr (assq (car prefer) table)))
 	       (setq check-func (cdr (assq 'check config)))
 	       (cond
-		((booleanp check-func) check-func)
+		((eq t check-func) t)
 		((fboundp check-func) (funcall check-func))
 		(t
 		 (error error-mes check-func (car prefer) "check")
 		 nil))
 	       (or (not twittering-use-ssl)
 		   (and (setq https-func (cdr (assq 'https config)))
 			(cond
-			 ((booleanp https-func) https-func)
+			 ((eq t https-func) t)
 			 ((fboundp https-func) (funcall https-func))
 			 (t
 			  (error error-mes https-func (car prefer) "https")
 			  nil))))
 	       (setq start-func (cdr (assq 'start config)))
 	       (cond
-		;; ((booleanp start-func) start-func) ;; meaningless.
+		;; ((eq t start-func) t) ;; meaningless.
 		((fboundp start-func) t)
 		(t
 		 (error error-mes start-func (car prefer) "start")