* wl-template.el (wl-template-preview): New internal variable.

(wl-template-preview-p): New function.
(wl-template-show): Bind `wl-template-preview' as t.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e9f8c62..c1f0432 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-12-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-template.el (wl-template-preview): New internal variable.
+       (wl-template-preview-p): New function.
+       (wl-template-show): Bind `wl-template-preview' as t.
+
 2003-12-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-mime.el (wl-mime-combine-message/partial-pieces): Call

diff --git a/wl/wl-template.el b/wl/wl-template.el
index b6c910f..21c106d 100644 (file)
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -39,6 +39,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 +52,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)
@@ -129,6 +134,7 @@ ARG is ignored."                    ; ARG ignored this version (?)
   (save-excursion
     (set-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))