(gnus-load): Rename local variable to avoid confusion.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index df1865b2767a1605851bee33f447eeb7c51d314c..afcb487bd1edd59f022869d590ebf39294c61c9f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2007-12-06  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-start.el (gnus-load): Rename local variable to avoid confusion.
+
 2007-12-06  D. Goel  <deego3@gmail.com>
        * gnus-start.el (gnus-load): Fix breakage from last change.
 

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 0b8a9cea67ddb75b00945c71e85ecad9d3fd1386..100c28b9e805e66ec0b7a92226f7b80c8304521a 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2392,11 +2392,11 @@ If FORCE is non-nil, the .newsrc file is read."
            (eval form))
        (error
         (unless (eq (car type) 'end-of-file)
-          (let ((error (format "Error in %s line %d" file
-                               (count-lines (point-min (point))))))
+          (let ((errmsg (format "Error in %s line %d" file
+                                (count-lines (point-min (point))))))
             (ding)
-            (unless (gnus-yes-or-no-p (concat error "; continue? "))
-              (error "%s" error)))))))))
+            (unless (gnus-yes-or-no-p (concat errmsg "; continue? "))
+              (error "%s" errmsg)))))))))
 
 (defun gnus-read-newsrc-el-file (file)
   (let ((ding-file (concat file "d")))