From abd7d9a4229a516f87cf46345ed6e5bb34ae41df Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 8 Dec 2003 02:40:36 +0000 Subject: [PATCH] * wl-template.el (wl-template-preview): New internal variable. (wl-template-preview-p): New function. (wl-template-show): Bind `wl-template-preview' as t. --- wl/ChangeLog | 6 ++++++ wl/wl-template.el | 6 ++++++ 2 files changed, 12 insertions(+) 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 + + * 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 * 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)) -- 1.7.10.4