From 3a99d7b80d75bf9b6bfdeac617a8e88f8ef394dc Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Wed, 12 Sep 2001 15:37:57 +0000
Subject: [PATCH] * wl-mule.el (wl-message-wheel-up): Fixed.
 (wl-message-wheel-down): Ditto.

* acap.el (acap-read-passphrase): Use `ange-ftp-read-passwd'
if `read-passwd' is not defined.
---
 elmo/ChangeLog |    5 +++++
 elmo/acap.el   |    4 +++-
 wl/ChangeLog   |    5 +++++
 wl/wl-mule.el  |    6 ++++--
 4 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index deaab95..65434aa 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* acap.el (acap-read-passphrase): Use `ange-ftp-read-passwd'
+	if `read-passwd' is not defined.
+
 2001-09-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-pop3.el (elmo-pop3-list-location): Sort locations
diff --git a/elmo/acap.el b/elmo/acap.el
index 54a87ba..497ce95 100644
--- a/elmo/acap.el
+++ b/elmo/acap.el
@@ -169,7 +169,9 @@ Valid states are `closed', `initial', `auth'.")
 	(if (functionp 'read-passwd)
 	    (read-passwd prompt)
 	  (if (load "passwd" t)
-	      (read-passwd prompt))))))
+	      (read-passwd prompt)
+	    (autoload 'ange-ftp-read-passwd "ange-ftp")
+	    (ange-ftp-read-passwd prompt))))))
 
 ;;; Debug.
 (defvar acap-debug t)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4e6ee9d..fb26d5c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mule.el (wl-message-wheel-up): Fixed.
+	(wl-message-wheel-down): Ditto.
+
 2001-09-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-draft.el (wl-draft-config-exec-sub): Fixed problem when
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 080bb8f..7b14bd1 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -113,7 +113,8 @@ Special commands:
 
 (defun wl-message-wheel-up (event)
   (interactive "e")
-  (if (string-match wl-message-buf-name (buffer-name))
+  (if (string-match (regexp-quote wl-message-buffer-cache-name)
+		    (regexp-quote (buffer-name)))
       (wl-message-next-page)
     (let ((cur-buf (current-buffer))
 	  proceed)
@@ -128,7 +129,8 @@ Special commands:
 
 (defun wl-message-wheel-down (event)
   (interactive "e")
-  (if (string-match wl-message-buf-name (buffer-name))
+  (if (string-match (regexp-quote wl-message-buffer-cache-name)
+		    (regexp-quote (buffer-name)))
       (wl-message-prev-page)
     (let ((cur-buf (current-buffer))
 	  proceed)
-- 
1.7.10.4