[Subject Prev][Subject Next][Thread Prev][Thread Next][Subject Index][Thread Index]

[vine-users:010586] Wanderlust sample settings



松林 (a.k.a. しょうりん) です.


別に Wanderlust evangelist なわけじゃないんですが :-)
設定がよくわからん,という方がいらっしゃいましたので,
当方での設定ファイルを以下に記しておきます.1.0.3 用です.

# 一部ホスト名などうちで使っている環境のまんまですが,
# 適宜置き換えて下さい.

あと,/usr/doc/Wanderlust-1.0.3/sample.folders を参考に
~/.folders を書けばオッケーです.


ご参考になれば.


--------8<--------8<--------8<--------8<--------8<--------8<--------


Mule 2.3@19.34 用 ~/.emacs に書き加える内容:


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wanderlust
;;   メールリーダー Wanderlust
;;   M-x wl で起動します
;;   その他の設定は ~/.wl で行います
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl" "Write draft with Wanderlust." t)
(setq load-path
      (append '("/usr/share/emacs/site-lisp/wl")
              load-path))

--------8<--------8<--------8<--------8<--------8<--------8<--------


XEmacs 20.4 用 ~/.emacs に書き加える内容:


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wanderlust
;;   メールリーダー Wanderlust
;;   M-x wl で起動します
;;   その他の設定は ~/.wl で行います
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl" "Write draft with Wanderlust." t)

(setq wl-icon-dir "/usr/lib/xemacs/etc/wl/")


--------8<--------8<--------8<--------8<--------8<--------8<--------


~/.wl に書く内容のサンプル:


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ~/.wl (setting file for Wanderlust)
;;;         MATSUBAYASHI 'Shaolin' Kohji (shaolin@rins.st.ryukoku.ac.jp)
;;;                              Time-stamp: <99/07/31 01:09:28 shaolin>
;;;
;;; その他の設定は sample.dot.wl や Info, Web ページを参考にして下さい.


;;;
;;; [[ 個人情報 ]]
;
;; From の設定
(setq wl-from "MATSUBAYASHI 'Shaolin' Kohji <shaolin@rins.st.ryukoku.ac.jp>")
;
;; Organization の設定
;(setq wl-organization "Ryukoku University")
;
;; 自分のメールアドレスのリスト
(setq my-wl-user-mail-address-list
      (list (wl-address-header-extract-address wl-from)
            "shaolin@rins.st.ryukoku.ac.jp"
            "shaolin@mx.biwa.ne.jp"
      )
)


