Changes committed gnus/lisp (gnus-art.el)

Modified: gnus-art.el

(gnus-article-describe-bindings): Fix previous commit.


Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.263 gnus/lisp/gnus-art.el:7.264
--- gnus-art.el:7.263	Mon Mar  3 08:27:20 2008
+++ gnus-art.el	Mon Mar  3 09:04:02 2008
@@ -6405,15 +6405,16 @@
 	  (setq key (pop sumkeys))
 	  (cond ((and (vectorp key) (= (length key) 1)
 		      (consp (setq def (aref key 0)))
-		      (numberp (car def)) (numberp (cdr def))
-		      (< (max (car def) (cdr def)) 128))
-		 (setq sumkeys (append (mapcar
-					#'vector
-					(nreverse (gnus-uncompress-range def)))
-				       sumkeys)))
-		((and (setq def (key-binding key))
-		      (not (eq def 'undefined)))
-		 (define-key keymap key def)))))
+		      (numberp (car def)) (numberp (cdr def)))
+		 (when (< (max (car def) (cdr def)) 128)
+		   (setq sumkeys
+			 (append (mapcar
+				  #'vector
+				  (nreverse (gnus-uncompress-range def)))
+				 sumkeys))))
+		((setq def (key-binding key))
+		 (unless (eq def 'undefined)
+		   (define-key keymap key def))))))
       (when (boundp 'gnus-agent-summary-mode)
 	(setq agent gnus-agent-summary-mode))
       (when (boundp 'gnus-draft-mode)