From fe6e76a3f9739c18766b80bb14750482d092dcde Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 22 Dec 2001 08:52:06 +0000 Subject: [PATCH] Synch with wl-2_8. --- samples/en/dot.wl | 52 ++++++++++++++++++++++++++-------------------------- samples/ja/dot.wl | 51 +++++++++++++++++++++++++-------------------------- 2 files changed, 51 insertions(+), 52 deletions(-) diff --git a/samples/en/dot.wl b/samples/en/dot.wl index 76736e9..1fbf9c4 100644 --- a/samples/en/dot.wl +++ b/samples/en/dot.wl @@ -3,10 +3,9 @@ ;; [[ Requirement Setting ]] ;; Following must be included in ~/.emacs -;; for .emacs begin +;; (No need if installed as XEmacs package.) (autoload 'wl "wl" "Wanderlust" t) (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) -;; for .emacs end ;; Icon directory ;; (No need if installed as XEmacs package.) @@ -151,7 +150,7 @@ ;(setq elmo-pop3-use-cache t) ;; Enable disconnected operation in IMAP folder. -;(setq elmo-enable-disconnected-operation t) +(setq elmo-enable-disconnected-operation t) ;; Store draft message in queue folder if message is sent in unplugged status. (setq wl-draft-enable-queuing t) @@ -244,30 +243,31 @@ ;;; [[ Template ]] ;; template -(setq wl-template-alist - '(("default" - ("From" . wl-from) - ("Organization" . "~/.wl sample") - (body . "Hello, this is XXX \n")) ;; body - ("report" - ("To" . "boss@example.com") - ("Subject" . "Report") - (top . "Sir, here is my report\n") ;; insert in top. -;; (bottom-file . "~/work/report.txt") ;; insert file in bottom - ) - )) +;(setq wl-template-alist +; '(("default" +; ("From" . wl-from) +; ("Organization" . "organization for default") +; (body . "Hello, this is XXX \n")) ; body +; ("report" +; ("To" . "boss@example.com") +; ("Subject" . "Report") +; (top . "Sir, here is my report\n") ; insert in top. +; (bottom-file . "~/work/report.txt") ; insert file in bottom +; ) +; )) + ;; Change headers in draft sending time. -(setq wl-draft-config-alist - '((reply ; see reply buffer - "^To: .*test-notsend-wl@lists\\.airs\\.net" - (template . "default")) ; template - ("^To: .*test-notsend-wl@lists\\.airs\\.net" - ding ; function - ("From" . wl-from) ; variable - ("Organization" . "CHANGE THIS!!")) ; string - ("^Newsgroups: test.*" - ("Organization" . "organization for nntp.")) - )) +;(setq wl-draft-config-alist +; '((reply ; see reply buffer +; "^To: .*test-notsend-wl@lists\\.airs\\.net" +; (template . "default")) ; template +; ("^To: .*test-notsend-wl@lists\\.airs\\.net" +; ding ; function +; ("From" . wl-from) ; variable +; ("Organization" . "organization")) ; string +; ("^Newsgroups: test.*" +; ("Organization" . "organization for nntp.")) +; )) ;; Change headers in draft preparation time. ;(add-hook 'wl-mail-setup-hook diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index df914da..87c9b65 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -3,10 +3,9 @@ ;; [[ 動作に必要な設定 ]] ;; まず、次の設定を ~/.emacs などに書いてください。 -;; ここから +;; XEmacs の package としてインストールされている場合は必要ありません。 (autoload 'wl "wl" "Wanderlust" t) (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) -;; ここまで ;; アイコンを置くディレクトリ ;; XEmacs の package としてインストールされている場合は必要ありません。 @@ -150,7 +149,7 @@ ;(setq elmo-pop3-use-cache t) ;; オフライン(unplugged)操作を有効にする(現在はIMAPフォルダのみ) -;(setq elmo-enable-disconnected-operation t) +(setq elmo-enable-disconnected-operation t) ;; unplugged 状態で送信すると，キュー(`wl-queue-folder')に格納する (setq wl-draft-enable-queuing t) @@ -243,32 +242,32 @@ ;;; [[ テンプレート ]] ;; テンプレートの設定 -(setq wl-template-alist - '(("default" - ("From" . wl-from) - ("Organization" . "~/.wl sample") - (body . " ○○です。\n")) ; 本文 - ("report" - ("To" . "boss@example.com") - ("Subject" . "報告") - (top . "今週の報告です。\n") ; 本文先頭への挿入 -;; (bottom-file . "~/work/report.txt") ; 本文末尾へファイルの挿入 - ) - )) +;(setq wl-template-alist +; '(("default" +; ("From" . wl-from) +; ("Organization" . "デフォルトの組織名") +; (body . " ○○です。\n")) ; 本文 +; ("report" +; ("To" . "boss@example.com") +; ("Subject" . "報告") +; (top . "今週の報告です。\n") ; 本文先頭への挿入 +; (bottom-file . "~/work/report.txt") ; 本文末尾へファイルの挿入 +; ) +; )) ;; ドラフトバッファの内容により From や Organization などのヘッダを自 ;; 動的に変更する -(setq wl-draft-config-alist - '((reply ; 返信元のバッファを見る - "^To: .*test-notsend-wl@lists\\.airs\\.net" - (template . "default")) ; テンプレート - ("^To: .*test-notsend-wl@lists\\.airs\\.net" - ding ; 関数 - ("From" . wl-from) ; 変数 - ("Organization" . "CHANGE THIS!!")) ; 文字列 - ("^Newsgroups: test.*" - ("Organization" . "ニュース投稿時の組織名")) - )) +;(setq wl-draft-config-alist +; '((reply ; 返信元のバッファを見る +; "^To: .*test-notsend-wl@lists\\.airs\\.net" +; (template . "default")) ; テンプレート +; ("^To: .*test-notsend-wl@lists\\.airs\\.net" +; ding ; 関数 +; ("From" . wl-from) ; 変数 +; ("Organization" . "組織名")) ; 文字列 +; ("^Newsgroups: test.*" +; ("Organization" . "ニュース投稿時の組織名")) +; )) ;; ドラフト作成時(返信時)に，自動的にヘッダを変更する ;(add-hook 'wl-mail-setup-hook -- 1.7.10.4