From: yoichi <yoichi>
Date: Wed, 26 May 2004 14:09:10 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-cursor-move-surface): Avoid error on
X-Git-Tag: wl-2_11_30~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=579b3df95fc0f2a14c20495c258d1e89a9e892eb;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-cursor-move-surface): Avoid error on
the last line of summary in unplugged mode.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ac23dc7..84bebd3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-26  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-cursor-move-surface): Avoid error on
+	the last line of summary in unplugged mode.
+
 2004-05-26  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-vars.el (wl-refile-rule-alist): Doc fix.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 8f0e651..53de457 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4199,9 +4199,10 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	(forward-line -1))
       (setq skip (or (string-match skip-tmark-regexp
 				   (wl-summary-temp-mark))
-		     (not (elmo-message-accessible-p
-			   wl-summary-buffer-elmo-folder
-			   (wl-summary-message-number))))))
+		     (not (and (wl-summary-message-number)
+			       (elmo-message-accessible-p
+				wl-summary-buffer-elmo-folder
+				(wl-summary-message-number)))))))
     (if (if downward (eobp) (and (bobp) skip)) (setq goto-next t))
     (if (or (eobp) (and (bobp) skip))
 	(goto-char start))