From: hmurata <hmurata>
Date: Mon, 8 Dec 2003 02:40:36 +0000 (+0000)
Subject: * wl-template.el (wl-template-preview): New internal variable.
X-Git-Tag: wl-2_11_23~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=abd7d9a4229a516f87cf46345ed6e5bb34ae41df;p=elisp%2Fwanderlust.git

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