* wl-summary.el (wl-summary-prefetch-msg): Fixed.

(wl-summary-forward): Use elmo-message-entity-field instead of
elmo-message-field.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 88ccaaf..98063ee 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2003-09-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * wl-summary.el (wl-summary-prefetch-msg): Fixed.
+       (wl-summary-forward): Use elmo-message-entity-field instead of
+       elmo-message-field.
+
        * wl-summary.el (wl-summary-update-mark-and-highlight-window): Fixed.
 
 2003-09-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 91231cf..381ed8b 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1377,17 +1377,18 @@ If ARG is non-nil, checking is omitted."
                         (save-match-data
                           (wl-set-string-width
                            17
-                           (funcall wl-summary-from-function
-                            (eword-decode-string
-                             (elmo-delete-char
-                              ?\"
-                              (or
-                               (elmo-message-field
-                                (elmo-message-entity
-                                 wl-summary-buffer-elmo-folder
-                                 number)
-                                'from t)
-                               "??")))))) " ]")
+                           (funcall
+                            wl-summary-from-function
+                            (elmo-delete-char
+                             ?\"
+                             (or
+                              (elmo-message-entity-field
+                               (elmo-message-entity
+                                wl-summary-buffer-elmo-folder
+                                number)
+                               'from t)
+                              "??")))))
+                        " ]")
                        size))))
              (message ""))             ; flush.
            (if force-read
@@ -3938,7 +3939,9 @@ Use function list is `wl-summary-write-current-folder-functions'."
          (save-excursion
            (set-buffer summary-buf)
            (setq subject
-                 (or (elmo-message-field folder number 'subject) ""))))
+                 (or (elmo-message-entity-field
+                      (elmo-message-entity folder number) 'subject 'decode)
+                     ""))))
       (set-buffer mes-buf)
       (wl-draft-forward subject summary-buf)
       (unless without-setup-hook