From: teranisi <teranisi>
Date: Wed, 12 Sep 2001 15:37:57 +0000 (+0000)
Subject: * wl-mule.el (wl-message-wheel-up): Fixed.
X-Git-Tag: wl-2_7_4~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3a99d7b80d75bf9b6bfdeac617a8e88f8ef394dc;p=elisp%2Fwanderlust.git

* 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.
---

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)