From: ueno <ueno>
Date: Thu, 18 Nov 2004 03:34:31 +0000 (+0000)
Subject: Simplified.
X-Git-Tag: riece-1_0_6~45
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=81ff4364cc93854537415287c71bacf469f28e1c;p=elisp%2Friece.git

Simplified.
---

diff --git a/lisp/riece.el b/lisp/riece.el
index 524f2d8..5b70a34 100644
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -578,25 +578,24 @@ are familiar with the debugger, to get a lisp back-trace.")
 	     (riece-command-list-addons)
 	     (search-forward "\n\n")
 	     (buffer-substring (point-min) (point)))))
-	(when riece-debug
-	  (insert "Recent messages from servers:\n"
-		  "--------------------------")
-	  (let ((pointer riece-server-process-alist))
-	    (while pointer
-	      (insert "\n- \"" (car (car pointer)) "\", \n"
-		      (format "%S" (if (equal (car (car pointer)) "")
-				       riece-server
-				     (cdr (assoc (car (car pointer))
-						 riece-server-alist))))
-		      "\n"
-		      (if (process-live-p (cdr (car pointer)))
-			  (save-excursion
-			    (set-buffer (process-buffer (cdr (car pointer))))
-			    (goto-char (point-max))
-			    (beginning-of-line -20)
-			    (buffer-substring (point) (point-max)))
-			"(closed server)"))
-	      (setq pointer (cdr pointer)))))
+	(insert "Recent messages from servers:\n"
+		"--------------------------")
+	(let ((pointer riece-server-process-alist))
+	  (while pointer
+	    (insert "\n- \"" (car (car pointer)) "\", \n"
+		    (format "%S" (if (equal (car (car pointer)) "")
+				     riece-server
+				   (cdr (assoc (car (car pointer))
+					       riece-server-alist))))
+		    "\n"
+		    (if (process-live-p (cdr (car pointer)))
+			(save-excursion
+			  (set-buffer (process-buffer (cdr (car pointer))))
+			  (goto-char (point-max))
+			  (beginning-of-line -20)
+			  (buffer-substring (point) (point-max)))
+		      "(closed server)"))
+	    (setq pointer (cdr pointer))))
 	;; Insert recent keystrokes.
 	(insert "\n\n"
 	"Recent keystrokes:\n-----------------\n\n")