From: yoichi <yoichi>
Date: Thu, 18 Jul 2002 13:34:29 +0000 (+0000)
Subject: * wl-draft.el: Abolish wl-draft-confirm,wl-draft-open-file,
X-Git-Tag: elmo-mark-root~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6239f4c78964d5b38bc917d9971436f37077103d;p=elisp%2Fwanderlust.git

* wl-draft.el: Abolish wl-draft-confirm,wl-draft-open-file,
and wl-draft-random-alphabet since those are not used.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 578f161..743229f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,6 +2,10 @@
 
 	* wl-draft.el (wl-draft-edit-string): Don't set buffer-read-only.
 
+	* wl-draft.el (wl-draft-confirm): Abolished since not used.
+	(wl-draft-open-file): Ditto.
+	(wl-draft-random-alphabet): Ditto.
+
 	* wl-summary.el (wl-summary-mode-map): Remove already abolished
 	bindings.
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 5b2c9e9..2e4dbf9 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -504,15 +504,6 @@ Reply to author if WITH-ARG is non-nil."
     (when wl-highlight-body-too
       (wl-highlight-body-region beg (point-max)))))
 
-(defun wl-draft-confirm ()
-  "Confirm send message."
-  (interactive)
-  (y-or-n-p (format "Send current draft as %s? "
-		    (cond ((and (wl-message-mail-p) (wl-message-news-p))
-			   "Mail and News")
-			  ((wl-message-mail-p) "Mail")
-			  ((wl-message-news-p) "News")))))
-
 (defun wl-message-news-p ()
   "If exist valid Newsgroups field, return non-nil."
   (std11-field-body "Newsgroups"))
@@ -534,16 +525,6 @@ Reply to author if WITH-ARG is non-nil."
 ;;;   (wl-message-field-exists-p "Fcc")
       ))
 
-(defun wl-draft-open-file (&optional file)
-  "Open FILE for edit."
-  (interactive)
-;;;(interactive "*fFile to edit: ")
-  (wl-draft-edit-string (elmo-get-file-string
-			 (or file
-			     (read-file-name "File to edit: "
-					     (or wl-temporary-file-directory
-						 "~/"))))))
-
 (defun wl-draft-edit-string (string)
   (let ((cur-buf (current-buffer))
 	(tmp-buf (get-buffer-create " *wl-draft-edit-string*"))
@@ -1516,10 +1497,6 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 		nil
 	      (if (re-search-forward ":" pos t) nil t)))))))
 
-(defun wl-draft-random-alphabet ()
-  (let ((alphabet '(?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y ?Z)))
-    (nth (abs (% (random) 26)) alphabet)))
-
 ;;;;;;;;;;;;;;;;
 ;;;###autoload
 (defun wl-draft (&optional header-alist