/[erbot]/erbot/erbot.el
ViewVC logotype

Diff of /erbot/erbot.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by mwolson, Wed Oct 12 06:31:58 2005 UTC revision 1.43 by mwolson, Thu Nov 10 04:32:48 2005 UTC
# Line 592  or \"noreply\" Line 592  or \"noreply\"
592      ;;                                      ": try \"cmds\""))      ;;                                      ": try \"cmds\""))
593      ;;                          (concat "no access to command \"" cmd      ;;                          (concat "no access to command \"" cmd
594      ;;                                  "\" for " from ".")))))      ;;                                  "\" for " from ".")))))
     (when (and reply  
                (not (erbot-safep reply)))  
       (setq reply (concat " " reply)))  
595      (erc-log reply)      (erc-log reply)
596    
597    
# Line 617  or \"noreply\" Line 614  or \"noreply\"
614            )            )
615                                
616          (let* ((inhibit-read-only t)          (let* ((inhibit-read-only t)
617                 (lines (split-string reply "\n"))                 (lines (split-string reply "[\n\r]+"))
618                 (multiline-p (< 1 (length lines)))                 (multiline-p (< 1 (length lines)))
619                 p)                 p)
620            (mapc            (mapc
621             (lambda (line)             (lambda (line)
622                 (when (and line
623                            (not (erbot-safep line)))
624                   (setq line (concat " " line)))
625               (goto-char (point-max))               (goto-char (point-max))
626               (setq p (re-search-backward (erc-prompt)))               (setq p (re-search-backward (erc-prompt)))
627               ;;(insert (erc-format-timestamp) "<" me "> ")               ;;(insert (erc-format-timestamp) "<" me "> ")

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26