;;; 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
(define-key wl-template-mode-map "\n" 'wl-template-set))
(defun wl-template-apply (name)
- "Apply NAME templete to draft."
+ "Apply NAME template to draft."
(let (template)
(when name
(if (string= name "")
(run-hooks 'wl-template-mode-hook))
(defun wl-template-select ()
- "Select templete from `wl-template-alist'."
+ "Select template from `wl-template-alist'."
(interactive)
(if (not wl-template-visible-select)
(wl-template-apply
(defun wl-template-next ()
"Display next reference in other buffer."
(interactive)
- (if (eq wl-template-max-num
- (setq wl-template-cur-num (1+ wl-template-cur-num)))
+ (if (= wl-template-max-num
+ (setq wl-template-cur-num (1+ wl-template-cur-num)))
(setq wl-template-cur-num 0))
(wl-template-show))
(defun wl-template-prev ()
"Display previous reference in other buffer."
(interactive)
- (setq wl-template-cur-num (if (eq wl-template-cur-num 0)
+ (setq wl-template-cur-num (if (zerop wl-template-cur-num)
(1- wl-template-max-num)
(1- wl-template-cur-num)))
(wl-template-show))
(if win (select-window win))))))
(defun wl-template-insert (name &optional mail-header)
- "Insert NAME templete.
+ "Insert NAME template.
Set header-separator is MAIL-HEADER."
(let ((template (cdr (assoc name wl-template-alist)))
(mail-header-separator (or mail-header