;;;(setq mew-cite-bbdb-enable t)
;;;(setq mew-cite-bbdb-header t)
(setq mew-use-suffix t)
(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
(condition-case nil
    (require 'mew-w3m)
  (file-error nil))
(setq mew-summary-form      '(type (5 date) " " (-4 size) " " (14 from) " " t (30 subj) "|" (0 body)))
;;(setq w3m-command "/usr/bin/w3mmee")
;;(setq w3m-type 'w3mmee)
;;(setq mew-use-text/html t)
;;(setq mew-ext-url-alist
;;      '((t "Browse by emacs-w3m" mew-w3m-ext-url-show nil)))
(eval-after-load "mew" '(require 'mew-browse))
(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:?&=]+")
;;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
;;(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:]+")
;; (autoload 'browse-url-interactive-arg "browse-url")
;; (autoload 'browse-url-browser-function "browse-url"
;;   "Ask a WWW browser to show a URL." t)
;; (autoload 'browse-url-at-point "browse-url"
;;   "Ask a WWW browser to load the URL at or before point." t)
;; (autoload 'browse-url-at-mouse "browse-url"
;;   "Ask a WWW browser to load a URL clicked with the mouse." t)
;; (autoload 'browse-url-of-buffer "browse-url"
;;   "Ask a WWW browser to display BUFFER." t)
;; (autoload 'browse-url-of-file "browse-url"
;;   "Ask a WWW browser to display FILE." t)
;; (autoload 'browse-url-of-dired-file "browse-url"
;;   "In Dired, ask a WWW browser to display the file named on this line." t)
;; key bind
;;  Mew Message mode
;;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
;;(add-hook 'mew-message-mode-hook
;;      (function
;;       (lambda ()
;;       (local-set-key [mouse-2] 'browse-url-at-mouse)
;;        )))

(setq mew-highlight-body-max-size 20000)

;;Charset
(setq mew-charset-m17n "utf-8")
(setq mew-charset-latin "utf-8")
(setq mew-charset-input-method 'utf-8)
(setq mew-cs-database-for-encoding
      `(((ascii) nil "7bit" "7bit")
        (nil utf-8 "base64" "B")))

(setq mew-pop-size 0)

;;HTML settings
;;(setq mew-imap-prefix-list '("#mh/" "#mhinbox"))
;;(setq mew-auto-get t)
;;;Safari.app
;;;; (setq browse-url-browser-function 'browse-url-safari)
;;   (defun browse-url-safari (url &optional new-window)
;;    "Open URL in a new Safari window."
;;    (interactive (browse-url-interactive-arg "URL: "))
;;    (unless
;;        (string= ""
;;              (shell-command-to-string
;;               (concat "open -a Safari " url)))
;;      (message "Starting Safari...")
;;      (start-process (concat "open -a Safari " url) nil "open -a Safari " url)
;;      (message "Starting Safari... done")))

;; (autoload 'browse-url-at-mouse "browse-url" 
;; "Ask a WWW browser to load a URL clicked with the mouse." t) 
;; (add-hook 'mew-message-mode-hook 
;; (function 
;; (lambda() 
;; (local-set-key [mouse-2] 'browse-url-at-mouse)))) 

(setq mew-prog-text/html 'etk-mime-text/html)
(defun etk-mime-text/html (begin end)
    (save-excursion 
        (goto-char (point-min))
        (shell-command-on-region begin end "html2text -nobs" nil t)
        )
    )
;;;end;;;


(setq toolbar-mail-reader 'Mew)
(setq mew-use-cached-passwd t)
(setq mew-passwd-timer-unit 999)
(setq mew-passwd-lifetime 999)
(set-default 'mew-decode-quoted 't)  
(setq mew-prog-pgp "gpg")
;;(setq mew-pop-delete nil)
(setq mew-config-alist 
;;Gmail
        '(("default"
        ("name"         . "Wen Zhang")
        ("user"         . "wwzhang")
        ("mail-domain"  . "gmail.com")
        ("proto"        . "+")
        ("pop-ssl"      . t)
        ("pop-ssl-port" . "995")
        ("prog-ssl"     . "/opt/local/sbin/stunnel")
        ("pop-auth"     . pass)
        ("pop-user"     . "wwzhang")
        ("pop-server"   . "pop.gmail.com")
        ("smtp-ssl"     . t)
        ("smtp-ssl-port". "465")
        ("smtp-auth-list" . ("PLAIN" "LOGIN" "CRAM-MD5"))
        ("smtp-user"    . "wwzhang")
        ("smtp-server"  . "smtp.gmail.com")
        ("signature-file" . "~/.signature")
        )))


(setq mew-ssl-verify-level 0)
(setq mew-prog-ssl "/opt/local/sbin/stunnel")

;;;Thread

 (setq mew-use-fancy-thread t) ;; nil
 (setq mew-use-thread-separator nil)
 (setq mew-thread-separator "--")
 (setq mew-fancy-thread-indent-strings
       ["├" "└" "│" "　"]) ;; [" +" " +" " |" "  "])


(setq mew-cite-fields '("Date:" "From:" ))
(setq mew-cite-format ">>>>> On %s, %s wrote:\n\n")

;;biff
(setq mew-use-biff t)
(setq mew-use-biff-bell t)
(setq mew-pop-biff-interval 10) ;; 
(setq mew-biff-interval mew-pop-biff-interval) ;; for Mew 

 (add-hook 'mew-init-hook (lambda () (require 'mew-fancy-summary)))
;;; common setting
    (require 'font-lock)
;;    ;; (global-font-lock-mode t) ;; as you like.
(setq mew-theme-file "~/.mew-theme.el")
(setq mew-use-unread-mark t)