網站地圖 最近更新 News ElispArea 教导

.wl

Here is a sample ~/.wl config file for WanderLust with some useful snippets.

(setq wl-summary-toggle-mime "mime")
(require 'mime-w3m)
(setq mime-edit-split-message nil)
(setq wl-draft-reply-buffer-style 'full)

(autoload 'wl-user-agent-compose "wl-draft" nil t) 
  (if (boundp 'mail-user-agent)                      
      (setq mail-user-agent 'wl-user-agent))         
  (if (fboundp 'define-mail-user-agent)              
      (define-mail-user-agent                        
        'wl-user-agent                               
        'wl-user-agent-compose                       
        'wl-draft-send                               
        'wl-draft-kill                               
        'mail-send-hook))   

(setq elmo-imap4-default-authenticate-type 'clear)

(setq wl-smtp-posting-server "smtp.mail.com")
(setq wl-message-id-domain "smtp.mail.com")
(setq wl-from "Jim Burton <j.burton@mail.com>")
(setq wl-user-mail-address-list
      (list (wl-address-header-extract-address wl-from)
            "Jim Burton <jim@email2.com>"))
(setq wl-local-domain "smtp.mail.com")

(setq wl-draft-always-delete-myself t)
(setq wl-fcc "+~/Mail/outbox/out")

;;; @ bbdb
(setq mime-bbdb/use-mail-extr nil)
(require 'bbdb-wl)
(bbdb-wl-setup)
(require 'mime-bbdb)

(autoload 'bbdb         "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-name    "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-net     "bbdb-com" "Insidious Big Brother Database" t)

(add-hook 'wl-mail-setup-hook 'bbdb-insinuate-sendmail)

(setq bbdb-use-alternate-names t)

(setq bbdb-file "~/.bbdb") 
(setq bbdb/mail-auto-create-p   'bbdb-ignore-some-messages-hook)

;; add record to .bbdb manually
(setq bbdb-new-nets-always-primary t)
(setq bbdb/mail-auto-create-p nil) 

;;; height of BBDB's window
(setq bbdb-pop-up-target-lines 7)

;;; popup display of record in the .bbdb
(setq bbdb-use-pop-up t)
(setq signature-use-bbdb t)
(setq bbdb-north-american-phone-numbers-p nil)

;;; automatic adding to ML field
(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)

;;; hide bbdb field while wl-folder-suspend
(defadvice wl-folder-suspend (after wl-bbdb-suspend activate compile)
  (interactive)
(bbdb-wl-exit-2))
(defadvice wl-exit (after wl-bbdb-suspend activate compile)
  (interactive)
(bbdb-wl-exit-2))

(put 'ML 'field-separator "\n")
(put 'User-Agent 'field-separator "\n")

(setq bbdb-auto-notes-alist
       '(
       ("X-ML-Name" (".*$" ML 0))
       ("X-Mailinglist" (".*$" ML 0))
       ("X-Ml-Name" (".*$" ML 0))
       ("X-Mailer" (".*$" User-Agent 0))
       ("X-Newsreader" (".*$" User-Agent 0))
       ("User-Agent" (".*$" User-Agent 0))
       ("X-Face" ("[ \t\n]*\\([^ \t\n]*\\)\\([ \t\n]+\\([^ \t\n]+\\)\\)?\\([ \t\n]+\\([^ \t\n]+\\)\\)?\\([ \t\n]+\\([^ \t\n]+\\)\\)?"
                                 face "\\1\\3\\5\\7"))
       ))

;; expiry
(setq wl-expire-alist                                                       
        '(("^\\+trash$"   (date 14) remove)                                   
                                    ;; delete                                 
          ("^\\+tmp$"     (date 7) trash)                                     
                                    ;; re-file to wl-trash-folder             
          ("^\\%inbox"    (date 30) wl-expire-archive-date)                   
                             ;; archive by year and month (numbers discarded)
			     ))

;;auto-fill 
(setq mime-edit-mode-hook
      '(lambda ()
      	 (auto-fill-mode 1)))

(setq wl-message-visible-field-list '("^To" "^Subject" "^From" "^Date" "^Cc"))
(setq wl-message-ignored-field-list '("^"))

;;look in zip files as if they were folders
(setq elmo-archive-treat-file t)

;;show sent mail by who it was to
(setq wl-summary-showto-folder-regexp ".*")
(setq wl-summary-from-function 'wl-summary-default-from)

;; refiling

(setq wl-refile-rule-alist
      '((("To" "Cc")
         ("^wl-en@lists.airs.net" . "+mlists"))))