From: hmurata Date: Wed, 17 Apr 2002 12:55:15 +0000 (+0000) Subject: * wl-summary.el (wl-summary-auto-refile): Don't stop mark process X-Git-Tag: elmo-mark-root~201 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=abcae08b28ba4fe2ab6f66469290dcd24ce44fd4;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-auto-refile): Don't stop mark process even if no folder is not created. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index f208cb4..68fd4b3 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-04-17 Hiroya Murata + + * wl-summary.el (wl-summary-auto-refile): Don't stop mark process + even if no folder is not created. + 2002-04-16 Yuuichi Teranishi * wl-vars.el (wl-folder-mime-charset-alist): Added @2ch. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index e5d6ee5..fbc473b 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3433,8 +3433,6 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." open-all) (wl-thread-open-all)) (let* ((spec (wl-summary-buffer-folder-name)) - (overview (elmo-msgdb-get-overview - (wl-summary-buffer-msgdb))) (mark-alist (elmo-msgdb-get-mark-alist (wl-summary-buffer-msgdb))) checked-dsts @@ -3443,41 +3441,38 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (goto-line 1) (while (not (eobp)) (setq number (wl-summary-message-number)) - (when (and (not (wl-summary-no-auto-refile-message-p number - mark-alist)) - (setq dst - (wl-folder-get-realname - (wl-refile-guess-by-rule - (elmo-msgdb-overview-get-entity - number (wl-summary-buffer-msgdb))))) - (not (equal dst spec))) - (when (not (member dst checked-dsts)) - (wl-folder-confirm-existence (wl-folder-get-elmo-folder dst)) - (setq checked-dsts (cons dst checked-dsts))) - (if (wl-summary-refile dst number) - (incf count)) - (message "Marking...%d message(s)." count)) - (if (eq wl-summary-buffer-view 'thread) - ;; process invisible children. - (unless (wl-thread-entity-get-opened - (setq thr-entity (wl-thread-get-entity number))) - (let ((messages - (elmo-delete-if - (function - (lambda (x) - (wl-summary-no-auto-refile-message-p - x mark-alist))) - (wl-thread-entity-get-descendant thr-entity)))) - (while messages - (when (and (setq dst - (wl-refile-guess-by-rule - (elmo-msgdb-overview-get-entity - (car messages) (wl-summary-buffer-msgdb)))) - (not (equal dst spec))) - (if (wl-summary-refile dst (car messages)) - (incf count)) - (message "Marking...%d message(s)." count)) - (setq messages (cdr messages)))))) + (dolist (number (cons number + (and (eq wl-summary-buffer-view 'thread) + ;; process invisible children. + (not (wl-thread-entity-get-opened + (setq thr-entity + (wl-thread-get-entity number)))) + (wl-thread-entity-get-descendant + thr-entity)))) + (when (and (not (wl-summary-no-auto-refile-message-p number + mark-alist)) + (setq dst + (wl-folder-get-realname + (wl-refile-guess-by-rule + (elmo-msgdb-overview-get-entity + number (wl-summary-buffer-msgdb))))) + (not (equal dst spec)) + (let ((pair (assoc dst checked-dsts)) + ret) + (if pair + (cdr pair) + (setq ret + (condition-case nil + (progn + (wl-folder-confirm-existence + (wl-folder-get-elmo-folder dst)) + t) + (error))) + (setq checked-dsts (cons (cons dst ret) checked-dsts)) + ret))) + (if (wl-summary-refile dst number) + (incf count)) + (message "Marking...%d message(s)." count))) (forward-line)) (if (eq count 0) (message "No message was marked.")