From d688102f6d004b5c9165d9bb558fdaaeef0ea982 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 14 Jul 2001 09:46:11 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 8 ++++++++ wl/wl-score.el | 13 ++++++++----- 2 files changed, 16 insertions(+), 5 deletions(-) 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 + + * 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 * 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))))))) -- 1.7.10.4