[minor security] romove all text properties for extra safety, esp. at…

… source

ChangeLog

@@ -1,10 +1,26 @@
+2005-09-02  D Goel  <deego@gnufans.org>
+
+	* .*.el: Get rid of all string properties everywhere, especially
+	right at the source, for extra security. 
+
+	* erbc.el (fsi-read): minor: read-> read-from-string for more
+	safety 
+	(erbn-read): new
+	(fsi-read-from-string): new
+	(fsi-describe-variable): use erbn-read for safety
+	(fsi-require): ditto
+
+	* erbbdb.el (erbbdb-add): ditto
+
 2005-08-31  D Goel  <deego@gnufans.org>
 
 	* erbot.el (erbot-nickserv-p): Add auto-identify code, also enable
 	by default, see doc for erbot-nickserv-p for how to make changes
 	to your bot's .emacs.  This is now required by freenode for
 	privmsgs to work.
-
+	(erbot-nickserv-p): Unde default behavior change.  The default
+	behavior of erbot remains as xbefore: to *not*idontify by
+	default. 
 
 2005-08-28  Michael Olson  <mwolson@gnu.org>
 

erball.el

@@ -1,5 +1,5 @@
 ;;; erball.el --- Functions on all files. 
-;; Time-stamp: <2005-08-31 10:54:32 deego>
+;; Time-stamp: <2005-08-31 17:25:50 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -44,9 +44,9 @@ A trailing backslash is required.")
 (defvar erball-compiling-p
   (if (erball-assoc-string "--compile-erbot" command-line-args-left)
       (progn
-        (message (concat "\nCompiling source in "
-                         (file-name-nondirectory (expand-file-name "."))
-                         " ...\n"))
+        (message "%s" (concat "\nCompiling source in "
+			      (file-name-nondirectory (expand-file-name "."))
+			      " ...\n"))
         (setq command-line-args-left
               (delete "--compile-erbot" command-line-args-left))
         t)

erbbdb.el

@@ -1,5 +1,5 @@
 ;;; erbbdb.el --- 
-;; Time-stamp: <2005-08-11 20:31:33 deego>
+;; Time-stamp: <2005-09-02 14:47:53 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbbdb.el
@@ -191,7 +191,7 @@ If no record exists, then a nil is returned.
     ;; should almost always be the case.. except when nil..
     (if (stringp oldnotes)
 	(setq oldnotes 
-	      (ignore-errors (read oldnotes))))
+	      (ignore-errors (erbn-read oldnotes))))
     (setq newnotes (format "%S" (append oldnotes (list note))))
     (erbbdb-remove-not-really name)
     (erbbdb-change name newnotes)))