From: kaoru <kaoru>
Date: Wed, 26 Sep 2001 02:48:36 +0000 (+0000)
Subject: * wl-vars.el (wl-biff-notify-hook): Use `ding' instead of `beep'.
X-Git-Tag: wl-2_6_1~27
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=0cd2a12f91bba1dccfe001b1a6cc84d3ddaf43a8

* wl-vars.el (wl-biff-notify-hook): Use `ding' instead of `beep'.

* wl-draft.el (wl-draft-send): Fixed docstring and confirm
message.
---

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  <kaoru@kaisei.org>
+
+	* 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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.")