* wl-draft.el (wl-message-mail-p): Test resent-to: field.

(Fix by Peter M\e,Ax\e(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 (file)
--- 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 (file)
--- 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 (file)
--- 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