;;; -*- Mode: Lisp -*-
; $Id: sample.xyzzy,v 1.17 2000/12/30 19:13:56 hattori Exp $
;
; sample.xyzzy for KaMail
;
; .xyzzy や、siteinit.l に追加して下さい。
;

(autoload 'kamail "kamail/kamail" t)

; 標準のメーラとして使ったり他から呼ぶ場合
;(autoload 'kamail-mailto "kamail/kamail" nil)
;(setq *command-line-mailto-hook* #'kamail-mailto)

; ログオンユーザー別に使い分ける場合の例
; "xyzzy/usr/ユーザー名/ＯＳ名/KaMail"に設定ファイルを置く
;
;(require "kamail/kamail")
;
;(setq km::*kamail-data-file-path-name* "KaMail")
;(setq km::*kamail-data-file-path*
;      (merge-pathnames km::*kamail-data-file-path-name* (user-config-path)))
;(setq km::*kamail-local-directory*
;       (merge-pathnames "Mail" (user-config-path)))
;(setq km::*kamail-spool-directory*
;       (merge-pathnames "News" (user-config-path)))
;(setq km::*kamail-archive-directory*
;       (merge-pathnames "Archive" (user-config-path)))