* wl-summary.el (wl-summary-detect-mark-position): Follow the API

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

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 9494d76..10ec333 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -769,6 +769,7 @@ Don't cache if nil.")
              (setq extra (cons (cons ext field) extra))))
          (setq extras (cdr extras)))
        (setq entity (elmo-msgdb-make-message-entity
+                     new-msgdb
                      :message-id (aref ov-entity 4)
                      :number     num
                      :references (elmo-msgdb-get-last-message-id
@@ -1417,7 +1418,8 @@ Returns a list of cons cells like (NUMBER . VALUE)"
            (save-restriction
              (narrow-to-region beg (point))
              (setq entity
-                   (elmo-msgdb-create-overview-from-buffer num))
+                   (elmo-msgdb-create-message-entity-from-buffer
+                    new-msgdb num))
              (when entity
                (setq message-id
                      (elmo-message-entity-field entity 'message-id))