;;; 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
;;"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 ]]
;; 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
;; 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)
("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
(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
; '(
;; 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
;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*-
+;; [[ SEMI \e$B$N@_Dj\e(B ]]
+
+;; HTML \e$B%Q!<%H$rI=<($7$J$$\e(B
+;; (require 'mime-setup) \e$B$h$j@h$K5-=R$9$kI,MW$,$"$j$^$9!#\e(B
+(setq mime-setup-enable-inline-html nil)
+
+;; \e$BBg$-$$%a%C%;!<%8$rAw?.;~$KJ,3d$7$J$$\e(B
+(setq mime-edit-split-message nil)
+
+;; \e$BBg$-$$%a%C%;!<%8$H$_$J$99T?t$N@_Dj\e(B
+;(setq mime-edit-message-default-max-lines 1000)
+
+
;; [[ \e$BF0:n$KI,MW$J@_Dj\e(B ]]
;; \e$B$^$:!"<!$N@_Dj$r\e(B ~/.emacs \e$B$J$I$K=q$$$F$/$@$5$$!#\e(B
;; "ml@example.com" ...
))
+;; (system-name) \e$B$,\e(B FQDN \e$B$rJV$5$J$$>l9g!"\e(B
+;; `wl-local-domain' \e$B$K%[%9%HL>$r=|$$$?%I%a%$%sL>$r@_Dj$7$F$/$@$5$$!#\e(B
+;; (system-name) "." wl-local-domain \e$B$,\e(B Message-ID \e$B$K;HMQ$5$l$^$9!#\e(B
+;(setq wl-local-domain "example.com")
+
+;; Message-ID \e$B$N%I%a%$%s%Q!<%H$r6/@)E*$K;XDj\e(B
+;(setq wl-message-id-domain "hostname.example.com")
+
;;; [[ \e$B%5!<%P$N@_Dj\e(B ]]
;; \e$BEj9F@h$N%K%e!<%9%5!<%P\e(B
(setq wl-nntp-posting-server elmo-nntp-default-server)
-;; (system-name) \e$B$,\e(B FQDN \e$B$rJV$5$J$$>l9g!"\e(B
-;; `wl-local-domain' \e$B$K%[%9%HL>$r=|$$$?%I%a%$%sL>$r@_Dj$7$F$/$@$5$$!#\e(B
-;; (system-name) "." wl-local-domain \e$B$,\e(B Message-ID \e$B$K;HMQ$5$l$^$9!#\e(B
-;(setq wl-local-domain "example.com")
-
-;; Message-ID \e$B$N%I%a%$%s%Q!<%H$r6/@)E*$K;XDj\e(B
-;(setq wl-message-id-domain "hostname.example.com")
-
;; IMAP \e$B%5!<%P$NG'>ZJ}<0$N@_Dj\e(B
(setq elmo-imap4-default-authenticate-type 'clear) ; \e$B@8%Q%9%o!<%I\e(B
;(setq elmo-imap4-default-authenticate-type 'cram-md5) ; CRAM-MD5
;; \e$B%I%i%U%H$r?7$7$$%U%l!<%`$G=q$/\e(B
;(setq wl-draft-use-frame t)
-;; HTML \e$B%Q!<%H$rI=<($7$J$$\e(B
-;; (require 'mime-setup) \e$B$h$j@h$K5-=R$9$kI,MW$,$"$j$^$9!#\e(B
-;(setq mime-setup-enable-inline-html nil)
-
-;; \e$BBg$-$$%a%C%;!<%8$rAw?.;~$KJ,3d$7$J$$\e(B
-;(setq mime-edit-split-message nil)
-
;; \e$B%5%V%8%'%/%H$,JQ$o$C$?$i%9%l%C%I$r@Z$C$FI=<(\e(B
;(setq wl-summary-divide-thread-when-subject-changed t)
("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+;;; [[ \e$B%a%C%;!<%8I=<($N@_Dj\e(B ]]
+
+;; \e$B1#$7$?$$%X%C%@$N@_Dj\e(B
+(setq wl-message-ignored-field-list
+ '(".*Received:" ".*Path:" ".*Id:" "^References:"
+ "^Replied:" "^Errors-To:"
+ "^Lines:" "^Sender:" ".*Host:" "^Xref:"
+ "^Content-Type:" "^Precedence:"
+ "^Status:" "^X-VM-.*:"))
+
+;; \e$BI=<($9$k%X%C%@$N@_Dj\e(B
+;; 'wl-message-ignored-field-list' \e$B$h$jM%@h$5$l$k\e(B
+(setq mime-view-visible-field-list '("^Message-Id:"))
+
+
;; X-Face \e$B$rI=<($9$k\e(B (\e$BMW\e(B 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\e$B0J9_\e(B
(require 'x-face-mule))
))
+;; \e$B%9%3%"5!G=$N@_Dj\e(B
+;; `wl-score-folder-alist' \e$B$N@_Dj$K4X$o$i$:I,$:\e(B "all.SCORE" \e$B$O;HMQ$5$l$k!#\e(B
+;(setq wl-score-folder-alist
+; '(("^-comp\\."
+; "news.comp.SCORE"
+; "news.SCORE")
+; ("^-"
+; "news.SCORE")))
+
+;; \e$B%9%3%"%U%!%$%k$rJ]B8$9$k%G%#%l%/%H%j\e(B
+; (setq wl-score-files-directory "~/.elmo/")
+
+
;; \e$B<+F0%j%U%!%$%k$N%k!<%k@_Dj\e(B
;(setq wl-refile-rule-alist
; '(
;; \e$B$^$;$s!#\e(Bnil \e$B$G$9$Y$F$N%a%C%;!<%8$,BP>]$K$J$j$^$9!#\e(B
;(setq wl-summary-auto-refile-skip-marks nil)
-;; \e$B%9%3%"5!G=$N@_Dj\e(B
-;; `wl-score-folder-alist' \e$B$N@_Dj$K4X$o$i$:I,$:\e(B "all.SCORE" \e$B$O;HMQ$5$l$k!#\e(B
-;(setq wl-score-folder-alist
-; '(("^-comp\\."
-; "news.comp.SCORE"
-; "news.SCORE")
-; ("^-"
-; "news.SCORE")))
-
-;; \e$B%9%3%"%U%!%$%k$rJ]B8$9$k%G%#%l%/%H%j\e(B
-; (setq wl-score-files-directory "~/.elmo/")
;;; dot.wl ends here
projects / elisp / wanderlust.git / commitdiff