Change bahavior of wl-summary-width and wl-summary-indent-length-limit.

[elisp/wanderlust.git] / samples / en / dot.wl

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 432fe91..0aa8be4 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -1,23 +1,9 @@
 ;;; 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
 ;; for .emacs begin
-(require 'mime-setup)
 (autoload 'wl "wl" "Wanderlust" t)
 (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
 ;; for .emacs end
@@ -27,6 +13,19 @@
 ;(setq wl-icon-dir "/usr/local/lib/emacs/etc")
 
 
+;; [[ SEMI Setting ]]
+
+;; Disable inline display of HTML part.
+;; Put before load `mime-setup'
+(setq mime-setup-enable-inline-html nil)
+
+;; Don't split large message.
+(setq mime-edit-split-message nil)
+
+;; If lines of message are larger than this value, treat it as `large'.
+;(setq mime-edit-message-default-max-lines 1000)
+
+
 ;;; [[ Private Setting ]]
 
 ;; Header From:
@@ -43,7 +42,8 @@
 (setq wl-subscribed-mailing-list
       '("wl@lists.airs.net"
        "apel-ja@m17n.org"
-       ;;"ml@example.com" ...
+       "emacs-mime-ja@m17n.org"
+       ;; "ml@example.com" ...
        ))
 
 ;; If (system-name) does not return FQDN,
@@ -88,25 +88,36 @@
 ;; Folder Carbon Copy
 ;(setq wl-fcc "+outbox")
 
-;; Confirm at exit time.
+;; Confirm before exitting Wanderlust.
 (setq wl-interactive-exit t)
 
-;; Confirm at message sending time.
+;; Confirm before sending message.
 (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)
+;; Keep folder window beside summary. (3 pane)
 ;(setq wl-stay-folder-window t)
 
+;; Truncate long lines.
+;(setq wl-message-truncate-lines t)
+;(setq wl-draft-truncate-lines t)
+;; Following line is needed for XEmacs.
+;(setq truncate-partial-width-windows nil)
+
 ;; Open new frame for draft buffer.
 ;(setq wl-draft-use-frame t)
 
-;; Thread divide when change subject.
+;; Don't limit indent for thread view
+;(setq wl-summary-indent-length-limit nil)
+;(setq wl-summary-width nil)
+
+;; Divide thread by change of subject.
 ;(setq wl-summary-divide-thread-when-subject-changed t)
 
-;; Thread view
+;; Change format of thread view
+;(setq wl-thread-indent-level 2)
 ;(setq wl-thread-have-younger-brother-str "+"
 ;      wl-thread-youngest-child-str     "+"
 ;      wl-thread-vertical-str           "|"
@@ -119,12 +130,16 @@
 ;; goto next folder when exit from summary.
 ;(setq wl-auto-select-next t)
 
-;; folder is skipped if there is no unread.
-;(setq wl-summary-next-no-unread 'skip-no-unread)
+;; skip folder if there is no unread message.
+;(setq wl-auto-select-next 'skip-no-unread)
 
 ;; jump to unread message in 'N' or 'P'.
 ;(setq wl-summary-move-order 'unread)
 
+;; notify mail arrival
+;(setq wl-biff-check-folder-list '("%inbox"))
+;(setq wl-biff-notify-hook '(ding))
+
 
 ;;; [[ Network ]]
 
@@ -149,7 +164,10 @@
 ;; change plug status by server or port at startup.
 ;(add-hook 'wl-make-plugged-hook
 ;        '(lambda ()
+;           ;; Add or Change plug status for SERVER and PORT.
 ;           (elmo-set-plugged plugged(t/nil) server port)
+;           ;; When omit port, SEVERS all port was changes.
+;           ;; (Can't add plug status without PORT)
 ;           (elmo-set-plugged plugged(t/nil) server)
 ;           ))
 
@@ -188,7 +206,6 @@
                       (and sequence
                            (cadr (split-string sequence " ")))))
     (if (string-match
-;;;     "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
         "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
         subject-string)
        (progn
@@ -298,20 +315,17 @@
 ;; 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 ((featurep 'xemacs)            ; for XEmacs
-        (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
+;; X-Face (requires x-face or bitmap-mule)
+(when window-system
+  (cond ((and (featurep 'xemacs)               ; for XEmacs
+             (module-installed-p 'x-face))
+        (autoload 'x-face-xmas-wl-display-x-face "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
-        (setq wl-highlight-x-face-function
-              (function
-               (lambda (&rest dummy)
-                 (x-face-decode-message-header))))
-        (require 'x-face-mule))
+        ;; for x-face-mule distributed with bitmap-mule 8.0 or later
+        (autoload 'x-face-decode-message-header "x-face-mule")
+        (setq wl-highlight-x-face-function 'x-face-decode-message-header))
        ))
 
 ;; Scoring.