* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)