;;; wl-init.el --- Wanderlust init file ;; Copyright (C) 1999-2001 YAMASHITA Junji ;; Author: YAMASHITA Junji ;; Keywords: init, mail ;; Version: $Id: wl-init.el,v 1.32 2002/10/10 16:35:18 ysjj Exp $ ;; Content-Type: text/plain; charset=iso-2022-jp ;;; Commentary: ;;; Code: ;;;; elmo ;;; Opiton Variables (setq elmo-cache-expire-default-size 8192 elmo-localdir-folder-path my-mh-folder-path elmo-localnews-folder-path my-news-folder-path elmo-archive-folder-path (expand-file-name "~/lib/mail") elmo-msgdb-directory (my-edata-file "elmo") elmo-msgdb-extra-fields '("reply-to" "x-list" "x-ml-name" "x-sequence") elmo-cache-directory (expand-file-name "cache" elmo-msgdb-directory)) ;;;; wl ;;; Opiton Variables (setq wl-from (my-make-from user-mail-address) wl-fcc "+sent" wl-interactive-send t wl-message-id-use-wl-from t wl-organization my-organization wl-plugged my-plugged-default-state wl-user-mail-address-list my-mail-address-list) ;; folder (setq wl-address-file (my-edata-file "wl/addresses") wl-folders-file (my-edata-file "wl/folders") wl-folder-many-unsync-threshold 100 wl-default-folder "+inbox" wl-default-spec "+") ;; refile-rule for subscribed-mailing-list (setq wl-refile-rule-alist '(("to" ("splab-ml@do-johodai.ac.jp" . "+ml/splab") ("doluc@ncjoho.co.jp" . "+ml/linux-jp/doluc") ("debian-users@debian.or.jp" . "+ml/linux-jp/debian-users") ("mule-ja@m17n.org" . "+ml/emacsen/mule-ja") ("semi-gnus-ja@meadowy.org" . "+ml/emacsen/emacs-mime-ja") ("wl@lists.airs.net" . "+ml/emacsen/wl") ("skk@ring.gr.jp" . "+ml/emacsen/skk") ("emacs-w3m@namazu.org" . "+ml/emacsen/emacs-w3m") ("bbdb@tutrp.tut.ac.jp" . "+ml/emacsen/bbdb") ("yatex@yatex.org" . "+ml/emacsen/yatex")))) (setq wl-subscribed-mailing-list (mapcar #'(lambda (alist) (car alist)) (cdar wl-refile-rule-alist))) ;; expire ;(setq wl-expire-use-log t) (setq wl-expire-alist `((,(concat "^\\" wl-trash-folder "$") (date 7) remove) ("^\\+mag/" (date 30) remove) ;;("^@" (date 30) remove) ("^\\+ml/debian/devel-changes$" (date 10) remove) ("^\\+ml/jikes-cvs$" (date 14) remove) (,(concat "^\\+\\(com/sun-cws\\|" "ml/\\(\\(jpcert\\|debian/security\\)-announce\\|bugtraq-jp\\)" "\\)$") (date 180) remove) (,(concat "^\\+ml/\\(" (concat "emacsen/" "\\(mule-ja" "\\|meadow-users-jp" "\\|semi-gnus-ja" "\\|emacs-w3m" "\\|skk" "\\|wl\\)$") "\\|\\(gs-\\(cjk\\|devel\\)" "\\|jikes-dev\\|j-h-b\\|sml\\|xp-jp\\|uml-jp\\|patterns" "\\|linux-jp/\\(llug\\|debian-users\\)" "\\|bugtraq-jp\\|security-memo\\)$" "\\|ruby/\\)") (number 300 500) remove) ("^\\+ml/linux-jp/linux-new$" (date 30) remove) ("^\\+ml/\\(linux-jp/jla-members\\|java-conf\\)$" (date 365) remove) ("^\\+ml/linux-jp/doluc$" (number 300 500) hide) ("^\\+ml/splab$" (number 300 500) hide))) ;; summary (setq wl-auto-select-next 'unread) (setq wl-summary-showto-folder-regexp "^[+$]\\(draft\\|sent\\|queue\\)" wl-summary-width nil wl-summary-get-petname-function #'bbdb-wl-get-petname wl-summary-mode-line-format "WL: %f {%t}(%n/%u/%a)" wl-summary-weekday-name-lang "ja") (define-key wl-summary-mode-map "\C-c@" 'wl-summary-pack-number) (add-hook 'wl-summary-prepared-hook 'wl-summary-expire) (add-hook 'wl-summary-toggle-disp-folder-hook #'(lambda () (setq wl-stay-folder-window wl-summary-buffer-disp-folder))) ;; message: (setq wl-message-ignored-field-list '(".") wl-message-visible-field-list '("^\\(To\\|Cc\\):" "^Subject:" "^\\(From\\|Reply-To\\):" "^\\(Posted\\|Date\\):" "^Organization:" "^X-\\(Face\\(-[0-9]+\\)?\\|Weather\\|Fortune\\|Now-Playing\\):") wl-message-buffer-prefetch-depth 0 wl-message-sort-field-list (append wl-message-sort-field-list '("^Reply-To" "^Posted" "^Date" "^Organization"))) (add-hook 'wl-message-redisplay-hook #'(lambda () (smiley-region (point-min) (point-max)))) ;; x-face (if (fboundp 'x-face-decode-message-header) (setq wl-highlight-x-face-function 'x-face-decode-message-header)) ;; draft (setq wl-draft-config-alist '((t (wl-smtp-posting-server . "mail.k3.dion.ne.jp"))) wl-draft-reply-without-argument-list '(("Followup-To" . (nil nil ("Followup-To"))) ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) ("Reply-To" . (("Reply-To") nil nil)) ("From" . (("From") ("To" "Cc") ("Newsgroups")))) wl-draft-always-delete-myself t wl-draft-use-frame nil) (let ((x-face-file (expand-file-name x-face-default-xbm-file x-face-image-file-directory))) (setq wl-template-alist `(("base" ("From" . ,(my-make-from user-mail-address)) (bottom . ,(my-make-signature user-mail-address))) ("base-ja" ("From" . ,(my-make-from user-mail-address 'ja)) (top . ,(concat user-full-name-ja "です。\n")) (bottom . ,(my-make-signature user-mail-address 'ja))) ("x-face" (template . "base") (x-face . ,x-face-file)) ("x-face-ja" (template . "base-ja") (x-face . ,x-face-file))))) (define-key wl-draft-mode-map "\M-t" 'transpose-words) (add-hook 'wl-draft-cited-hook #'(lambda () (and (featurep 'smiley-mule) (smiley-toggle-buffer -1)))) (add-hook 'wl-mail-setup-hook #'(lambda () ;;(bbdb-insinuate-sendmail) (set (make-local-variable 'font-lock-fontify-region-function) #'(lambda (beg end &optional loudly) (wl-highlight-message beg end t))) (set (make-local-variable 'font-lock-unfontify-region-function) #'ignore))) ;; wl-biff ; (setq wl-biff-check-folder-list ; '("+inbox" ; "+ml/ruby/ruby-dev" "+ml/ruby/ruby-ext" "+ml/ruby/ruby-list" ; "+ml/j-h-b" ; "+ml/emacsen/meadow-users-jp" "+ml/emacsen/semi-gnus-ja" ; "+ml/emacsen/wl" ; "+ml/linux-jp/doluc")) ;; wl-shimbun (add-to-list 'wl-auto-uncheck-folder-list "^@") ;; score (setq wl-score-files-directory elmo-msgdb-directory) ;;; work with BBDB (require 'bbdb-wl) (bbdb-wl-setup) (setq bbdb-wl-ignore-folder-regexp "^@\\|^\\+\\(trash\\|spam\\|mag\\|recruit\\|sent\\|ml/\\(linux-jp/linux-new\\|debian/devel-changes\\|jikes-cvs\\)\\|com/sun-cws\\)") ;;; FIXME: this should be done by bbdb-wl-setup (add-hook 'wl-save-hook #'(lambda () (bbdb-save-db t))) ;;; HACK: (defadvice wl-folder-check-current-entity (around disable-message-log activate) (interactive) (let (message-log-max) ad-do-it)) (defadvice bbdb-wl-canonicalize-spaces-and-dots (around null-test (string) activate) (unless (null string) ad-do-it)) ;;; wl-init.el ends here