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

Modified: ChangeLog gnus-art.el

(gnus-article-describe-bindings): Work for the version of `where-is-internal'
 that returns a range of key sequences.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1774 gnus/lisp/ChangeLog:7.1775
--- ChangeLog:7.1774	Sun Mar  2 18:43:01 2008
+++ ChangeLog	Mon Mar  3 08:27:20 2008
@@ -1,3 +1,8 @@
+2008-03-03  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-art.el (gnus-article-describe-bindings): Work for the version of
+	`where-is-internal' that returns a range of key sequences.
+
 2008-03-02  Reiner Steib  <[email protected]>
 
 	* mml2015.el (mml2015-extract-cleartext-signature): Explain that it
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.262 gnus/lisp/gnus-art.el:7.263
--- gnus-art.el:7.262	Sat Mar  1 02:48:13 2008
+++ gnus-art.el	Mon Mar  3 08:27:20 2008
@@ -6400,10 +6400,20 @@
     (define-key map [t] nil)
     (with-current-buffer gnus-article-current-summary
       (set-keymap-parent map (key-binding "S"))
-      (let (def gnus-pick-mode)
-	(dolist (key sumkeys)
-	  (when (setq def (key-binding key))
-	    (define-key keymap key def))))
+      (let (key def gnus-pick-mode)
+	(while sumkeys
+	  (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)))))
       (when (boundp 'gnus-agent-summary-mode)
 	(setq agent gnus-agent-summary-mode))
       (when (boundp 'gnus-draft-mode)