* 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 (file)
--- 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 (file)
--- 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