ptexinfmt.el; Fix last change

[elisp/wanderlust.git] / wl / wl-template.el

diff --git a/wl/wl-template.el b/wl/wl-template.el
index b6c910f..fcc44d8 100644 (file)
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -28,6 +28,8 @@
 
 ;;; Code:
 ;;
+(require 'elmo-util)
+(require 'wl-vars)
 
 ;; Variables
 
@@ -39,6 +41,7 @@
 (defvar wl-template-cur-num 0)
 (defvar wl-template-max-num 0)
 (defvar wl-template-draft-buffer nil)
+(defvar wl-template-preview nil)
 
 ;;; Code
 
@@ -51,6 +54,10 @@
   (define-key wl-template-mode-map "\r"    'wl-template-set)
   (define-key wl-template-mode-map "\n"    'wl-template-set))
 
+(defun wl-template-preview-p ()
+  "Return non-nil when preview template."
+  wl-template-preview)
+
 (defun wl-template-apply (name)
   "Apply NAME template to draft."
   (let (template)
@@ -88,6 +95,9 @@ Entering WL-Template mode calls the value of `wl-template-mode-hook'."
 (defun wl-template-select (&optional arg)
   "Select template from `wl-template-alist'."
   (interactive "P")
+  (unless wl-template-alist
+    (error "Please set `wl-template-alist'"))
+  (setq wl-draft-config-exec-flag t)
   (if (not (if arg
               (not wl-template-visible-select)
             wl-template-visible-select))
@@ -126,9 +136,9 @@ Entering WL-Template mode calls the value of `wl-template-mode-hook'."
 (defun wl-template-show (&optional arg)
   "Show reference INDEX in `wl-template-alist'.
 ARG is ignored."                       ; ARG ignored this version (?)
-  (save-excursion
-    (set-buffer wl-template-buffer-name)
+  (with-current-buffer wl-template-buffer-name
     (let ((buffer-read-only nil)
+         (wl-template-preview t)
          (mail-header-separator  "--header separater--"))
       (erase-buffer)
       (goto-char (point-min))