(gnus-clear-system, gnus-read-newsrc-file): Make

sure to write byte-compiled versions of gnus-*-format-alist to
.newsrc.eld.  From Simon Josefsson.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8eea9d1..65ce955 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-06-17  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-start.el (gnus-clear-system, gnus-read-newsrc-file): Make
+       sure to write byte-compiled versions of gnus-*-format-alist to
+       .newsrc.eld.  From Simon Josefsson.
+
 2002-06-16  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-agent.el (gnus-agent-read-servers) 

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e7d9520..8d02f24 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -611,7 +611,7 @@ the first newsgroup."
 (defun gnus-clear-system ()
   "Clear all variables and buffers."
   ;; Clear Gnus variables.
-  (let ((variables (delete 'gnus-format-specs gnus-variable-list)))
+  (let ((variables (remove 'gnus-format-specs gnus-variable-list)))
     (while variables
       (set (car variables) nil)
       (setq variables (cdr variables))))
@@ -2021,7 +2021,7 @@ newsgroup."
   "Read startup file.
 If FORCE is non-nil, the .newsrc file is read."
   ;; Reset variables that might be defined in the .newsrc.eld file.
-  (let ((variables (delete 'gnus-format-specs gnus-variable-list)))
+  (let ((variables (remove 'gnus-format-specs gnus-variable-list)))
     (while variables
       (set (car variables) nil)
       (setq variables (cdr variables))))