;;;; my current dot mew file (without multiple-account settings)
;;;; mode: emacs-lisp
;;;; the file created by me

;;; add D mark to doubled messages.
(setq mew-scan-form-mark-delete t)

;;; 自動改行の設定
(setq text-mode-hook ' turn-on-auto-fill)

(add-hook 'text-mode-hook
'(lambda ()
(progn (set-fill-column 70)
(turn-on-auto-fill))))

;; Leaving messages on the servers after retrieving.
;; Note that the line should not be in .emacs. If do so,
;; pop accont settings conflict with the line in the
;; .emacs file.
(setq mew-pop-delete nil)

;;---------------------------------------------------------------
;; Mew
;; loading Mew
(setq load-path (cons "/usr/local/share/emacs/site-lisp/mew/" load-path))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-icon-directory "/usr/share/pixmaps/mew/")
;(setq mew-icon-directory "icon directory")
(if (boundp 'read-mail-command)
(setq read-mail-command 'mew))

;; C-c C-E
;; this line is not necessary to use mozilla with C-c C-E.
;; this line cannot launch mozilla.
;; (setq mew-prog-text/html "mozilla")


;; Viewing URL from Mew by Mozzila-firefox
(setq browse-url-browser-function 'browse-url-netscape)
(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 browse-url-netscape-program "mozilla-firefox")

(setq mew-mode-hook '(lambda ()
(auto-fill-mode 1)
(setq fill-column 60)))

;;; Using "Mozilla"

;(setq mew-prog-text/html-ext "mozilla")

;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
;(setq browse-url-netscape-program "mozilla")
;(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:]+")

; Mew using mozilla
;(require 'mew-browse)
;(setq mew-ext-prog-url "/usr/bin/mozilla-firefox")
;(setq mew-prog-text/html-ext "mozilla")
;(setq browse-url-netscape-program "mozilla-firefox")
;(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:]+")
;(define-key mew-message-mode-map [mouse-2] 'w3m-view-this-url)
;(define-key mew-message-mode-map [mouse-3] 'browse-url-at-mouse)

(setq mew-case-synchronize nil)


;;; end of dot.mew files

---

Last modified: Fri Sep 30 12:11:03 EST 2005