From: kaoru Date: Sun, 8 Jul 2001 00:35:25 +0000 (+0000) Subject: Synch with wl-2_6. X-Git-Tag: wl-2_7_2~25 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af47348cbb8e14f1c6b245bd854db873e1213719;p=elisp%2Fwanderlust.git Synch with wl-2_6. --- diff --git a/samples/en/dot.addresses b/samples/en/dot.addresses index 891a3d7..fe387cd 100644 --- a/samples/en/dot.addresses +++ b/samples/en/dot.addresses @@ -1,15 +1,14 @@ # -# "~/.addresses" sample file. -# by Yuuichi Teranishi -# Time-stamp: <99/09/10 15:45:37 teranisi> +# ~/.addresses sample file. # # Lines begin with '#' are comment. # Empty lines are ignored. +# # Format of each line: # email-address "petname" "realname" -# petname is used for Summary displaying. -# realname is used for To: field. +# +# petname is used for Summary displaying. realname is used for To: field. # teranisi@gohome.org "YT" "Yuuichi Teranishi" -foo@bar.com "Mr. Foo" "John Foo" -bar@foo.com "Mr. Bar" "Michael Bar" +foo@example.com "Mr. Foo" "John Foo" +bar@example.org "Mr. Bar" "Michael Bar" diff --git a/samples/en/dot.folders b/samples/en/dot.folders index bfa1164..149d521 100644 --- a/samples/en/dot.folders +++ b/samples/en/dot.folders @@ -1,72 +1,65 @@ # -# "~/.folders" sample file. -# by Yuuichi Teranishi -# Time-stamp: <99/09/10 15:49:11 teranisi> +# ~/.folders sample file. +# +# For further information, see section "Folders" in the Info. # # Lines begin with '#' are comment. # Empty lines are ignored. # -%inbox +## incoming mail box for IMAP users +# %inbox + +## incoming mail box for POP users +# &USERNAME@POP3.EXAMPLE.COM + +## [ pipe folder might be useful for some users ] +## [ which get mails and take them in. ] +# |&USERNAME@POP3.EXAMPLE.COM|+inbox + +## trash, draft and queue +trash +draft -%#mh/Backup@my.imap.server.com -%#mh/spool/mm -# group definition -Emacsen{ - %#mh/spool/xemacs-beta - %#mh/spool/mew-dist - %#mh/spool/tm-ja - %#mh/spool/mule-win32 - -fj.news.reader.gnus@other.nntp.server.com -# multi folder -# following line defines multi folder of -fj.editor.xemacs,-fj.editor.mule, -# and -fj.editor.emacs. - *-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs - -gnu.emacs.sources -} -UNIX{ -# You can define multi level group. - BSD { - %#mh/spool/freebsd-users-jp - -fj.os.bsd.freebsd - -japan.comp.freebsd - %#mh/spool/bsd-nomads - -fj.os.bsd.misc - } - Linux { - -fj.os.linux - -japan.comp.linux - } --fj.kanji --fj.lang.perl --fj.unix --fj.questions.unix --fj.sys.sun --fj.sys.j3100 --comp.windows.x.i386unix --fj.comp.x11 -} -Television{ -%#mh/spool/tvdrama --fj.rec.tv --japan.tv --fj.rec.tv.cm --japan.tv.cm --fj.rec.idol --fj.rec.music -} -My folders { -INBOXes { -%inbox@localhost -# -# access group -# If there is '/' in the end of line, -# all subfolders are added to group -# -%#mh/expire@localhost / -} -# following definition adds all MH subfolders to group. ++queue + +## `$' marked important messages +'mark + +## MH folder ++inbox + +## MH folder via IMAP +# %#mh/inbox + +## NNTP folder +# -fj.os.bsd.freebsd +# -fj.mail.reader.mew +# -fj.news.reader.gnus + +## [ other NNTP server ] +# -jlug.ml.users@NEWS.EXAMPLE.NET +# -emacs.auc-tex@NEWS.EXAMPLE.ORG +# -ring.openlab.skk@NEWS.EXAMPLE.COM + + +## group definition +## [ folders between curly bracket are treated as in a group. ] +# Emacsen{ +# +to/wl +# +to/mew-dist +# +to/apel-ja +## [ You can define multi level group. ] +# XEmacs{ +# +to/xemacs-beta +# +to/xemacs-beta-ja +# +to/xemacs-mule +# } +# } + +## access group +## [ If there is '/' in the end of line, all subfolders are added to group. ] +## [ Use `C-u RET' for update access group. ] + / -%#mh@my.imap.server.com -} + +## access group for IMAP user +# % / diff --git a/samples/en/dot.wl b/samples/en/dot.wl index 7d17130..b7f2fe4 100644 --- a/samples/en/dot.wl +++ b/samples/en/dot.wl @@ -1,6 +1,6 @@ -;;; -*- emacs-lisp -*- -;;; ~/.wl (setting file for Wanderlust) -;;; +;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*- + +;; [[ Requirement Setting ]] ;; Following must be included in ~/.emacs ;; for .emacs begin @@ -9,73 +9,123 @@ (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) ;; for .emacs end +;; Icon directory (XEmacs and Emacs21 only) +;; (No need if installed as XEmacs package.) +;(setq wl-icon-dir "/usr/local/lib/emacs/etc") + + ;;; [[ Private Setting ]] -;; Header From +;; Header From: ;(setq wl-from "Your Name ") -;; Organization -;(setq wl-organization "") ;; User's mail addresses. (setq wl-user-mail-address-list (list (wl-address-header-extract-address wl-from) - ;;"e-mail2@example.com" ... + ;; "e-mail2@example.com" + ;; "e-mail3@example.net" ... )) -;;; [[ Basic Setting ]] +;; Subscribed mailing list. +(setq wl-subscribed-mailing-list + '("wl@lists.airs.net" + "apel-ja@m17n.org" + ;;"ml@example.com" ... + )) + + +;;; [[ Server Setting ]] -;; Home directory for MH (localdir) -(setq elmo-localdir-folder-path "~/Mail") ;; Default IMAP4 server -(setq elmo-default-imap4-server "localhost") +(setq elmo-imap4-default-server "localhost") ;; Default POP server -(setq elmo-default-pop3-server "localhost") -;; Default NNTP server -(setq elmo-default-nntp-server "localhost") -;; NNTP server name for posting -(setq wl-nntp-posting-server elmo-default-nntp-server) +(setq elmo-pop3-default-server "localhost") ;; SMTP server (setq wl-smtp-posting-server "localhost") - -;; Icon directory (XEmacs) -;; (No need if installed as XEmacs package.) -;(setq wl-icon-dir "~/work/wl/etc") +;; Default NNTP server +(setq elmo-nntp-default-server "localhost") +;; NNTP server name for posting +(setq wl-nntp-posting-server elmo-nntp-default-server) ;; If (system-name) does not return FQDN, ;; set following as a local domain name without hostname. ;; ((system-name) "." wl-local-domain is used as domain part of Message-ID ;; and an argument of HELO in SMTP. -;(setq wl-local-domain "localdomain") +;(setq wl-local-domain "example.com") + ;; Specific domain part for message-id. -;(setq wl-message-id-domain "localhost.localdomain") +;(setq wl-message-id-domain "hostname.example.com") + +;; IMAP authenticate type setting +(setq elmo-imap4-default-authenticate-type 'clear) ; raw +;(setq elmo-imap4-default-authenticate-type 'cram-md5) ; CRAM-MD5 + +;; POP-before-SMTP +;(setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp) + + +;;; [[ Basic Setting ]] + +;; Default folder for `wl-summary-goto-folder'. +;(setq wl-default-folder "+inbox") + +;; Default string for folder name completion. +;(setq wl-default-spec "+") + +;; Folder Carbon Copy +;(setq wl-fcc "+outbox") + +;; Confirm at exit time. +(setq wl-interactive-exit t) + +;; Confirm at message sending time. +(setq wl-interactive-send t) + +;; Create opened thread. +;(setq wl-thread-insert-opened t) + +;; folder mode and summary mode is displayed at the same time. (3pane) +;(setq wl-stay-folder-window t) + +;; Open new frame for draft buffer. +;(setq wl-draft-use-frame t) + +;; Disable inline display HTML part. +;; Put before (require 'mime-setup) +;(setq mime-setup-enable-inline-html nil) -;(setq wl-default-folder "+inbox") ;; Default folder for - ;; wl-summary-goto-folder. -;(setq wl-default-spec "+") ;; Default string for - ;; folder name completion. +;; Don't split large message. +;(setq mime-edit-split-message nil) -;(setq wl-fcc "+outbox") ;; Folder Carbon Copy +;; Thread divide when change subject. +;(setq wl-summary-divide-thread-when-subject-changed t) -(setq wl-interactive-exit t) ;; Confirm at exit time. -(setq wl-interactive-send t) ;; Confirm at message sending time. +;; Thread view +;(setq wl-thread-have-younger-brother-str "+" +; wl-thread-youngest-child-str "+" +; wl-thread-vertical-str "|" +; wl-thread-horizontal-str "-" +; wl-thread-space-str " ") -(setq wl-auto-select-first t) ;; display first message automatically. -(setq wl-auto-select-next t) ;; goto next folder when exit from - ;; summary. -;(setq wl-summary-next-no-unread 'skip-no-unread) - ;; folder is skipped if there is no - ;; unread. +;; display first message automatically. +;(setq wl-auto-select-first t) -(setq wl-summary-move-order 'unread) ;; jump to unread message in 'N' or 'P'. -(setq wl-thread-insert-opened t) ;; Create opened thread. +;; goto next folder when exit from summary. +;(setq wl-auto-select-next t) -;(setq wl-stay-folder-window t) ;; folder mode and summary mode is - ;; displayed at the same time. +;; folder is skipped if there is no unread. +;(setq wl-summary-next-no-unread 'skip-no-unread) + +;; jump to unread message in 'N' or 'P'. +;(setq wl-summary-move-order 'unread) + + +;;; [[ Network ]] ;; cache setting. ;; (messages in localdir, localnews, maildir are not cached.) ;(setq elmo-archive-use-cache nil) -;(setq elmo-nntp-use-cache nil) +;(setq elmo-nntp-use-cache t) ;(setq elmo-imap4-use-cache t) ;(setq elmo-pop3-use-cache t) @@ -84,7 +134,7 @@ ;; Store draft message in queue folder if message is sent in unplugged status. (setq wl-draft-enable-queuing t) -;; when plug status is changed from unplugged to plugged, +;; when plug status is changed from unplugged to plugged, ;; queued message is flushed automatically. (setq wl-auto-flush-queue t) @@ -98,143 +148,24 @@ ; )) -;; highlight setting (for light background) - -;; decide group folder color by number. -;(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) - )) -;; don't change color by citation level. -;(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)))) - -;; header. -(my-wl-set-face 'wl-highlight-message-subject-header-contents - '((t (:foreground "blue" :bold t)))) -(my-wl-set-face 'wl-highlight-message-from-header-contents - '((t (:foreground "red" :bold t)))) -(my-wl-set-face 'wl-highlight-message-important-header-contents - '((t (:foreground "purple" :bold t)))) -(my-wl-set-face 'wl-highlight-message-unimportant-header-contents - '((t (:foreground "RoyalBlue" :bold t)))) -(my-wl-set-face 'wl-highlight-message-headers - '((t (:foreground "magenta3" :bold t)))) -(my-wl-set-face 'wl-highlight-message-header-contents - '((t (:foreground "brown" :bold nil)))) -(my-wl-set-face 'wl-highlight-message-signature - '((t (:foreground "blue")))) -;; citation. -(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")))) -;; summary. -(my-wl-set-face 'wl-highlight-summary-important-face - '((t (:foreground "purple")))) -(my-wl-set-face 'wl-highlight-summary-new-face - '((t (:foreground "tomato")))) -(my-wl-set-face 'wl-highlight-summary-unread-face - '((t (:foreground "RoyalBlue")))) -(my-wl-set-face 'wl-highlight-summary-deleted-face - '((t (:foreground "gray")))) -(my-wl-set-face 'wl-highlight-summary-refiled-face - '((t (:foreground "blue")))) -(my-wl-set-face 'wl-highlight-summary-temp-face - '((t (:foreground "salmon")))) -(my-wl-set-face 'wl-highlight-summary-displaying-face - '((t (:bold t :underline t)))) -;; (thread) -(my-wl-set-face 'wl-highlight-summary-thread-top-face - '((t (:foreground "green4")))) -(my-wl-set-face 'wl-highlight-summary-normal-face - '((t (:foreground "SeaGreen")))) -;; folder -(my-wl-set-face 'wl-highlight-folder-unknown-face - '((t (:foreground "RoyalBlue")))) -(my-wl-set-face 'wl-highlight-folder-killed-face - '((t (:foreground "gray50")))) -(my-wl-set-face 'wl-highlight-folder-unread-face - '((t (:foreground "brown")))) -(my-wl-set-face 'wl-highlight-folder-zero-face - '((t (:foreground "blue4")))) -(my-wl-set-face 'wl-highlight-folder-few-face - '((t (:foreground "tomato")))) -(my-wl-set-face 'wl-highlight-folder-many-face - '((t (:foreground "HotPink1")))) -;; group -(my-wl-set-face 'wl-highlight-folder-opened-face - '((t (:foreground "forest green")))) -(my-wl-set-face 'wl-highlight-folder-closed-face - '((t (:foreground "DarkOliveGreen4")))) -;; demo -(my-wl-set-face 'wl-highlight-demo-face - '((t (:foreground "blue2")))) - - ;;; [[ Special Setting ]] -;; Subscribed mailing list. -(setq wl-subscribed-mailing-list - '("wl@lists.airs.net" - "apel-ja@m17n.org" - ;;"ml@example.com" ... - )) - -;; compress ~/elmo using jka-compr. -;(setq elmo-msgdb-overview-filename "overview.gz") -;(setq elmo-msgdb-number-filename "number.gz") -;(setq wl-summary-cache-file ".wl-summary-cache.gz") -;(setq wl-thread-top-file ".wl-thread-top.gz") - - ;; open unread group folder after checking. -(add-hook 'wl-folder-check-entity-hook - '(lambda () - (wl-folder-open-unread-folder entity) - )) +;(add-hook 'wl-folder-check-entity-hook +; '(lambda () +; (wl-folder-open-unread-folder entity) +; )) ;; Change summary display function. ;; get extra field values as overview information (only localdir folder). -(setq elmo-msgdb-extra-fields '("newsgroups" - "x-ml-name" - "x-mail-count" "x-ml-count" - "x-sequence" - "mailing-list")) - -;;; ML message displays ML name and ML sequence number in subject. -(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml) +(setq elmo-msgdb-extra-fields + '("newsgroups" + "list-id" "x-ml-name" "mailing-list" + "x-mail-count" "x-ml-count" "x-sequence")) + +;; ML message displays ML name and ML sequence number in subject. +(setq wl-summary-subject-function 'my-wl-summary-subject-func-ml) (defun my-wl-summary-subject-func-ml (subject-string) (let ((folder wl-summary-buffer-folder-name) (subj subject-string) (sequence) (ml-name) (ml-count)) @@ -251,7 +182,8 @@ (and sequence (cadr (split-string sequence " "))))) (if (string-match - "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" +;;; "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" + "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" subject-string) (progn (setq subj (substring subject-string (match-end 0))) @@ -272,8 +204,17 @@ ;; Don't forget setting ~/.im/Config (Smtpservers). ;; note that wl-draft-enable-queuing is not valid.) ;(autoload 'wl-draft-send-with-imput-async "im-wl") -;(setq wl-draft-send-func 'wl-draft-send-with-imput-async) +;(setq wl-draft-send-function 'wl-draft-send-with-imput-async) + +;; non-verbose User-Agent: field +;(setq wl-generate-mailer-string-function +; (function +; (lambda () +; (wl-generate-user-agent-string-1 nil)))) + + +;;; [[ Template ]] ;; template (setq wl-template-alist @@ -294,65 +235,73 @@ "^To: .*\\(test-notsend-wl@lists.airs.net\\)" (template . "default")) ;; template ("^To: .*\\(test-notsend-wl@lists.airs.net\\)" - wl-ml-draft-config-func ;; function + wl-ml-draft-config-function ;; function ("From" . wl-from) ;; variable ("Organization" . "~/.wl sample")) ;; string ("^Newsgroups: test.*" ("Organization" . "organization for nntp.")) )) + ;; Change headers in draft preparation time. -; (add-hook 'wl-mail-setup-hook -; '(lambda () -; (unless wl-draft-reedit ;; don't apply when reedit. -; (wl-draft-config-exec wl-draft-config-alist)))) +;(add-hook 'wl-mail-setup-hook +; '(lambda () +; (unless wl-draft-reedit; ; don't apply when reedit. +; (wl-draft-config-exec wl-draft-config-alist)))) + +;; [[ Reply ]] ;; header value setting for mail reply. +;; Wide window for draft buffer. +;(setq wl-draft-reply-buffer-style 'full) + +;; Remove fullname in reply message header. +;(setq wl-draft-reply-use-address-with-full-name nil) + ;; "a" (without-argument) reply to author (Reply-To or From). ;; if 'X-ML-Name' and 'Reply-To' exists, reply to 'Reply-To'. -; (setq wl-draft-reply-without-argument-list -; '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) -; ("X-ML-Name" . (("To" "Cc") nil nil)) -; ("Followup-To" . (nil nil ("Followup-To"))) -; ("Newsgroups" . (nil nil ("Newsgroups"))) -; ("Reply-To" . (("Reply-To") nil nil)) -; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) -; ("From" . (("From") nil nil)))) -; +(setq wl-draft-reply-without-argument-list + '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) + ("X-ML-Name" . (("To" "Cc") nil nil)) + ("Followup-To" . (nil nil ("Followup-To"))) + ("Newsgroups" . (nil nil ("Newsgroups"))) + ("Reply-To" . (("Reply-To") nil nil)) + ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) + ("From" . (("From") nil nil)))) + ;; "C-u a" (with-argument) reply to all. -; (setq wl-draft-reply-with-argument-list -; '(("Followup-To" . (("From") nil ("Followup-To"))) -; ("Newsgroups" . (("From") nil ("Newsgroups"))) -; ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) -; ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) +(setq wl-draft-reply-with-argument-list + '(("Followup-To" . (("From") nil ("Followup-To"))) + ("Newsgroups" . (("From") nil ("Newsgroups"))) + ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) + ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) ;; X-Face (requires x-face (and x-face-mule)) - (when (and window-system (module-installed-p 'x-face)) - (cond (wl-on-xemacs ;; for XEmacs + (cond (wl-on-xemacs ;; for XEmacs (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t) - (setq wl-highlight-x-face-func + (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)) - ((module-installed-p 'x-face-mule) ;; for Mule (GNU Emacs) - ;; after x-face-mule 0.20 - (setq wl-highlight-x-face-func + ;; for Mule (GNU Emacs) + ((module-installed-p 'x-face-mule) + ;; x-face-mule 0.20 or later + (setq wl-highlight-x-face-function (function - (lambda (&optional beg end) ; for compatibility + (lambda (&rest dummy) (x-face-decode-message-header)))) - (setq x-face-mule-highlight-x-face-style 'xmas) - (require 'x-face-mule) - ))) + (require 'x-face-mule)) + )) ;; rule for auto refile. ;(setq wl-refile-rule-alist ; '( -; ("x-ml-name" -; ("^Wanderlust" . "+wl") -; ("^Elisp" . "+elisp")) -; ("From" -; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) +; ("x-ml-name" +; ("^Wanderlust" . "+wl") +; ("^Elisp" . "+elisp")) +; ("From" +; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) ;; Marks to skip auto-refile (default is "N" "U" "!"). ;; nil means all message is auto-refiled. @@ -360,16 +309,14 @@ ;; Scoring. ;; "all.SCORE" file is used regardless of wl-score-folder-alist. -; (setq wl-score-folder-alist -; '(("^-comp\\." -; "news.comp.SCORE" -; "news.SCORE") -; ("^-" -; "news.SCORE"))) +;(setq wl-score-folder-alist +; '(("^-comp\\." +; "news.comp.SCORE" +; "news.SCORE") +; ("^-" +; "news.SCORE"))) + ;; directory for storing score files. ; (setq wl-score-files-directory "~/.elmo/") - -;;; -;;; end of file -;;; +;;; dot.wl ends here diff --git a/samples/ja/dot.addresses b/samples/ja/dot.addresses index 40c0d51..8b1b84c 100644 --- a/samples/ja/dot.addresses +++ b/samples/ja/dot.addresses @@ -1,13 +1,14 @@ # -# アドレスファイルサンプル -# by Yuuichi Teranishi -# Time-stamp: <98/06/15 00:32:30 teranisi> +# ~/.addresses アドレス帳ファイルサンプル # # '#' で始まる行はコメント。 # 空行は無視。 # +# 書式: # メールアドレス "あだ名" "本名" # +# あだ名はサマリの表示に、本名は To: フィールドに使われます。 +# teranisi@gohome.org "てらにし" "寺西裕一" -foo@bar.com "ふーさん" "Mr. Foo" -bar@foo.com "ばーさん" "Mr. Bar" +foo@example.com "ふーさん" "John Foo" +bar@example.org "ばーさん" "Michael Bar" diff --git a/samples/ja/dot.folders b/samples/ja/dot.folders index d3f722d..5ba69a7 100644 --- a/samples/ja/dot.folders +++ b/samples/ja/dot.folders @@ -1,73 +1,66 @@ # -# フォルダ定義ファイルサンプル -# by Yuuichi Teranishi -# Time-stamp: <98/10/02 18:31:06 teranisi> +# ~/.folders フォルダ定義ファイルサンプル +# +# 個々のフォルダの書式については Info の Folders セクションを参照のこと。 # # '#' で始まる行はコメント。 -# 空行は無視。 +# 空行は無視される。 # -# 個々のフォルダの書式については info を参照のこと。 -# -%inbox +## IMAP ユーザのメールボックス +# %inbox + +## POP ユーザのメールボックス +# &USERNAME@POPSERVER.EXAMPLE.COM + +## [ POP ユーザにはパイプフォルダが役に立ちます ] +## [ パイプフォルダを使えば、メールを取り込むことが可能です ] +# |&USERNAME@POPSERVER.EXAMPLE.COM|+inbox + +## ゴミ箱・草稿・送信箱 +trash +draft -%#mh/Backup@my.imap.server.com -%#mh/spool/mm -# グループの定義 -Emacsen{ - %#mh/spool/xemacs-beta - %#mh/spool/mew-dist - %#mh/spool/tm-ja - %#mh/spool/mule-win32 - -fj.news.reader.gnus@other.nntp.server.com -# マルチフォルダ(複数のフォルダを仮想的に一つに見えるようにするフォルダ) -# 次の行は -fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs を一つにする例 - *-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs - -gnu.emacs.sources -} -UNIX 関連{ -# グループの入れ子も可 - BSD { - %#mh/spool/freebsd-users-jp - -fj.os.bsd.freebsd - -japan.comp.freebsd - %#mh/spool/bsd-nomads - -fj.os.bsd.misc - } - Linux { - -fj.os.linux - -japan.comp.linux - } --fj.kanji --fj.lang.perl --fj.unix --fj.questions.unix --fj.sys.sun --fj.sys.j3100 --comp.windows.x.i386unix --fj.comp.x11 -} -芸能音楽{ -%#mh/spool/tvdrama --fj.rec.tv --japan.tv --fj.rec.tv.cm --japan.tv.cm --fj.rec.idol --fj.rec.music -} -マイフォルダー { -INBOXes { -%inbox@localhost -# -# アクセスグループ -# 行末に '/' がつくと、そのフォルダに含まれるサブフォルダ全てが -# ひとつのグループとなる。 -# -%#mh/expire@localhost / -} -# MH のフォルダ全てをひとつのグループにする例。 ++queue + +## 重要マーク `$' のついたメッセージをまとめる +'mark + +## MH フォルダ ++inbox + +## IMAP サーバ越しに MH folder にアクセス +# %#mh/inbox + +## NNTP フォルダ +# -fj.os.bsd.freebsd +# -fj.mail.reader.mew +# -fj.news.reader.gnus + +## [ 他の NNTP サーバ上のニューズグループ ] +# -jlug.ml.users@NEWS.EXAMPLE.NET +# -emacs.auc-tex@NEWS.EXAMPLE.ORG +# -ring.openlab.skk@NEWS.EXAMPLE.COM + + +## グループの定義 +## [ フォルダを波括弧でくくってグループにする ] +# Emacsen{ +# +to/wl +# +to/mew-dist +# +to/apel-ja +## [ グループの入れ子も可能 ] +# XEmacs{ +# +to/xemacs-beta +# +to/xemacs-beta-ja +# +to/xemacs-mule +# } +# } + +## アクセスグループ +## [ 行末に '/' がつくと、そのフォルダに含まれるサブフォルダ全てが ] +## [ ひとつのグループとなる。] +## [ `C-u RET' でアクセスグループを開くと更新できる。 ] + / -%#mh@my.imap.server.com -} + +## IMAP フォルダのアクセスグループの例 +# % / diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index 3eb338c..01bfee6 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -1,78 +1,129 @@ -;;; -*- emacs-lisp -*- -;;; ~/.wl (setting file for Wanderlust) -;;; +;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*- -;; まず，次の設定を ~/.emacs などに書いてください。 +;; [[ 動作に必要な設定 ]] + +;; まず、次の設定を ~/.emacs などに書いてください。 ;; ここから (require 'mime-setup) (autoload 'wl "wl" "Wanderlust" t) (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) ;; ここまで +;; アイコンを置くディレクトリ (XEmacs, Emacs21 のみ) +;; XEmacs の package としてインストールされている場合は必要ありません。 +;(setq wl-icon-dir "/usr/local/lib/emacs/etc") + + ;;; [[ 個人情報の設定 ]] -;; From の設定 +;; From: の設定 ;(setq wl-from "Your Name ") -;; Organization の設定 -;(setq wl-organization "") ;; 自分のメールアドレスのリスト (setq wl-user-mail-address-list (list (wl-address-header-extract-address wl-from) - ;;"e-mail2@example.com" ... + ;; "e-mail2@example.com" + ;; "e-mail3@example.net" ... )) -;;; [[ 基本的な設定 ]] +;; 自分の参加しているメーリングリストのリスト +(setq wl-subscribed-mailing-list + '("wl@lists.airs.net" + "apel-ja@m17n.org" + "emacs-mime-ja@m17n.org" + ;; "ml@example.com" ... + )) + -;; MH (localdir) のホーム -(setq elmo-localdir-folder-path "~/Mail") -;; IMAP4サーバの設定 -(setq elmo-default-imap4-server "localhost") -;; POPサーバの設定 -(setq elmo-default-pop3-server "localhost") +;;; [[ サーバの設定 ]] + +;; IMAP サーバの設定 +(setq elmo-imap4-default-server "localhost") +;; POP サーバの設定 +(setq elmo-pop3-default-server "localhost") +;; SMTP サーバの設定 +(setq wl-posting-smtp-server "localhost") ;; ニュースサーバの設定 -(setq elmo-default-nntp-server "localhost") -;; 投稿先の ニュースサーバ -(setq wl-nntp-posting-server elmo-default-nntp-server) -;; メールを送信する先の (SMTP)サーバ -(setq wl-smtp-posting-server "localhost") - -;; アイコンを置くディレクトリ (XEmacs のみ) -;; (XEmacs の package としてインストールされている場合、必要ありません) -;(setq wl-icon-dir "~/work/wl/etc") - -;; (system-name) がFQDNを返さない場合、 -;; 以下をホスト名を除いたドメイン名を設定してください。 -;; ((system-name) "." wl-local-domain が Message-ID の作成、 -;; SMTP の HELO に使用 されます。) -;(setq wl-local-domain "localdomain") +(setq elmo-nntp-default-server "localhost") +;; 投稿先のニュースサーバ +(setq wl-nntp-posting-server elmo-nntp-default-server) + +;; (system-name) が FQDN を返さない場合、 +;; `wl-local-domain' にホスト名を除いたドメイン名を設定してください。 +;; (system-name) "." wl-local-domain が Message-ID に使用されます。 +;(setq wl-local-domain "example.com") + ;; Message-ID のドメインパートを強制的に指定 -;(setq wl-message-id-domain "localhost.localdomain") +;(setq wl-message-id-domain "hostname.example.com") + +;; IMAP サーバの認証方式の設定 +(setq elmo-imap4-default-authenticate-type 'clear) ; 生パスワード +;(setq elmo-imap4-default-authenticate-type 'cram-md5) ; CRAM-MD5 + +;; POP-before-SMTP +;(setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp) + + +;;; [[ 基本的な設定 ]] + +;; `wl-summary-goto-folder' の時に選択するデフォルトのフォルダ +;(setq wl-default-folder "+inbox") + +;; フォルダ名補完時に使用するデフォルトのスペック +;(setq wl-default-spec "+") + +;; Folder Carbon Copy +;(setq wl-fcc "+outbox") + +;; 終了時に確認する +(setq wl-interactive-exit t) + +;; メール送信時には確認する +(setq wl-interactive-send t) + +;; スレッドは常に開く +;(setq wl-thread-insert-opened t) + +;; サマリバッファの左にフォルダバッファを表示する (3ペイン表示) +;(setq wl-stay-folder-window t) + +;; ドラフトを新しいフレームで書く +;(setq wl-draft-use-frame t) + +;; HTML パートを表示しない +;; (require 'mime-setup) より先に記述する必要があります。 +;(setq mime-setup-enable-inline-html nil) + +;; 大きいメッセージを送信時に分割しない +;(setq mime-edit-split-message nil) + +;; サブジェクトが変わったらスレッドを切って表示 +;(setq wl-summary-divide-thread-when-subject-changed t) + +;; スレッドの見た目を変える +;(setq wl-thread-have-younger-brother-str "+" +; wl-thread-youngest-child-str "+" +; wl-thread-vertical-str "|" +; wl-thread-horizontal-str "-" +; wl-thread-space-str " ") -;(setq wl-default-folder "+inbox") ;; wl-summary-goto-folder の時に選択する - ;; デフォルトのフォルダ -;(setq wl-default-spec "+") ;; フォルダ名補完時に使用する - ;; デフォルトのスペック +;; サマリ移動後に先頭メッセージを表示する +;(setq wl-auto-select-first t) -;(setq wl-fcc "+outbox") ;; Folder Carbon Copy +;; サマリ内の移動で未読メッセージがないと次のフォルダに移動する +;(setq wl-auto-select-next t) -(setq wl-interactive-exit t) ;; 終了時に確認する -(setq wl-interactive-send t) ;; メール送信時には確認する +;; 未読がないフォルダは飛ばす(SPCキーだけで読み進める場合は便利) +;(setq wl-summary-next-no-unread 'skip-no-unread) -(setq wl-auto-select-first t) ;; サマリ移動後に先頭メッセージを表示する -(setq wl-auto-select-next t) ;; サマリ内の移動で未読メッセージがないと - ;; 次のフォルダに移動する -;(setq wl-auto-select-next 'skip-no-unread) - ;; 未読がないフォルダは飛ばす - ;; SPCキーだけで読み進める場合は便利 -(setq wl-summary-move-order 'unread) ;; 未読メッセージを優先的に読む -(setq wl-thread-insert-opened t) ;; thread作成時は常にopenにする +;; 未読メッセージを優先的に読む +;(setq wl-summary-move-order 'unread) -;(setq wl-stay-folder-window t) ;; サマリに移動したときにフォルダバッファ - ;; の右にサマリのバッファを表示する + +;;; [[ ネットワーク ]] ;; フォルダ種別ごとのキャッシュの設定 -;; (localdir, localnews, maildir はキャッシュしない) +;; (localdir, localnews, maildir はキャッシュできない) ;(setq elmo-archive-use-cache nil) ;(setq elmo-nntp-use-cache t) ;(setq elmo-imap4-use-cache t) @@ -83,7 +134,7 @@ ;; unplugged 状態で送信すると，キュー(`wl-queue-folder')に格納する (setq wl-draft-enable-queuing t) -;; unplugged から plugged に変えると，キューにあるメッセージを送信する +;; unplugged から plugged に変えたときに，キューにあるメッセージを送信する (setq wl-auto-flush-queue t) ;; 起動時はオフライン状態にする @@ -99,146 +150,27 @@ ; )) -;; highlightの設定 (明るい背景色の場合です) - -;; グループを未読数により色分けしない。開閉状態により色分けする。 -;(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-subject-header-contents - '((t (:foreground "blue" :bold t)))) -(my-wl-set-face 'wl-highlight-message-from-header-contents - '((t (:foreground "red" :bold t)))) -(my-wl-set-face 'wl-highlight-message-important-header-contents - '((t (:foreground "purple" :bold t)))) -(my-wl-set-face 'wl-highlight-message-unimportant-header-contents - '((t (:foreground "RoyalBlue" :bold t)))) -(my-wl-set-face 'wl-highlight-message-headers - '((t (:foreground "magenta3" :bold t)))) -(my-wl-set-face 'wl-highlight-message-header-contents - '((t (:foreground "brown" :bold nil)))) -(my-wl-set-face 'wl-highlight-message-signature - '((t (:foreground "blue")))) -;; 引用 -(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")))) -;; サマリ -(my-wl-set-face 'wl-highlight-summary-important-face - '((t (:foreground "purple")))) -(my-wl-set-face 'wl-highlight-summary-new-face - '((t (:foreground "tomato")))) -(my-wl-set-face 'wl-highlight-summary-unread-face - '((t (:foreground "RoyalBlue")))) -(my-wl-set-face 'wl-highlight-summary-deleted-face - '((t (:foreground "gray")))) -(my-wl-set-face 'wl-highlight-summary-refiled-face - '((t (:foreground "blue")))) -(my-wl-set-face 'wl-highlight-summary-temp-face - '((t (:foreground "salmon")))) -(my-wl-set-face 'wl-highlight-summary-displaying-face - '((t (:bold t :underline t)))) -;; (スレッド) -(my-wl-set-face 'wl-highlight-summary-thread-top-face - '((t (:foreground "green4")))) -(my-wl-set-face 'wl-highlight-summary-normal-face - '((t (:foreground "SeaGreen")))) -;; フォルダ -(my-wl-set-face 'wl-highlight-folder-unknown-face - '((t (:foreground "RoyalBlue")))) -(my-wl-set-face 'wl-highlight-folder-killed-face - '((t (:foreground "gray50")))) -(my-wl-set-face 'wl-highlight-folder-unread-face - '((t (:foreground "brown")))) -(my-wl-set-face 'wl-highlight-folder-zero-face - '((t (:foreground "blue4")))) -(my-wl-set-face 'wl-highlight-folder-few-face - '((t (:foreground "tomato")))) -(my-wl-set-face 'wl-highlight-folder-many-face - '((t (:foreground "HotPink1")))) -;; グループ -(my-wl-set-face 'wl-highlight-folder-opened-face - '((t (:foreground "forest green")))) -(my-wl-set-face 'wl-highlight-folder-closed-face - '((t (:foreground "DarkOliveGreen4")))) -;; スタートアップデモ -(my-wl-set-face 'wl-highlight-demo-face - '((t (:foreground "blue2")))) - - ;;; [[ 特殊な設定 ]] -;; 自分の参加しているメーリングリストのリスト -(setq wl-subscribed-mailing-list - '("wl@lists.airs.net" - "apel-ja@m17n.org" - ;;"ml@example.com" ... - )) - -;; jka-compr を利用して ~/elmo/SPEC/ 以下のデータベースを圧縮する -;(setq elmo-msgdb-overview-filename "overview.gz") -;(setq elmo-msgdb-number-filename "number.gz") -;(setq wl-summary-cache-file ".wl-summary-cache.gz") -;(setq wl-thread-top-file ".wl-thread-top.gz") - - ;; グループをcheckした後に未読があるフォルダのグループを自動的に開く -(add-hook 'wl-folder-check-entity-hook - '(lambda () - (wl-folder-open-unread-folder entity) - )) +;(add-hook 'wl-folder-check-entity-hook +; '(lambda () +; (wl-folder-open-unread-folder entity) +; )) ;; サマリ表示関数を変更する ;; サマリ表示において使用する情報を持つフィールドをoverview情報に ;; 入れる設定(ただし，localフォルダのみ) ;; 自動リファイルに必要なフィールドも設定 -(setq elmo-msgdb-extra-fields '("newsgroups" - "x-ml-name" - "x-mail-count" "x-ml-count" - "x-sequence" - "mailing-list")) - -;;; ML のメッセージであれば，サマリの Subject 表示に -;;; ML名 や MLにおけるメッセージ番号も表示する -(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml) +(setq elmo-msgdb-extra-fields + '("newsgroups" + "list-id" "x-ml-name" "mailing-list" + "x-mail-count" "x-ml-count" "x-sequence")) + +;; ML のメッセージであれば，サマリの Subject 表示に +;; ML名 や MLにおけるメッセージ番号も表示する +(setq wl-summary-subject-function 'my-wl-summary-subject-func-ml) (defun my-wl-summary-subject-func-ml (subject-string) (let ((folder wl-summary-buffer-folder-name) (subj subject-string) (sequence) (ml-name) (ml-count)) @@ -255,7 +187,8 @@ (and sequence (cadr (split-string sequence " "))))) (if (string-match - "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" +;;; "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" + "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" subject-string) (progn (setq subj (substring subject-string (match-end 0))) @@ -276,19 +209,29 @@ ;; また，~/.im/Config の設定(Smtpservers)を忘れないことと， ;; wl-draft-enable-queuing の機能が働かなくなることに注意。) ;(autoload 'wl-draft-send-with-imput-async "im-wl") -;(setq wl-draft-send-func 'wl-draft-send-with-imput-async) +;(setq wl-draft-send-function 'wl-draft-send-with-imput-async) + + +;; 短い User-Agent: フィールドを使う +;(setq wl-generate-mailer-string-function +; (function +; (lambda () +; (wl-generate-user-agent-string-1 nil)))) + + +;;; [[ テンプレート ]] ;; テンプレートの設定 (setq wl-template-alist '(("default" ("From" . wl-from) ("Organization" . "~/.wl sample") - (body . " ○○です。\n")) ;; 本文 + (body . " ○○です。\n")) ; 本文 ("report" ("To" . "boss@example.com") ("Subject" . "報告") - (top . "今週の報告です。\n") ;; 本文先頭への挿入 -;; (bottom-file . "~/work/report.txt") ;; 本文末尾へファイルの挿入 + (top . "今週の報告です。\n") ; 本文先頭への挿入 +;; (bottom-file . "~/work/report.txt") ; 本文末尾へファイルの挿入 ) )) @@ -297,72 +240,80 @@ (setq wl-draft-config-alist '((reply ;; 返信元のバッファを見る "^To: .*\\(test-notsend-wl@lists.airs.net\\)" - (template . "default")) ;; テンプレート + (template . "default")) ; テンプレート ("^To: .*\\(test-notsend-wl@lists.airs.net\\)" - wl-ml-draft-config-func ;; 関数 - ("From" . wl-from) ;; 変数 - ("Organization" . "~/.wl sample")) ;; 文字列 + wl-ml-draft-config-function ; 関数 + ("From" . wl-from) ; 変数 + ("Organization" . "~/.wl sample")) ; 文字列 ("^Newsgroups: test.*" ("Organization" . "ニュース投稿時の組織名")) )) + ;; ドラフト作成時(返信時)に，自動的にヘッダを変更する -; (add-hook 'wl-mail-setup-hook -; '(lambda () -; (unless wl-draft-reedit ;; 再編集時は適用しない -; (wl-draft-config-exec wl-draft-config-alist)))) +;(add-hook 'wl-mail-setup-hook +; '(lambda () +; (unless wl-draft-reedit ; 再編集時は適用しない +; (wl-draft-config-exec wl-draft-config-alist)))) -;; メールの返信時に宛先を付ける方針の設定 +;;; [[ 返信時の設定 ]] + +;; 返信時のウィンドウを広くする +;(setq wl-draft-reply-buffer-style 'full) + +;; 返信時のヘッダに相手の名前を入れない。 +;(setq wl-draft-reply-use-address-with-full-name nil) + +;; メールの返信時に宛先を付ける方針の設定 ;; 下記変数の alist の要素 -;; ('返信元に存在するフィールド' . +;; ("返信元に存在するフィールド" . ;; ('Toフィールド' 'Ccフィールド' 'Newsgroupsフィールド')) -;; "a" (without-argument)では Reply-To や From などで指定された唯一人 -;; または唯一つの投稿先に返信する。また，X-ML-Name と Reply-To がつい -;; ているなら Reply-To 宛にする。 -; (setq wl-draft-reply-without-argument-list -; '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) -; ("X-ML-Name" . (("To" "Cc") nil nil)) -; ("Followup-To" . (nil nil ("Followup-To"))) -; ("Newsgroups" . (nil nil ("Newsgroups"))) -; ("Reply-To" . (("Reply-To") nil nil)) -; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) -; ("From" . (("From") nil nil)))) -; +;; "a" (without-argument)では Reply-To: や From: などで指定された唯一人 +;; または唯一つの投稿先に返信する。また，X-ML-Name: と Reply-To: がつい +;; ているなら Reply-To: 宛にする。 +(setq wl-draft-reply-without-argument-list + '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) + ("X-ML-Name" . (("To" "Cc") nil nil)) + ("Followup-To" . (nil nil ("Followup-To"))) + ("Newsgroups" . (nil nil ("Newsgroups"))) + ("Reply-To" . (("Reply-To") nil nil)) + ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) + ("From" . (("From") nil nil)))) + ;; "C-u a" (with-argument)であれば関係する全ての人・投稿先に返信する。 -; (setq wl-draft-reply-with-argument-list -; '(("Followup-To" . (("From") nil ("Followup-To"))) -; ("Newsgroups" . (("From") nil ("Newsgroups"))) -; ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) -; ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) +(setq wl-draft-reply-with-argument-list + '(("Followup-To" . (("From") nil ("Followup-To"))) + ("Newsgroups" . (("From") nil ("Newsgroups"))) + ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) + ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) ;; X-Face を表示する (要 x-face (and x-face-mule)) - (when (and window-system (module-installed-p 'x-face)) - (cond (wl-on-xemacs ;; for XEmacs + (cond (wl-on-xemacs ;; for XEmacs (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t) - (setq wl-highlight-x-face-func + (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)) - ((module-installed-p 'x-face-mule) ;; for Mule (GNU Emacs) - ;; x-face-mule 0.20以後 - (setq wl-highlight-x-face-func + ;; for Mule (GNU Emacs) + ((module-installed-p 'x-face-mule) + ;; x-face-mule 0.20以降 + (setq wl-highlight-x-face-function (function - (lambda (&optional beg end) ; for compatibility + (lambda (&rest dummy) (x-face-decode-message-header)))) - (setq x-face-mule-highlight-x-face-style 'xmas) - (require 'x-face-mule) - ))) + (require 'x-face-mule)) + )) ;; 自動リファイルのルール設定 ;(setq wl-refile-rule-alist ; '( -; ("x-ml-name" -; ("^Wanderlust" . "+wl") -; ("^Elisp" . "+elisp")) -; ("From" -; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) +; ("x-ml-name" +; ("^Wanderlust" . "+wl") +; ("^Elisp" . "+elisp")) +; ("From" +; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) ;; 自動リファイルしない永続マークを設定 ;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし @@ -370,16 +321,15 @@ ;(setq wl-summary-auto-refile-skip-marks nil) ;; スコア機能の設定 -;; wl-score-folder-alist の設定に関わらず必ず "all.SCORE" は使用される。 -; (setq wl-score-folder-alist -; '(("^-comp\\." -; "news.comp.SCORE" -; "news.SCORE") -; ("^-" -; "news.SCORE"))) -;; スコアファイルを置くディレクトリ +;; `wl-score-folder-alist' の設定に関わらず必ず "all.SCORE" は使用される。 +;(setq wl-score-folder-alist +; '(("^-comp\\." +; "news.comp.SCORE" +; "news.SCORE") +; ("^-" +; "news.SCORE"))) + +;; スコアファイルを保存するディレクトリ ; (setq wl-score-files-directory "~/.elmo/") -;;; -;;; end of file -;;; +;;; dot.wl ends here