From 579b3df95fc0f2a14c20495c258d1e89a9e892eb Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 26 May 2004 14:09:10 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-cursor-move-surface): Avoid error on the last line of summary in unplugged mode. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * wl-summary.el (wl-summary-cursor-move-surface): Avoid error on + the last line of summary in unplugged mode. + 2004-05-26 Tetsurou Okazaki * 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)) -- 1.7.10.4