From c57c28ac3a2590a5fb499044eded585e0a0cb789 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 28 Jan 2004 14:23:28 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-mark-as-important-internal): Cause an error only when the folder is 'flag/important. --- wl/ChangeLog | 3 +++ wl/wl-summary.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 134f10b..de2fb30 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2004-01-28 Yuuichi Teranishi + * wl-summary.el (wl-summary-mark-as-important-internal): Cause an error + only when the folder is 'flag/important. + * wl-address.el (wl-complete-field-body): Complete if the last character is a space. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index d6306df..741d99f 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3061,12 +3061,12 @@ Return non-nil if the mark is updated" &optional number-or-numbers no-server-update) - (if (eq (elmo-folder-type-internal wl-summary-buffer-elmo-folder) - 'flag) - (error "Cannot process mark in this folder")) (save-excursion (let ((folder wl-summary-buffer-elmo-folder) number number-list visible) + (when (and (eq (elmo-folder-type-internal folder) 'flag) + (eq (elmo-flag-folder-flag-internal folder) 'important)) + (error "Cannot process mark in this folder")) (setq number-list (cond ((numberp number-or-numbers) (list number-or-numbers)) ((and (not (null number-or-numbers)) -- 1.7.10.4