From: hmurata <hmurata>
Date: Sat, 14 Jul 2001 09:46:11 +0000 (+0000)
Subject: * wl-score.el (wl-score-insert-help): Check `wl-message-buffer'
X-Git-Tag: wl-2_7_2~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d688102f6d004b5c9165d9bb558fdaaeef0ea982;p=elisp%2Fwanderlust.git

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