Inactive processes are automatically removed from the alist.

* twittering-mode.el
(twittering-find-processes-for-timeline-spec): new function for
finding processes retrieving a specific timeline spec.
(twittering-remove-inactive-processes): new function for removing
inactive processes from `twittering-process-info-alist'.
(twittering-process-active-p): new function for checking whether
the processes for a specific timeline spec are active or not.
(twittering-get-and-render-timeline): use
`twittering-process-active-p' instead of referring
`twittering-process-info-alist' directly.

ChangeLog

@@ -1,3 +1,16 @@
+2010-02-12  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el
+	(twittering-find-processes-for-timeline-spec): new function for
+	finding processes retrieving a specific timeline spec.
+	(twittering-remove-inactive-processes): new function for removing
+	inactive processes from `twittering-process-info-alist'.
+	(twittering-process-active-p): new function for checking whether
+	the processes for a specific timeline spec are active or not.
+	(twittering-get-and-render-timeline): use
+	`twittering-process-active-p' instead of referring
+	`twittering-process-info-alist' directly.
+
 2010-02-11  Tadashi MATSUO  <tad@mymail.twin.jp>
 
 	* twittering-mode.el (twittering-fill-string): load "kinsoku.el"

twittering-mode.el

@@ -890,6 +890,37 @@ Return nil if SPEC-STR is invalid as a timeline spec."
 	(elt entry 1)
       nil)))
 
+(defun twittering-find-processes-for-timeline-spec (spec)
+  (apply 'append
+	 (mapcar
+	  (lambda (pair)
+	    (let* ((proc (car pair))
+		   (spec-info (cadr pair)))
+	      (if (equal spec-info spec)
+		  `(,proc)
+		nil)))
+	  twittering-process-info-alist)))
+
+(defun twittering-remove-inactive-processes ()
+  (let ((inactive-statuses '(nil closed failed)))
+    (setq twittering-process-info-alist
+	  (apply 'append
+		 (mapcar
+		  (lambda (pair)
+		    (let* ((proc (car pair))
+			   (info (cdr pair))
+			   (status (process-status proc)))
+		      (if (memq status inactive-statuses)
+			  nil
+			`((,proc ,@info)))))
+		  twittering-process-info-alist)))))
+
+(defun twittering-process-active-p (&optional spec)
+  (twittering-remove-inactive-processes)
+  (if spec
+      (twittering-find-processes-for-timeline-spec spec)
+    twittering-process-info-alist))
+
 ;;;
 ;;; Debug mode
 ;;;
@@ -2435,7 +2466,7 @@ variable `twittering-status-format'."
       (error "\"%s\" is invalid as a timeline spec"
 	     (or spec-string original-spec)))
     (cond
-     ((and noninteractive twittering-process-info-alist)
+     ((and noninteractive (twittering-process-active-p))
       ;; ignore non-interactive request if a process is waiting for responses.
       t)
      ((twittering-timeline-spec-primary-p spec)