[Erbot-cvs] erbot erbot.el ChangeLog

[D. Goel]

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Branch:         
Changes by:     D. Goel <address@hidden>        06/04/07 16:53:11

Modified files:
        .              : erbot.el ChangeLog 

Log message:
        allow \t even though control character.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbot.el.diff?tr1=1.49&tr2=1.50&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/ChangeLog.diff?tr1=1.39&tr2=1.40&r1=text&r2=text

Patches:
Index: erbot/ChangeLog
diff -u erbot/ChangeLog:1.39 erbot/ChangeLog:1.40
--- erbot/ChangeLog:1.39        Tue Feb 28 14:42:40 2006
+++ erbot/ChangeLog     Fri Apr  7 16:53:11 2006
@@ -1,3 +1,13 @@
+2006-04-07  D Goel  <address@hidden>
+
+       * erbot.el (erbot-safe-make): Exception to control characters:
+       Allow \t
+
+2006-03-21  D Goel  <address@hidden>
+
+       * erbot.el (erbot-safe-make): new function.
+       (erbot-reply): call erbot-safe-make before replying.
+
 2006-02-28  Michael Olson  <address@hidden>
 
        * ChangeLog: Remove use of CVS Revision tag.
Index: erbot/erbot.el
diff -u erbot/erbot.el:1.49 erbot/erbot.el:1.50
--- erbot/erbot.el:1.49 Tue Mar 21 15:47:25 2006
+++ erbot/erbot.el      Fri Apr  7 16:53:11 2006
@@ -1,5 +1,5 @@
 ;;; erbot.el --- Another robot for ERC.
-;; Time-stamp: <2006-03-21 10:44:19 deego>
+;; Time-stamp: <2006-04-07 12:51:41 deego>
 ;; Emacs Lisp Archive entry
 ;; Filename: erbot.el
 ;; Package: erbot
@@ -872,7 +872,10 @@
     (when (string-match "^/" line)
       (unless (string-match "^/me " line)
        (setq ans (concat " " line))))
-    (when (member-if (lambda (a) (< a 32)) rlist)
+    (when (member-if (lambda (a) 
+                      (and (< a 32)
+                           (not (= a 9))))
+                    rlist)
       (setq ans "<control characters>"))
     (when (string-match "[\n\r]" line)
       (setq ans " <newlines> "))