From: yamaoka <yamaoka>
Date: Tue, 22 Dec 1998 07:55:25 +0000 (+0000)
Subject: * gnus-bbdb.el (toplevel): Define `bbdb-pop-up-elided-display' for avoiding
X-Git-Tag: pgnus-ichikawa-199812221900~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f5e767982ebad2499b626b7ba2c53305b3846bf7;p=elisp%2Fgnus.git-

* gnus-bbdb.el (toplevel): Define `bbdb-pop-up-elided-display' for avoiding
byte-compile warning.

* gnus-art.el (gnus-article-mode-map): Define almost undefined keys to
`gnus-article-read-summary-keys'.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 07442cf..703b17c 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2064,8 +2064,28 @@ If variable `gnus-use-long-file-name' is non-nil, it is
   "\M-^" gnus-article-read-summary-keys
   "\M-g" gnus-article-read-summary-keys)
 
-(substitute-key-definition
- 'undefined 'gnus-article-read-summary-keys gnus-article-mode-map)
+;; Define almost undefined keys to `gnus-article-read-summary-keys'.
+(mapcar
+ (lambda (key)
+   (unless (lookup-key gnus-article-mode-map key)
+     (define-key gnus-article-mode-map key
+       'gnus-article-read-summary-keys)))
+ (delq nil
+       (append
+	(mapcar
+	 (lambda (elt)
+	   (let ((key (car elt)))
+	     (and (> (length key) 0)
+		  (not (eq 'menu-bar (aref key 0)))
+		  (symbolp (lookup-key gnus-summary-mode-map key))
+		  key)))
+	 (accessible-keymaps gnus-summary-mode-map))
+	(let ((c 127)
+	      keys)
+	  (while (>= c 32)
+	    (push (char-to-string c) keys)
+	    (decf c))
+	  keys))))
 
 (defun gnus-article-make-menu-bar ()
   (gnus-turn-off-edit-menu 'article)
diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index e095ae8..6caef29 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -110,6 +110,8 @@ This buffer will be in bbdb-mode, with associated keybindings."
 	(bbdb-display-records (list record))
 	(error "unperson"))))
 
+;; Avoid byte-compile warning.
+(defvar bbdb-pop-up-elided-display)
 
 (defun gnus-bbdb/pop-up-bbdb-buffer (&optional offer-to-create)
   "Make the *BBDB* buffer be displayed along with the GNUS windows,