* wl-draft.el (wl-draft-config-sub-eval-insert): New function.

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

diff --git a/wl/wl-template.el b/wl/wl-template.el
index ca8a42d..ddbf66a 100644 (file)
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -1,4 +1,4 @@
-;;; wl-template.el -- Draft template feature for Wanderlust.
+;;; wl-template.el --- Draft template feature for Wanderlust.
 
 ;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
@@ -27,7 +27,7 @@
 ;;; Commentary:
 
 ;;; Code:
-;; 
+;;
 
 ;; Variables
 
@@ -77,7 +77,7 @@ See info under Wanderlust for full documentation.
 
 \\{wl-template-mode}
 
-Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
+Entering WL-Template mode calls the value of `wl-template-mode-hook'."
   (kill-all-local-variables)
   (setq mode-name "Wl-Template"
        major-mode 'wl-template-mode)
@@ -134,10 +134,9 @@ ARG is ignored."                   ; ARG ignored this version (?)
        (setq wl-template (car (nth wl-template-cur-num wl-template-alist)))
        mail-header-separator)
       (wl-highlight-message (point-min) (point-max) t)
-      (and wl-highlight-x-face-func
-          (funcall
-           wl-highlight-x-face-func
-           (point-min) (re-search-forward mail-header-separator nil t)))
+      (when wl-highlight-x-face-function
+       (funcall wl-highlight-x-face-function
+                (point-min) (re-search-forward mail-header-separator nil t)))
       (setq mode-line-process (concat ":" wl-template))
       (set-buffer-modified-p nil))))