;;;
;;; [[ 基本設定 ]]
;
;; メッセージデータベースを作るディレクトリ. デフォルトは "~/.elmo"
(setq elmo-msgdb-dir "~/.elmo")
;
;; MH (localdir) のホーム. デフォルトは "~/Mail"
(setq elmo-localdir-folder-path "~/Mail")
;
;; メールの送信がうまくいかない場合は、これを指定する
;(setq smtp-local-domain "biwa.ne.jp")
(setq smtp-local-domain "math.ryukoku.ac.jp")
;
;; メールを送信する SMTP サーバ.デフォルトは "localhost"
;(setq wl-smtp-posting-server "biwasv01.biwa.ne.jp")
(setq wl-smtp-posting-server "localhost")
;
;; ニュース投稿用の NNTP サーバ.デフォルトは "localhost"
;(setq wl-nntp-posting-server "news.biwa.ne.jp")
;(setq wl-nntp-posting-server "rins.st.ryukoku.ac.jp")
;
;; POP-before-SMTP によるメールの送信
;(setq wl-draft-send-func 'wl-draft-send-mail-with-pop-before-smtp)
;
;(setq wl-smtp-posting-user "shaolin")
;(setq elmo-pop-before-smtp-authenticate-type "user")
;(setq elmo-pop-before-smtp-port 110)


;;;
;;; [その他便利な設定]
;
;; フォルダ移動時などのデフォルト値
(setq wl-default-folder "+inbox")

;; フォルダ名補完時に使用するデフォルトのスペック
(setq wl-default-spec "+")

;; FCC (Folder Carbon Copy)
(setq wl-fcc "+outbox")

;; Wanderlust 終了時に確認を行う
(setq wl-interactive-exit t)

;; メール送信時に確認を求める
(setq wl-interactive-send t)

;; サマリ移動後に先頭メッセージを表示する
;(setq wl-auto-select-first t)

;; サマリ内の移動で未読メッセージがないと次のフォルダに移動する
;(setq auto-select-next t)

;; wl-auto-select-next がt のとき、移動先でも未読がないと
;; 次々に移動していく. SPC キーだけで読み進める場合には便利
;(setq wl-summary-next-to-unread t)

;; スレッド作成時は常に open にする
(setq wl-thread-insert-opened t)

;; サマリに移動した時にフォルダバッファの右にサマリバッファが
;; 現れるようにする
;(setq wl-stay-folder-window t)

;; フォルダ種別毎のキャッシュの設定
;; (localdir, localnews, maildir はキャッシュしない)
(setq elmo-archive-use-cache nil)
(setq elmo-nntp-use-cache nil)
(setq elmo-imap4-use-cache t)
(setq elmo-pop3-use-cache t)

;; IMAP フォルダなどでのオフライン (unplugged)操作を有効にする
(setq elmo-enable-disconnected-operation t)

;; unplugged 状態で送信すると,キュー(`wl-queue-folder')に格納する
(setq wl-draft-enable-queuing t)

;; unplugged から plugged に変えると,キューにあるメッセージを送信する
;; "+queue" フォルダをあらかじめ作っておきましょう
(setq wl-auto-flush-queue t)

;; Reply-To: がある場合に a や A で To: に Reply-To: の値を書く
(setq wl-draft-reply-without-argument-list
   (append
      '(("Reply-To" . (("Reply-To") nil nil))
        ("From"     . (("From") ("To" "Cc") nil ))
       )
    wl-draft-reply-without-argument-list)
)

;; リファイル時に対象となるフィールドの追加
(setq elmo-msgdb-extra-fields
      '("reply-to"
	"x-ml-name"
	"mailing-llist"
	"x-mailing-list"
	"sender"
	"newsgroups"))


;; 自動リファイルしないマークの指定
(setq wl-summary-auto-refile-skip-marks
      '("!" "U" "u" nil)
)

;; 自動リファイルのルール設定
;;
(setq wl-refile-rule-alist
   '(
      ("Reply-To"
         ("VinePlus@" . "+linux/vine-plus")
         ("vine-users@" . "+linux/vine-users")
         ("bluelion@kfn" . "+peugeot/peugeot-jp")
      )
      ("From"
         ("teranisi@gohome" . "+linux/00misc")
         ("teranisi@isl.ntt" . "+linux/00misc")
      )
      ("To"
         ("teranisi@gohome" . "+linux/00misc")
         ("teranisi@isl.ntt" . "+linux/00misc")
      )
      ("x-ml-name"
         ("debian-users" . "+linux/debian-users-jp")
         ("linuxppc-jp" . "+linux/linuxppc-jp")
         ("tlj-beginner" . "+linux/tlj-beginner")
         ("MacOS X-J" . "+mac/MacOSX-j")
      )
      ("mailing-list"
         ("peugeot-l" . "+peugeot/peugeot-us")
      )
      ("x-mailing-list"
         ("linuxppc-user@" . "+linux/linuxppc-us")
         ("peugeot-l@egroups.com" . "+peugeot/peugeot-us")
      )
   )
)


;; メッセージの自動削除/自動アーカイブの設定
;;
(setq wl-expire-alist
   '(
      ("^\\+linux/debian-users-jp$"
         (number 500 550) wl-expire-archive-date)
      ("^\\+linux/linuxppc-us$"
         (number 500 550) wl-expire-archive-date)
      ("^\\+peugeot/peugeot-us$"
         (number 500 550) wl-expire-archive-date)
   )
)


;; メッセージの色分け
;;
;; グループを未読数により色分けしない。開閉状態により色分けする。
;(setq wl-highlight-group-folder-by-numbers nil)

;(setq wl-highlight-message-header-alist
;      '(("Subject[ \t]*:" . wl-highlight-message-subject-header-contents)
;        ("From[ \t]*:" . wl-highlight-message-from-header-contents)
;        ("\\(.*To\\|Cc\\|Newsgroups\\)[ \t]*:" . wl-highlight-message-important-header-contents)
;        ("\\(User-Agent\\|X-Mailer\\|X-Newsreader\\)[ \t]*:" .
;         wl-highlight-message-unimportant-header-contents)
;        ))
;; 引用レベルで色分けしない
;(setq wl-highlight-citation-face-list
;      '(wl-highlight-message-cited-text-1))

(defun my-wl-set-face (face spec)
  (make-face face)
  (cond ((fboundp 'face-spec-set)
         (face-spec-set face spec))
        (t
         (wl-declare-face face spec))))

;; 引用の色分けの指定
(my-wl-set-face 'wl-highlight-message-citation-header
                '((t (:foreground "DarkGreen"))))
(my-wl-set-face 'wl-highlight-message-cited-text-1
                '((t (:foreground "forest green"))))
(my-wl-set-face 'wl-highlight-message-cited-text-2
                '((t (:foreground "SaddleBrown"))))
(my-wl-set-face 'wl-highlight-message-cited-text-3
                '((t (:foreground "orchid3"))))
(my-wl-set-face 'wl-highlight-message-cited-text-4
                '((t (:foreground "purple1"))))
(my-wl-set-face 'wl-highlight-message-cited-text-5
                '((t (:foreground "MediumPurple1"))))
(my-wl-set-face 'wl-highlight-message-cited-text-6
                '((t (:foreground "PaleVioletRed"))))
(my-wl-set-face 'wl-highlight-message-cited-text-7
                '((t (:foreground "LightPink"))))
(my-wl-set-face 'wl-highlight-message-cited-text-8
                '((t (:foreground "salmon"))))
(my-wl-set-face 'wl-highlight-message-cited-text-9
                '((t (:foreground "SandyBrown"))))
(my-wl-set-face 'wl-highlight-message-cited-text-10
                '((t (:foreground "wheat"))))


;; シグネチャ挿入をデフォルトの C-c C-w から C-c TAB に変更  (tm/semi)
(define-key wl-draft-mode-map "\C-c\t"   'insert-signature)

;; シグネチャのセパレータを null にする (tm/semi)
;; デフォルトは "-- \n"
(setq signature-separator "\n")

;; insert-signature の時,ファイルの最後に挿入される様にする (tm/semi)
(setq signature-insert-at-eof t)

;; MH の alias file を指定
(setq wl-alias-file "~/.im/Aliases")


--------8<--------8<--------8<--------8<--------8<--------8<--------


====================================================
 MATSUBAYASHI, 'Shaolin' Kohji
 mailto:shaolin@rins.st.ryukoku.ac.jp
 http://oscar.math.ryukoku.ac.jp/~shaolin/index.html

この情報があなたの探していたものかどうか選択してください。
yes/まさにこれだ!   no/違うなぁ   part/一部見つかった   try/これで試してみる

あなたが探していた情報はどのようなことか、ご自由に記入下さい。特に「まさにこれだ!」と言う場合は記入をお願いします。
例:「複数のマシンからCATV経由でipmasqueradeを利用してWebを参照したい場合の設定について」