(twittering-http-default-sentinel): call 'twittering-switch-timeline'…

… and 'twittering-release-process' only when 'proc' is non-nil.
hayamiz · Mar 6, 2010 · 1057e90 · 1057e90
1 parent 412a1dd
commit 1057e90
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -27,6 +27,10 @@
 	(twittering-update-jojo): Likewise.
 	(twittering-native-retweet): Likewise.
 
+	* twittering-mode.el (twittering-http-default-sentinel): Call
+	`twittering-switch-timeline' and `twittering-release-process' only
+	when `proc' is non-nil.
+
 2010-03-03  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-toggle-reverse-mode): invoke

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -2889,8 +2889,9 @@ variable `twittering-status-format'."
 		 (word (and is-search-spec (cadr spec)))
 		 (proc (twittering-get-tweets host method noninteractive
 					      id since_id word)))
-	    (twittering-switch-timeline spec-string)
-	    (twittering-register-process proc spec)))))
+	    (when proc
+	      (twittering-switch-timeline spec-string)
+	      (twittering-register-process proc spec))))))
      (t
       (let ((type (car spec)))
 	(error "%s has not been supported yet" type))))))