From d0d1d230740805fb3233b95d8a1ed10603e20d8c Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 13 Jul 2001 16:03:31 +0000 Subject: [PATCH] =?utf8?q?*=20wl-draft.el=20(wl-message-mail-p):=20Test=20re?= =?utf8?q?sent-to:=20field.=20(Fix=20by=20Peter=20M=1B,Ax=1B(Bller=20Neergaa?= =?utf8?q?rd=20)=20(wl-default-draft-cite):=20Fix.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * wl-score.el (wl-score-insert-help): Fixed parenthesis. (Pointed out by ABE Yasushi ) --- wl/ChangeLog | 9 +++++++++ wl/wl-draft.el | 13 ++++++------- wl/wl-score.el | 24 ++++++++++++------------ 3 files changed, 27 insertions(+), 19 deletions(-) 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 + + * wl-draft.el (wl-message-mail-p): Test resent-to: field. + (Fix by Peter Møller Neergaard ) + (wl-default-draft-cite): Fix. + + * wl-score.el (wl-score-insert-help): Fixed parenthesis. + (Pointed out by ABE Yasushi ) + 2001-07-12 Yuuichi Teranishi * 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 -- 1.7.10.4