From: hmurata <hmurata>
Date: Mon, 29 Sep 2003 07:50:18 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-prefetch-msg): Fixed.
X-Git-Tag: wl-2_11_19~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=334649b6dd29da288ae3ad987be7fef7319fdec0;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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