[Erbot-cvs] Changes to erbot/erbot.el

[Michael W . Olson]

Index: erbot/erbot.el
diff -u erbot/erbot.el:1.42 erbot/erbot.el:1.43
--- erbot/erbot.el:1.42 Wed Oct 12 06:31:58 2005
+++ erbot/erbot.el      Thu Nov 10 04:32:48 2005
@@ -592,9 +592,6 @@
     ;;                                     ": try \"cmds\""))
     ;;                         (concat "no access to command \"" cmd
     ;;                                 "\" for " from ".")))))
-    (when (and reply
-              (not (erbot-safep reply)))
-      (setq reply (concat " " reply)))
     (erc-log reply)
 
 
@@ -617,11 +614,14 @@
          )
               
        (let* ((inhibit-read-only t)
-              (lines (split-string reply "\n"))
+              (lines (split-string reply "[\n\r]+"))
               (multiline-p (< 1 (length lines)))
               p)
          (mapc
           (lambda (line)
+            (when (and line
+                       (not (erbot-safep line)))
+              (setq line (concat " " line)))
             (goto-char (point-max))
             (setq p (re-search-backward (erc-prompt)))
             ;;(insert (erc-format-timestamp) "<" me "> ")