* wl-addrmgr.el (wl-addrmgr-goto-top): Fixed problem when no entry exists.

(wl-addrmgr-draw): Insert empty line when no entry exists.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fb26d5c..0a6d1c8 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-addrmgr.el (wl-addrmgr-goto-top): Fixed problem when no entry
+       exists.
+       (wl-addrmgr-draw): Insert empty line when no entry exists.
+
        * wl-mule.el (wl-message-wheel-up): Fixed.
        (wl-message-wheel-down): Ditto.
 

diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el
index bb2261d..fce7c4a 100644 (file)
--- a/wl/wl-addrmgr.el
+++ b/wl/wl-addrmgr.el
@@ -217,7 +217,9 @@ See info under Wanderlust for full documentation.
   (interactive)
   (goto-char (point-min))
   (forward-line 2)
-  (forward-char 4))
+  (condition-case nil
+      (forward-char 4)
+    (error)))
 
 (defun wl-addrmgr-goto-bottom ()
   (interactive)
@@ -313,6 +315,7 @@ Return nil if no ADDRESS exists."
              " "
              (make-string wl-addrmgr-petname-width ?-)
              " ---------------")
+      (unless wl-addrmgr-list (insert "\n"))
       (dolist (entry (wl-addrmgr-sort-list wl-addrmgr-sort-key
                                           (copy-sequence wl-addrmgr-list)
                                           wl-addrmgr-sort-order))