From 0cd2a12f91bba1dccfe001b1a6cc84d3ddaf43a8 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 26 Sep 2001 02:48:36 +0000 Subject: [PATCH] * wl-vars.el (wl-biff-notify-hook): Use `ding' instead of `beep'. * wl-draft.el (wl-draft-send): Fixed docstring and confirm message. --- wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 4 ++-- wl/wl-vars.el | 2 +- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 554128d..487e974 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,10 @@ +2001-09-26 TAKAHASHI Kaoru + + * wl-vars.el (wl-biff-notify-hook): Use `ding' instead of `beep'. + + * wl-draft.el (wl-draft-send): Fixed docstring and confirm + message. + 2001-09-26 Yoichi NAKAYAMA * wl-vars.el (wl-biff-notify-hook): Set default to beep. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 3a6b4a9..3461483 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1089,14 +1089,14 @@ If FORCE-MSGID, ignore 'wl-insert-message-id'." (defun wl-draft-send (&optional kill-when-done mes-string) "Send current draft message. -If optional argument is non-nil, current draft buffer is killed" +If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (interactive) ;; Don't call this explicitly. ;; Added to 'wl-draft-send-hook (by teranisi) ;; (wl-draft-config-exec) (run-hooks 'wl-draft-send-hook) (when (or (not wl-interactive-send) - (y-or-n-p "Send current draft. OK?")) + (y-or-n-p "Do you really want to send current draft? ")) (let ((send-mail-function 'wl-draft-raw-send) (editing-buffer (current-buffer)) (sending-buffer (wl-draft-generate-clone-buffer diff --git a/wl/wl-vars.el b/wl/wl-vars.el index b7169f0..7c15cfd 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -476,7 +476,7 @@ reasons of system internal to accord facilities for the Emacs variants.") "A hook called when exit wanderlust.") (defvar wl-folder-suspend-hook nil "A hook called when suspend wanderlust.") -(defvar wl-biff-notify-hook '(beep) +(defvar wl-biff-notify-hook '(ding) "A hook called when a biff-notification is invoked.") (defvar wl-biff-unnotify-hook nil "A hook called when a biff-notification is removed.") -- 1.7.10.4