Add description for elmo-msgdb-extra-fields.

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

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 08e313e..6e32134 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -175,12 +175,13 @@
 
 ;; \e$B%5%^%jI=<(4X?t$rJQ99$9$k\e(B
 
-;; `elmo-msgdb-overview-entity-get-extra-field' \e$B$G;2>H$7$?$$%U%#!<%k%I!#\e(B
+;; `elmo-message-entity-field' \e$B$G;2>H$7$?$$%U%#!<%k%I!#\e(B
 ;; \e$B<+F0%j%U%!%$%k$G;2>H$7$?$$%U%#!<%k%I$b@_Dj$9$k!#\e(B
 (setq elmo-msgdb-extra-fields
-      '("newsgroups"
-       "list-id" "x-ml-name" "mailing-list"
-       "x-mail-count" "x-ml-count" "x-sequence"))
+      '(;; elsp-header \e$B$G;2>H$9$k%U%#!<%k%I\e(B
+       "x-spam-flag"
+       ;; `modb-entity-field-extractor-alist' \e$B$GDj5A$5$l$?2>A[%U%#!<%k%I\e(B
+       "ml-info"))
 
 ;; ML \e$B$N%a%C%;!<%8$G$"$l$P!$%5%^%j$N\e(B Subject \e$BI=<($K\e(B
 ;; ML\e$BL>\e(B \e$B$d\e(B ML\e$B$K$*$1$k%a%C%;!<%8HV9f$bI=<($9$k\e(B
@@ -204,17 +205,6 @@
 ;(setq wl-generate-mailer-string-function
 ;      'wl-generate-user-agent-string-1)
 
-
-;; \e$BJQ99$5$l$?%I%i%U%H$,$"$l$P\e(B 20 \e$BIC$4$H$K<+F0J]B8$9$k!#\e(B
-;(defun my-wl-auto-save-draft-buffers ()
-;  (let ((buffers (wl-collect-draft)))
-;    (save-excursion
-;      (while buffers
-;      (set-buffer (car buffers))
-;      (if (buffer-modified-p) (wl-draft-save))
-;      (setq buffers (cdr buffers))))))
-;(run-with-idle-timer 20 t 'my-wl-auto-save-draft-buffers)
-
 ;; PGP \e$B$G0E9f2=$9$k;~$K<+J,$N8x3+80$b4^$a$k!#\e(B
 ;; (\e$B$=$N%a%C%;!<%8$r<+J,$G$bFI$a$k$h$&$K\e(B)
 ;(setq pgg-encrypt-for-me t)
@@ -374,6 +364,9 @@
 
 ;(require 'wl-spam)
 
+;; \e$B0\F0$7$?;~$K<+F0$G\e(B spam \e$B$+$I$&$+%A%'%C%/$9$k%U%)%k%@$r@_Dj\e(B
+;(setq wl-spam-auto-check-folder-regexp-list '("\\+inbox"))
+
 ;; \e$B%5%^%j%P%C%U%!$G\e(B `o' (wl-summary-refile) \e$B$7$?;~\e(B, *\e$B:G=i\e(B*\e$B$K\e(B spam \e$B$+$I\e(B
 ;; \e$B$&$+$rH=Dj$9$kMM$K$9$k\e(B
 ;(unless (memq 'wl-refile-guess-by-spam wl-refile-guess-functions)
@@ -395,21 +388,4 @@
 ;      (append wl-auto-refile-guess-functions
 ;              '(wl-refile-guess-by-spam))))
 
-;; wl-spam-auto-check-folder-regexp-list \e$B$K9gCW$9$k%U%)%k%@$K0\F0$7$?\e(B
-;; \e$B;~$K\e(B spam \e$B$+$I$&$+%A%'%C%/$9$k\e(B
-;(add-hook 'wl-summary-prepared-pre-hook #'wl-summary-auto-check-spam)
-
-;; refile \e$B$N<B9T;~$K3X=,$5$;$k0Y$N@_Dj\e(B
-;; \e$B0J2<$N@_Dj$r$7$?$+$i$H8@$C$F>o$K3X=,$9$kLu$G$O$"$j$^$;$s\e(B. \e$B>\$7$/$O\e(B,
-;; wl-spam.el \e$B$N\e(B wl-spam-undecided-folder-regexp-list \e$B$H\e(B
-;; wl-spam-ignored-folder-regexp-list \e$B$N\e(B docstring \e$B$r;2>H$7$F2<$5$$\e(B.
-;(let ((actions wl-summary-mark-action-list)
-;      action)
-;  (while actions
-;    (setq action  (car actions)
-;        actions (cdr actions))
-;    (when (eq (wl-summary-action-symbol action) 'refile)
-;      (setcar (nthcdr 4 action) 'wl-summary-exec-action-refile-with-register)
-;      (setq actions nil))))
-
 ;;; dot.wl ends here