* wl-score.el (wl-score-insert-help): Check `wl-message-buffer'

before call `get-buffer'. Fixed parenthesis.
(wl-score-get-header-entry): Clear message and help window when
keyboard quit.
(wl-score-edit-insert-header): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 92d80ae..448074a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2001-07-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-score.el (wl-score-insert-help): Check `wl-message-buffer'
+       before call `get-buffer'. Fixed parenthesis.
+       (wl-score-get-header-entry): Clear message and help window when
+       keyboard quit.
+       (wl-score-edit-insert-header): Ditto. 
+
 2001-07-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-message-mail-p): Test resent-to: field.

diff --git a/wl/wl-score.el b/wl/wl-score.el
index bd5573e..5974622 100644 (file)
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -994,9 +994,10 @@ Set `wl-score-cache' nil."
          (setq format (concat "%c: %-" (int-to-string pad) "s"))
          (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 i (1+ i)))
+       (set-buffer-modified-p nil)))
+    (when (and wl-message-buffer
+              (get-buffer wl-message-buffer)
               (setq mes-win (get-buffer-window
                              (get-buffer wl-message-buffer))))
       (select-window mes-win)
@@ -1089,8 +1090,9 @@ Set `wl-score-cache' nil."
 
          ;; read the score.
          (unless (or score increase)
-           (setq score (string-to-int (read-string "Set score: "))))
-         (message "")))
+           (setq score (string-to-int (read-string "Set score: ")))))
+      (message "")
+      (wl-score-kill-help-buffer))
 
     (let* ((match-header (or (nth 2 hentry) header))
           (match (if match-func
@@ -1447,6 +1449,7 @@ Entering Score mode calls the value of `wl-score-mode-hook'."
                                    wl-score-edit-header-char))
            (error "Invalid match type")))
       (message "")
+      (wl-score-kill-help-buffer)
       (let* ((header (nth 1 entry))
             (value (wl-score-edit-get-header header)))
        (and value (prin1 value (current-buffer)))))))