* wl-draft.el (wl-draft-send-confirm): Call `wl-mime-quit-preview'

instead of `wl-draft-quit-preview'.

* wl-mime.el (toplevel): Avoid compile warning.
(wl-mime-quit-preview): New function
(formarly defined as `wl-draft-quit-preview').
(wl-draft-preview-message): Use `wl-mime-quit-preview' for
quitting method.

* wl-draft.el: Move wl-draft-quit-preview to wl-mime.el.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 22f72c8..32469d7 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,16 @@
 2004-09-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-draft.el (wl-draft-send-confirm): Call `wl-mime-quit-preview'
+       instead of `wl-draft-quit-preview'.
+
+       * wl-mime.el (toplevel): Avoid compile warning.
+       (wl-mime-quit-preview): New function
+       (formarly defined as `wl-draft-quit-preview').
+       (wl-draft-preview-message): Use `wl-mime-quit-preview' for
+       quitting method.
+
+       * wl-draft.el: Move wl-draft-quit-preview to wl-mime.el.
+
        * wl-folder.el (wl-folder-set-flag): Renamed from
        `wl-draft-set-flag-on-parent'.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0a84b35..45fe622 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1282,18 +1282,6 @@ This variable is valid when `wl-interactive-send' has non-nil value."
   :type 'boolean
   :group 'wl-draft)
 
-(defun wl-draft-quit-preview ()
-  "Quitting method for mime-view."
-  (let* ((temp mime-edit-temp-message-buffer)
-        (window (selected-window))
-        buf)
-    (mime-preview-kill-buffer)
-    (set-buffer temp)
-    (setq buf mime-edit-buffer)
-    (kill-buffer temp)
-    (select-window window)
-    (switch-to-buffer buf)))
-
 (defun wl-draft-send-confirm ()
   (let (answer)
     (unwind-protect
@@ -1329,7 +1317,7 @@ This variable is valid when `wl-interactive-send' has non-nil value."
                      (throw 'done nil)))))))
          (quit nil))
       (when wl-draft-send-confirm-with-preview
-       (wl-draft-quit-preview)))))
+       (wl-mime-quit-preview)))))
 
 (defun wl-draft-send (&optional kill-when-done mes-string)
   "Send current draft message.

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 8e79c5e..5dd9480 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -39,6 +39,8 @@
   (defalias-maybe 'pgg-display-output-buffer 'ignore)
   (defalias-maybe 'pgg-verify-region 'ignore))
 
+(defvar mime-edit-temp-message-buffer)
+
 ;;; Draft
 
 (defalias 'wl-draft-editor-mode 'mime-edit-mode)
@@ -185,6 +187,18 @@ It calls following-method selected from variable
          ((boundp attr)
           (symbol-value attr)))))
 
+(defun wl-mime-quit-preview ()
+  "Quitting method for mime-view."
+  (let* ((temp mime-edit-temp-message-buffer)
+        (window (selected-window))
+        buf)
+    (mime-preview-kill-buffer)
+    (set-buffer temp)
+    (setq buf mime-edit-buffer)
+    (kill-buffer temp)
+    (select-window window)
+    (switch-to-buffer buf)))
+
 (defun wl-draft-preview-message ()
   "Preview editing message."
   (interactive)
@@ -227,6 +241,9 @@ It calls following-method selected from variable
                   (signal (car err) (cdr err)))))))
           mime-edit-translate-buffer-hook)))
     (mime-edit-preview-message)
+    (make-local-variable 'mime-preview-quitting-method-alist)
+    (setq mime-preview-quitting-method-alist
+         '((mime-temp-message-mode . wl-mime-quit-preview)))
     (let ((buffer-read-only nil))
       (when wl-highlight-body-too
        (wl-highlight-body))

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index fafdea7..187efff 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2017,7 +2017,7 @@ This function is defined for `window-scroll-functions'"
        (funcall wl-summary-buffer-mode-line-formatter)))
 
 (defun wl-summary-jump-to-msg (&optional number)
-  (interactive)
+  (interactive "NJump to Number:")
   (let ((num (or number
                 (string-to-int
                  (read-from-minibuffer "Jump to Message(No.): ")))))
@@ -2029,10 +2029,6 @@ This function is defined for `window-scroll-functions'"
        (progn (beginning-of-line) t)
       nil)))
 
-(defun wl-summary-digit-jump (number)
-  (interactive "NJump to Number: ")
-  (wl-summary-jump-to-msg number))
-
 (defun wl-summary-highlight-msgs (msgs)
   (save-excursion
     (let ((len (length msgs))