* gnus.el (gnus-revision-number): Increment to 14.

* dgnushack.el (mapcon): Bind the 1st arg `fn' as a temp var.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 2b21985..4d36b57 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -97,7 +97,8 @@
             (subrp (symbol-function 'mapcon)))
        form
       (if rest
-         `(let (res
+         `(let ((fn ,fn)
+                res
                 (args (list ,seq ,@rest))
                 p)
             (while (not (memq nil args))
@@ -107,7 +108,8 @@
                 (setcar p (cdr (pop p)))
                 ))
             (apply (function nconc) (nreverse res)))
-       `(let (res
+       `(let ((fn ,fn)
+              res
               (arg ,seq))
           (while arg
             (push (funcall ,fn arg) res)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0d553fe..6ffa141 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -268,7 +268,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.14.0"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "13"
+(defconst gnus-revision-number "14"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "5.8.2"