Re: check for a particular header before calling a washing function?

[chr@nybo.no (Christian Nybø)]

kai.grossjohann@uni-duisburg.de (Kai Großjohann) writes:

> chr@nybo.no (Christian Nybø) writes:
> 
> > Correct.  My Emacs is an XEmacs, btw.  I see two-character
> > combinations.
> 
> Aha.  Okay, you have a non-mule XEmacs.  The first step to fix this
> is to install a Mule XEmacs.
> 
> Then, get the Mule-UCS package and the Latin-Unity package and enable
> both.
> 
> I think that should solve your problems.

I think that it's overkill for my needs.  I added this to my .gnus:


(defun utf-8-decode-region (start end)
  (interactive "r")
  (let 	((work-buffer (generate-new-buffer " *utf-8-work*")))
    (unwind-protect
	(save-excursion
	  (buffer-disable-undo work-buffer)
	  (progn 
	    (goto-char start)
	    (while (not (eobp))
	      (cond 
	       ((zerop (logand (following-char) #x80)) ; high bit is not set
		(insert-char (following-char) 1 t work-buffer))
	       ((= (logand #xE0 (following-char)) #xC0)
		(insert-char (logior (lsh (logand (following-char) #b00011111) 6) 
				     (progn (forward-char) (logand (following-char) #b00111111)))
			     1 t work-buffer)))
	      (forward-char))
	    (or (markerp end) (setq end (set-marker (make-marker) end)))
	    (goto-char start)
	    (insert-buffer-substring work-buffer)
	    (delete-region (point) end)))
      (and work-buffer (kill-buffer work-buffer)))))

(defun gnus-article-de-utf-8 ()
  "Convert utf-8 to latin-1"
  (interactive)
  (save-excursion
    (set-buffer gnus-article-buffer)
    (let ((buffer-read-only nil))
      (widen)
      (goto-char (point-min))
      (search-forward "\n\n" nil t)
      (utf-8-decode-region (point) (point-max)))))

(define-key gnus-summary-mode-map "Wu" 'gnus-article-de-utf-8)

(defun gnus-article-maybe-de-utf-8 ()
  (let* ((ct (message-fetch-field "Content-Type" t))
	 (ctlist (and ct (mail-header-parse-content-type ct))))
    (when (string=
	   (cdr (assoc 'charset
		       (cdr ctlist)))
	   "utf-8")
      (gnus-article-de-utf-8))))

thus articles encoded in utf-8 consisting of characters in the range
from 0 to 255 are displayed nicely.

Thanks for your time.
-- 
chr