(elmo-nntp-use-server-search-p): New function.

[elisp/wanderlust.git] / elmo / elmo-split.el

diff --git a/elmo/elmo-split.el b/elmo/elmo-split.el
index 891ef41..28bebd2 100644 (file)
--- a/elmo/elmo-split.el
+++ b/elmo/elmo-split.el
@@ -334,19 +334,10 @@ If prefix argument ARG is specified, do a reharsal (no harm)."
              (when (ignore-errors
                      (elmo-message-fetch folder msg
                                          (elmo-make-fetch-strategy 'entire)
-                                         nil (current-buffer) 'unread))
+                                         'unread))
                (run-hooks 'elmo-split-fetch-hook)
                (setq elmo-split-message-entity (mime-parse-buffer))
-               (setq flags
-                     (let ((this-id (elmo-message-field folder
-                                                        msg
-                                                        'message-id)))
-                       (and this-id
-                            (string= this-id
-                                     (elmo-msgdb-get-message-id-from-buffer))
-                            (or (elmo-message-flags folder msg)
-                                ;; message exists, but no flag.
-                                '(read)))))
+               (setq flags (elmo-message-flags-for-append folder msg))
                (catch 'terminate
                  (dolist (rule (append elmo-split-rule default-rule))
                    (setq elmo-split-match-string-internal nil)