(defvar wl-template-cur-num 0)
(defvar wl-template-max-num 0)
(defvar wl-template-draft-buffer nil)
+(defvar wl-template-preview nil)
;;; Code
(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)
(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))