From: 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/cgi-bin/gitweb.cgi?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