My PC Life and etc...

;;;;; emacs-w3m
(autoload 'w3m "w3m" "*Interface for w3m on Emacs." t)
(autoload 'w3m-find-file "w3m" "*w3m interface function for local file." t)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
(autoload 'w3m-search "w3m-search" "*Search QUERY using SEARCH-ENGINE." t)
(autoload 'w3m-weather "w3m-weather" "*Display weather report." t)
(autoload 'w3m-antenna "w3m-antenna" "*Report chenge of WEB sites." t)
(setq mime-setup-enable-inline-html nil)
(eval-after-load "mime-view"
  '(progn
     (autoload 'mime-w3m-preview-text/html "mime-w3m")
     (ctree-set-calist-strictly
      'mime-preview-condition
      '((type . text)
	(subtype . html)
	(body . visible)
	(body-presentation-method . mime-w3m-preview-text/html)))
     (set-alist 'mime-view-type-subtype-score-alist
		'(text . html) 3)))
;; browse-url w3m 
(setq browse-url-browser-function 'w3m-browse-url)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
(global-set-key "\C-xm" 'browse-url-at-point)
;; dired w3m
(add-hook 'dired-mode-hook
          (lambda ()
              (define-key dired-mode-map "\C-xm" 'dired-w3m-find-file)))
(defun dired-w3m-find-file ()
  (interactive)
  (require 'w3m)
  (let ((file (dired-get-filename)))
    (if (y-or-n-p (format "Open 'w3m' %s " (file-name-nondirectory file)))
        (w3m-find-file file))))
;; hnf w3m
;(autoload 'w3m-browse-url "w3m" nil t)
;(defun w3m-hnf-browse-url-w3m (url &optional new-window)
;  (interactive (browse-url-interactive-arg "URL: "))
;  (save-selected-window
;    (pop-to-buffer (get-buffer-create "*w3m*"))
;    (w3m-browse-url url new-window)))
;(setq hnf-browse-url-browser-function (function w3m-hnf-browse-url-w3m))
(setq w3m-weather-default-area "和歌山県・北部")  <----------
(setq w3m-search-default-engine "google-ja")  <----やっぱりgoogleだね
(setq w3m-antenna-sites
      '(("http://******.org/~****/diary/" "HyperNikkiSystem使用のページ" "hns")
        ("http://namazu.org/~tsuchiya/emacs-w3m" "emacs-w3m" nil)))
;(setq w3m-display-inline-image t)