From 755af8185c00566167a370fad0a3bc615ecd620c Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Tue, 28 Dec 1999 02:57:06 +0000
Subject: [PATCH] * gnus.el (gnus-revision-number): Increment to 14. *
 dgnushack.el (mapcon): Bind the 1st arg `fn' as a temp var.

---
 lisp/dgnushack.el |    6 ++++--
 lisp/gnus.el      |    2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 2b21985..4d36b57 100644
--- 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
--- 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"
-- 
1.7.10.4