From: teranisi <teranisi>
Date: Wed, 12 Sep 2001 15:44:41 +0000 (+0000)
Subject: * wl-addrmgr.el (wl-addrmgr-goto-top): Fixed problem when no entry exists.
X-Git-Tag: wl-2_7_4~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d3812dfd0d2827acb1b97134508bb0c541fd07c;p=elisp%2Fwanderlust.git

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