From: kaoru Date: Sun, 9 Sep 2001 20:39:49 +0000 (+0000) Subject: Fixed typo. X-Git-Tag: wl-2_7_4~39 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=15b6214e9633aa0d0a18a84d5136b8ec9e8cedf7;p=elisp%2Fwanderlust.git Fixed typo. (SEMI Settings, Message Display Settings): Added. (wl-message-ignored-field-list, wl-message-visible-field-list): Added. --- diff --git a/samples/en/dot.wl b/samples/en/dot.wl index b7f2fe4..0501345 100644 --- a/samples/en/dot.wl +++ b/samples/en/dot.wl @@ -1,5 +1,18 @@ ;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*- +;; [[ SEMI Setting ]] + +;; Disable inline display HTML part. +;; Put before (require 'mime-setup) +(setq mime-setup-enable-inline-html nil) + +;; Don't split large message. +(setq mime-edit-split-message nil) + +;; If lines of message is larger than this value, message is `large'. +;(setq mime-edit-message-default-max-lines 1000) + + ;; [[ Requirement Setting ]] ;; Following must be included in ~/.emacs @@ -33,6 +46,15 @@ ;;"ml@example.com" ... )) +;; 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 "example.com") + +;; Specific domain part for message-id. +;(setq wl-message-id-domain "hostname.example.com") + ;;; [[ Server Setting ]] @@ -47,15 +69,6 @@ ;; 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 "example.com") - -;; Specific domain part for message-id. -;(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 @@ -90,13 +103,6 @@ ;; 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) - -;; Don't split large message. -;(setq mime-edit-split-message nil) - ;; Thread divide when change subject. ;(setq wl-summary-divide-thread-when-subject-changed t) @@ -277,13 +283,26 @@ ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) +;;; [[ Message Display Settings ]] + +;; Hidden header field in message buffer. +(setq wl-message-ignored-field-list + '(".*Received:" ".*Path:" ".*Id:" "^References:" + "^Replied:" "^Errors-To:" + "^Lines:" "^Sender:" ".*Host:" "^Xref:" + "^Content-Type:" "^Precedence:" + "^Status:" "^X-VM-.*:")) + +;; Displayed header field in message buffer. +;; This value precedes `wl-message-ignored-field-list' +(setq wl-message-visible-field-list '("^Message-Id:")) + ;; 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 ((featurep 'xemacs) ; for XEmacs (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t) - (setq wl-highlight-x-face-function - 'x-face-xmas-wl-display-x-face)) + (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)) ;; for Mule (GNU Emacs) ((module-installed-p 'x-face-mule) ;; x-face-mule 0.20 or later @@ -294,6 +313,18 @@ (require 'x-face-mule)) )) +;; 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"))) + +;; directory for storing score files. +; (setq wl-score-files-directory "~/.elmo/") + ;; rule for auto refile. ;(setq wl-refile-rule-alist ; '( @@ -307,16 +338,4 @@ ;; nil means all message is auto-refiled. ;(setq wl-summary-auto-refile-skip-marks nil) -;; 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"))) - -;; directory for storing score files. -; (setq wl-score-files-directory "~/.elmo/") - ;;; dot.wl ends here diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index 7b36b76..6ef270c 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -1,5 +1,18 @@ ;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*- +;; [[ SEMI の設定 ]] + +;; HTML パートを表示しない +;; (require 'mime-setup) より先に記述する必要があります。 +(setq mime-setup-enable-inline-html nil) + +;; 大きいメッセージを送信時に分割しない +(setq mime-edit-split-message nil) + +;; 大きいメッセージとみなす行数の設定 +;(setq mime-edit-message-default-max-lines 1000) + + ;; [[ 動作に必要な設定 ]] ;; まず、次の設定を ~/.emacs などに書いてください。 @@ -34,6 +47,14 @@ ;; "ml@example.com" ... )) +;; (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 "hostname.example.com") + ;;; [[ サーバの設定 ]] @@ -48,14 +69,6 @@ ;; 投稿先のニュースサーバ (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 "hostname.example.com") - ;; IMAP サーバの認証方式の設定 (setq elmo-imap4-default-authenticate-type 'clear) ; 生パスワード ;(setq elmo-imap4-default-authenticate-type 'cram-md5) ; CRAM-MD5 @@ -90,13 +103,6 @@ ;; ドラフトを新しいフレームで書く ;(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) @@ -289,13 +295,27 @@ ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) +;;; [[ メッセージ表示の設定 ]] + +;; 隠したいヘッダの設定 +(setq wl-message-ignored-field-list + '(".*Received:" ".*Path:" ".*Id:" "^References:" + "^Replied:" "^Errors-To:" + "^Lines:" "^Sender:" ".*Host:" "^Xref:" + "^Content-Type:" "^Precedence:" + "^Status:" "^X-VM-.*:")) + +;; 表示するヘッダの設定 +;; 'wl-message-ignored-field-list' より優先される +(setq mime-view-visible-field-list '("^Message-Id:")) + + ;; X-Face を表示する (要 x-face (and x-face-mule)) (when (and window-system (module-installed-p 'x-face)) - (cond (wl-on-xemacs ;; for XEmacs + (cond ((featurep 'xemacs) (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t) - (setq wl-highlight-x-face-function - 'x-face-xmas-wl-display-x-face)) + (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)) ;; for Mule (GNU Emacs) ((module-installed-p 'x-face-mule) ;; x-face-mule 0.20以降 @@ -306,6 +326,19 @@ (require 'x-face-mule)) )) +;; スコア機能の設定 +;; `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/") + + ;; 自動リファイルのルール設定 ;(setq wl-refile-rule-alist ; '( @@ -320,16 +353,5 @@ ;; ません。nil ですべてのメッセージが対象になります。 ;(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"))) - -;; スコアファイルを保存するディレクトリ -; (setq wl-score-files-directory "~/.elmo/") ;;; dot.wl ends here