From: kaoru <kaoru>
Date: Fri, 23 Nov 2001 04:14:04 +0000 (+0000)
Subject: * wl-e21.el: Removed kludge for Emacs 21 prerelease versions.
X-Git-Tag: wl-2_8-root~122
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b62607165b1c256c1c4cda2483576c5f04ecb624;p=elisp%2Fwanderlust.git

* wl-e21.el: Removed kludge for Emacs 21 prerelease versions.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f97f8c8..9e57fe5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-e21.el: Removed kludge for Emacs 21 prerelease versions.
+
 2001-11-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-vars.el (wl-message-buffer-prefetch-folder-type-list): New
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 4a40e12..a27c93f 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -72,18 +72,6 @@
   (defvar-maybe wl-folder-mode-map (make-sparse-keymap))
   (defvar-maybe wl-draft-mode-map (make-sparse-keymap)))
 
-;; For Emacs 21.0.104 or earlier
-(defun-maybe make-mode-line-mouse-map (mouse function) "\
-Return a keymap with single entry for mouse key MOUSE on the mode line.
-MOUSE is defined to run function FUNCTION with no args in the buffer
-corresponding to the mode line clicked."
-  (let ((map (make-sparse-keymap)))
-    (define-key map (vector 'mode-line mouse) function)
-    map))
-
-;; `display-images-p' has not been available prior to Emacs 21.0.105.
-(defalias-maybe 'display-images-p 'display-graphic-p)
-
 (add-hook 'wl-folder-mode-hook 'wl-setup-folder)
 (add-hook 'wl-folder-mode-hook 'wl-folder-init-icons)