From: teranisi <teranisi>
Date: Fri, 13 Jul 2001 16:03:31 +0000 (+0000)
Subject: * wl-draft.el (wl-message-mail-p): Test resent-to: field.
X-Git-Tag: wl-2_7_2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d0d1d230740805fb3233b95d8a1ed10603e20d8c;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-message-mail-p): Test resent-to: field.
(Fix by Peter M,Ax(Bller Neergaard <turtle@bu.edu>)
(wl-default-draft-cite): Fix.

* wl-score.el (wl-score-insert-help): Fixed parenthesis.
(Pointed out by ABE Yasushi <yasushi@stbbs.net>)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 394bbd3..92d80ae 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2001-07-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-message-mail-p): Test resent-to: field.
+	(Fix by Peter Møller Neergaard <turtle@bu.edu>)
+	(wl-default-draft-cite): Fix.
+
+	* wl-score.el (wl-score-insert-help): Fixed parenthesis.
+	(Pointed out by ABE Yasushi <yasushi@stbbs.net>)
+
 2001-07-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-message.el (wl-message-prev-page): Do same bahavior
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index ff7781a..328722f 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -470,6 +470,7 @@ Reply to author if WITH-ARG is non-nil."
 (defun wl-message-mail-p ()
   "If exist To, Cc or Bcc field, return non-nil."
   (or (wl-message-field-exists-p "To")
+      (wl-message-field-exists-p "Resent-to")
       (wl-message-field-exists-p "Cc")
       (wl-message-field-exists-p "Bcc")
 ;;; This may be needed..
@@ -595,20 +596,18 @@ Reply to author if WITH-ARG is non-nil."
 	(summary-buf wl-current-summary-buffer)
 	(message-buf (get-buffer (wl-current-message-buffer)))
 	from date cite-title num entity)
-    (setq date (std11-fetch-field "date"))
     (if (and summary-buf
 	     (buffer-live-p summary-buf)
 	     message-buf
 	     (buffer-live-p message-buf))
 	(progn
-	  (save-excursion
-	    (set-buffer summary-buf)
-	    (setq num
-		  (save-excursion
-		    (set-buffer message-buf)
-		    wl-message-buffer-cur-number))
+	  (with-current-buffer summary-buf
+	    (setq num (save-excursion
+			(set-buffer message-buf)
+			wl-message-buffer-cur-number))
 	    (setq entity (elmo-msgdb-overview-get-entity
 			  num (wl-summary-buffer-msgdb)))
+	    (setq date (elmo-msgdb-overview-entity-get-date entity))
 	    (setq from (elmo-msgdb-overview-entity-get-from entity)))
 	  (setq cite-title (format "At %s,\n%s wrote:"
 				   (or date "some time ago")
diff --git a/wl/wl-score.el b/wl/wl-score.el
index 50e29bc..bd5573e 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -995,18 +995,18 @@ Set `wl-score-cache' nil."
 	  (insert (format format (caar alist) (nth idx (car alist))))
 	  (setq alist (cdr alist))
 	  (setq i (1+ i))
-	  (set-buffer-modified-p nil)))
-      (when (and (get-buffer wl-message-buffer)
-		 (setq mes-win (get-buffer-window
-				(get-buffer wl-message-buffer))))
-	(select-window mes-win)
-	(unless (eq (next-window) cur-win)
-	  (delete-window (next-window))))
-      (split-window)
-      (pop-to-buffer "*Score Help*")
-      (let ((window-min-height 1))
-	(shrink-window-if-larger-than-buffer))
-      (select-window cur-win))))
+	  (set-buffer-modified-p nil))))
+    (when (and (get-buffer wl-message-buffer)
+	       (setq mes-win (get-buffer-window
+			      (get-buffer wl-message-buffer))))
+      (select-window mes-win)
+      (unless (eq (next-window) cur-win)
+	(delete-window (next-window))))
+    (split-window)
+    (pop-to-buffer "*Score Help*")
+    (let ((window-min-height 1))
+      (shrink-window-if-larger-than-buffer))
+    (select-window cur-win)))
 
 (defun wl-score-get-header-entry (&optional match-func increase)
   (let (hchar tchar pchar