[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: View html source in gnus with emacs-w3m?



>>>>> In [semi-gnus-ja : No.7756] 土屋さん wrote:

山> T-gnus のあれは default-mime-charset でデコードするだけですが、
山> encoding と charset は生記事が指定した値を使うようにすると良いです
山> ね。

> T-gnus でもそうして貰えるととっても有難いのですけれど.shimbun で生成
> された記事の本体を確認しようと M-t すると文字化けしてしまって,悲しい
> 思いをしています.

> と言うか,以前似たような話題になった時に,source を閲覧するためのコマ
> ンドがあるという話をどなたかがされてたような気がするのですが….

*Summary* バッファで C-u g というのが ding に出ていますが、あれ
は役に立ちませんね。こんな感じでしょうか。

(defvar orig-mime-preview-condition nil)

(defun toggle-mime-preview-condition ()
  "Toggle `mime-preview-condition' between full spec and simplified spec.
`simplified' means treat all text/* contents as text/plain."
  (interactive)
  (require 'mime-view)
  ;; Make sure `mime-preview-condition' has been set up to use mime-w3m.
  (condition-case nil
      (require 'mime-w3m)
    (error))
  (let ((text (assq 'text mime-preview-condition)))
    (if (> (length text) 3)
	(progn
	  (setq orig-mime-preview-condition
		(copy-sequence mime-preview-condition))
	  (setcar (memq text orig-mime-preview-condition)
		  (copy-sequence text))
	  (setcdr text '(subtype
			 (t body (visible body-presentation-method
					  (mime-display-text/plain))))))
      (setq mime-preview-condition orig-mime-preview-condition))))

たぶん gnus-show-mime を 3値にして、記事を表示するときだけ let
で mime-preview-condition の値を束縛するのが良いのではないかと思
うのですが、けっこう面倒そうです。
-- 
Katsumi Yamaoka <yamaoka@jpl.org>