fix

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

diff --git a/wl/wl-template.el b/wl/wl-template.el
index bb47963..9874ce6 100644 (file)
--- a/wl/wl-template.el
+++ b/wl/wl-template.el
@@ -1,7 +1,7 @@
 ;;; wl-template.el -- Draft template feature for Wanderlust.
 
-;; Copyright 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
-;;                          Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
 ;; Keywords: mail, net news
@@ -52,6 +52,7 @@
   (define-key wl-template-mode-map "\n"    'wl-template-set))
 
 (defun wl-template-apply (name)
+  "Apply NAME template to draft."
   (let (template)
     (when name
       (if (string= name "")
@@ -85,6 +86,7 @@ Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
   (run-hooks 'wl-template-mode-hook))
 
 (defun wl-template-select ()
+  "Select template from `wl-template-alist'."
   (interactive)
   (if (not wl-template-visible-select)
       (wl-template-apply
@@ -120,7 +122,8 @@ Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
       (wl-template-show))))
 
 (defun wl-template-show (&optional arg)
-  "Show reference INDEX in wl-template-alist."
+  "Show reference INDEX in `wl-template-alist'.
+ARG is ignored."                       ; ARG ignored this version (?)
   (save-excursion
     (set-buffer wl-template-buffer-name)
     (let ((buffer-read-only nil)
@@ -180,6 +183,8 @@ Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
        (if win (select-window win))))))
 
 (defun wl-template-insert (name &optional mail-header)
+  "Insert NAME template.
+Set header-separator is MAIL-HEADER."
   (let ((template (cdr (assoc name wl-template-alist)))
        (mail-header-separator (or mail-header
                                   mail-header-separator)))