Add autoload setting for wl-other-frame.

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

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 4897fda..20c0198 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -3,10 +3,10 @@
 ;; [[ \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
-;; \e$B$3$3$+$i\e(B
+;; XEmacs \e$B$N\e(B package \e$B$H$7$F%$%s%9%H!<%k$5$l$F$$$k>l9g$OI,MW$"$j$^$;$s!#\e(B
 (autoload 'wl "wl" "Wanderlust" t)
+(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
 (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
-;; \e$B$3$3$^$G\e(B
 
 ;; \e$B%"%$%3%s$rCV$/%G%#%l%/%H%j\e(B
 ;; XEmacs \e$B$N\e(B package \e$B$H$7$F%$%s%9%H!<%k$5$l$F$$$k>l9g$OI,MW$"$j$^$;$s!#\e(B
@@ -54,6 +54,10 @@
 ;; Message-ID \e$B$N%I%a%$%s%Q!<%H$r6/@)E*$K;XDj\e(B
 ;(setq wl-message-id-domain "hostname.example.com")
 
+;; Message-ID \e$B$N%I%a%$%s%Q!<%H$r\e(B wl-from \e$B$+$i@8@.$7$^$9!#\e(B
+;; global\e$B$J\e(BIP\e$B$r;}$?$J$$>l9g$K;H$C$F$/$@$5$$!#\e(B
+;; wl-local-domain, wl-message-id-domain\e$B$KM%@h$7$^$9!#\e(B
+;(setq wl-message-id-use-wl-from t)
 
 ;;; [[ \e$B%5!<%P$N@_Dj\e(B ]]
 
@@ -150,7 +154,7 @@
 ;(setq elmo-pop3-use-cache t)
 
 ;; \e$B%*%U%i%$%s\e(B(unplugged)\e$BA`:n$rM-8z$K$9$k\e(B(\e$B8=:_$O\e(BIMAP\e$B%U%)%k%@$N$_\e(B)
-;(setq elmo-enable-disconnected-operation t)
+(setq elmo-enable-disconnected-operation t)
 
 ;; unplugged \e$B>uBV$GAw?.$9$k$H!$%-%e!<\e(B(`wl-queue-folder')\e$B$K3JG<$9$k\e(B
 (setq wl-draft-enable-queuing t)
@@ -212,15 +216,17 @@
          (setq subj (substring subject-string (match-end 0)))
          (if (not ml-name) (setq ml-name (match-string 1 subject-string)))
          (if (not ml-count) (setq ml-count (match-string 2 subject-string)))))
-    (if (and ml-name ml-count)
-       (if (string= folder wl-default-folder)
-           (format "(%s %05d) %s"
-                   (car (split-string ml-name " "))
-                   (string-to-int ml-count)
-                   subj)
-         (format "#%05d %s"
-                 (string-to-int ml-count) subj))
-      subj)))
+    (condition-case nil
+       (if (and ml-name ml-count)
+           (if (string= folder wl-default-folder)
+               (format "(%s %05d) %s"
+                       (car (split-string ml-name " "))
+                       (string-to-int ml-count)
+                       subj)
+             (format "#%05d %s"
+                     (string-to-int ml-count) subj))
+         subj)
+      (error subj))))
 
 ;; imput \e$B$K$h$jHsF14|$GAw?.$9$k\e(B
 ;; (utils/im-wl.el \e$B$r%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#\e(B
@@ -241,32 +247,32 @@
 ;;; [[ \e$B%F%s%W%l!<%H\e(B ]]
 
 ;; \e$B%F%s%W%l!<%H$N@_Dj\e(B
-(setq wl-template-alist
-      '(("default"
-        ("From" . wl-from)
-        ("Organization" . "~/.wl sample")
-        (body . "  \e$B!{!{$G$9!#\e(B\n"))       ; \e$BK\J8\e(B
-       ("report"
-        ("To" . "boss@example.com")
-        ("Subject" . "\e$BJs9p\e(B")
-        (top . "\e$B:#=5$NJs9p$G$9!#\e(B\n")     ; \e$BK\J8@hF,$X$NA^F~\e(B
-;;      (bottom-file . "~/work/report.txt") ; \e$BK\J8KvHx$X%U%!%$%k$NA^F~\e(B
-        )
-       ))
+;(setq wl-template-alist
+;      '(("default"
+;       ("From" . wl-from)
+;       ("Organization" . "\e$B%G%U%)%k%H$NAH?%L>\e(B")
+;       (body . "  \e$B!{!{$G$9!#\e(B\n"))       ; \e$BK\J8\e(B
+;      ("report"
+;       ("To" . "boss@example.com")
+;       ("Subject" . "\e$BJs9p\e(B")
+;       (top . "\e$B:#=5$NJs9p$G$9!#\e(B\n")     ; \e$BK\J8@hF,$X$NA^F~\e(B
+;       (bottom-file . "~/work/report.txt") ; \e$BK\J8KvHx$X%U%!%$%k$NA^F~\e(B
+;       )
+;      ))
 
 ;; \e$B%I%i%U%H%P%C%U%!$NFbMF$K$h$j\e(B From \e$B$d\e(B Organization \e$B$J$I$N%X%C%@$r<+\e(B
 ;; \e$BF0E*$KJQ99$9$k\e(B
-(setq wl-draft-config-alist
-      '((reply                 ;; \e$BJV?.85$N%P%C%U%!$r8+$k\e(B
-        "^To: .*\\(test-notsend-wl@lists.airs.net\\)"
-        (template . "default"))        ; \e$B%F%s%W%l!<%H\e(B
-       ("^To: .*\\(test-notsend-wl@lists.airs.net\\)"
-        wl-ml-draft-config-function    ; \e$B4X?t\e(B
-        ("From" . wl-from)             ; \e$BJQ?t\e(B
-        ("Organization" . "~/.wl sample")) ; \e$BJ8;zNs\e(B
-       ("^Newsgroups: test.*"
-        ("Organization" . "\e$B%K%e!<%9Ej9F;~$NAH?%L>\e(B"))
-       ))
+;(setq wl-draft-config-alist
+;      '((reply                                ; \e$BJV?.85$N%P%C%U%!$r8+$k\e(B
+;       "^To: .*test-notsend-wl@lists\\.airs\\.net"
+;       (template . "default"))        ; \e$B%F%s%W%l!<%H\e(B
+;      ("^To: .*test-notsend-wl@lists\\.airs\\.net"
+;       ding                           ; \e$B4X?t\e(B
+;       ("From" . wl-from)             ; \e$BJQ?t\e(B
+;       ("Organization" . "\e$BAH?%L>\e(B"))     ; \e$BJ8;zNs\e(B
+;      ("^Newsgroups: test.*"
+;       ("Organization" . "\e$B%K%e!<%9Ej9F;~$NAH?%L>\e(B"))
+;      ))
 
 ;; \e$B%I%i%U%H:n@.;~\e(B(\e$BJV?.;~\e(B)\e$B$K!$<+F0E*$K%X%C%@$rJQ99$9$k\e(B
 ;(add-hook 'wl-mail-setup-hook
@@ -361,7 +367,7 @@
 ;       ("^Wanderlust" . "+wl")
 ;       ("^Elisp" . "+elisp"))
 ;      ("From"
-;       ("teranisi@isl.ntt.co.jp" . "+teranisi"))))
+;       ("foo@example\\.com" . "+foo"))))
 
 ;; \e$B<+F0%j%U%!%$%k$7$J$$1JB3%^!<%/$r@_Dj\e(B
 ;; \e$BI8=`$G$O\e(B "N" "U" "!" \e$B$K$J$C$F$*$j!"L$FI%a%C%;!<%8$r<+F0%j%U%!%$%k$7\e(B