Re: emacs-w3m

[Jinhyok Heo <novembreN0$PAM@ournature.org>]

>>>>> "KY" == Katsumi Yamaoka <yamaoka@jpl.org> writes:

    KY> JH> I tried to use emacs-w3m. Well, it's working well except that my
    KY> JH> Korean characters doesn't render correctly.

    KY> JH> Is there a way I can fix it?

    KY> JH> The w3m inside XEmacs renders Korean very well, but not with gnus.

    KY> Thank you for the report.  I've confirmed your problem.  The
    KY> attached text/html part is extracted from http://kr.yahoo.com/.
    KY> Gnus + Emacs/w3 or T-gnus shows it correctly, but Gnus +
    KY> emacs-w3m doesn't.  I will consider how to fix it...

I've found the following answer to the problem from Korean emacs
mailing list(emacs-kr@debian.or.kr). Jaeyoun Chung <jay@kldp.org>
wrote it.

Well, following two lines in mm-inline-text-using-w3m gave me an error
which said there was no such function url-current-object. Maybe the
function is not in XEmacs, but in Emacs.

	    (url-current-object
	     (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))

Anyway I've commented it out and it's working well in my XEmacs.

Now I'm also happy with html mails.  Thanks!

-- 
| Jinhyok Heo (novembre @ ournature.org || http://ournature.org/~novembre/)
|--------------------------------------------------------------------------
| "We are still reaching for the sky. In the developed countries people
|  are coming back down, saying, `It's empty up there.'" --- a Ladakhi monk

##### in my .xemacs/init.el
;;; w3m
(setq w3m-display-inline-image          t
      w3m-command-arguments             '("-no-graph")
      w3m-coding-system                 'euc-kr
      w3m-terminal-coding-system        'euc-kr
      w3m-input-coding-system           'euc-kr
      w3m-output-coding-system          'euc-kr
      w3m-file-name-coding-system       'euc-kr
      w3m-bookmark-file-coding-system   'euc-kr
      )
;; handle msoe's brain-damaged coding system
(eval-after-load "w3m"
  '(pushnew '(ks_c_5601-1987 . euc-kr) w3m-charset-coding-system-alist))
(add-hook 'w3m-fontify-after-hook 'remove-w3m-output-garbages)
(defun remove-w3m-output-garbages ()
      (interactive)
      (let ((buffer-read-only))
        (setf (point) (point-min))
        (while (re-search-forward "[\200-\240]" nil t)
          (replace-match " "))
        (set-buffer-multibyte t))
      (set-buffer-modified-p nil))
(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 change of WEB sites." t)

(setq mm-inline-text-html-renderer
      'mm-inline-text-html-render-with-w3m)

##### in my .gnus.el
;; ======================================================================
;; start of w3m replacement for w3
;; ======================================================================
(defvar mm-w3m-setup nil)

(defun mm-setup-w3m ()
  (unless mm-w3m-setup
    (require 'w3m)
    (require 'url)
    (require 'url-vars)
    (setq mm-w3m-setup t)) )

(defun mm-inline-text-using-w3m (handle)
  (let ((type (mm-handle-media-subtype handle))
	text buffer-read-only)
    (cond
     ((equal type "html")
      (mm-setup-w3m)
      (setq text (mm-get-part handle))
      (let ((b (point))
	    (url-standalone-mode t)
;	    (url-current-object
;	     (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
	    (width (window-width))
	    (charset (mail-content-type-get
		      (mm-handle-type handle) 'charset)))
	(save-excursion
	  (insert text)
	  (save-restriction
	    (narrow-to-region b (point))
	    (goto-char (point-min))
	    (delete-region (point-min) (point-max))
	    (insert (mm-decode-string text charset))
	    (save-window-excursion
	      (save-restriction
		(let ((fill-column fill-column)
		      (url-standalone-mode t))
		  (condition-case var
                      (w3m-region (point-min) (point-max))
		    (error
		     (message
		      "Error while rendering html; showing as text/plain"))))))
	    (mm-handle-set-undisplayer
	     handle
	     `(lambda ()
		(let (buffer-read-only)
		  (if (functionp 'remove-specifier)
		      (mapcar (lambda (prop)
				(remove-specifier
				 (face-property 'default prop)
				 (current-buffer)))
			      '(background background-pixmap foreground)))
		  (delete-region ,(point-min-marker)
				 ,(point-max-marker)))))))))
     (t
      (error
       (message
        "only html part can be rendered by `mm-inline-text-using-w3m'"))))))

(defun article-wash-html ()
  "Format an html article."
  (interactive)
  (save-excursion
    (let ((buffer-read-only nil)
	  charset)
      (if (gnus-buffer-live-p gnus-original-article-buffer)
	  (with-current-buffer gnus-original-article-buffer
	    (let* ((ct (gnus-fetch-field "content-type"))
		   (ctl (and ct 
			     (ignore-errors
			       (mail-header-parse-content-type ct)))))
	      (setq charset (and ctl
				 (mail-content-type-get ctl 'charset)))
	      (if (stringp charset)
		  (setq charset (intern (downcase charset)))))))
      (unless charset 
	(setq charset gnus-newsgroup-charset))
      (article-goto-body)
      (save-window-excursion
	(save-restriction
	  (narrow-to-region (point) (point-max))
	  (mm-setup-w3m)
	  (let ((url-standalone-mode t))
	    (condition-case var
		(w3m-region (point-min) (point-max))
	      (error))))))))

(setq mm-inline-media-tests
      (cons '("text/html"
              mm-inline-text-using-w3m
              (lambda (handle)
                (locate-library "w3m")))
            mm-inline-media-tests))
;; ======================================================================
;; end of w3m replacement for w3
;; ======================================================================