Re: decoding characters

[Toby Speight <streapadair@gmx.net>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1658 bytes --]

Laura> Laura Conrad <URL:mailto:lconrad@world.std.com>

0> In article <kh7og6crir4.fsf@acme47.nineco.com>, Laura wrote:

Laura> I got an email which contained a table of TeX codings for
Laura> characters, and also the characters.  Most of them looked like
Laura> I expected, but there were 3 that displayed wrong in my gnus:
Laura>
Laura> œ      \oe (displayed as \234)
Laura> Π     \OE (displayed as \214)
Laura> Ÿ      \"Y (displayed as \237)
Laura>
Laura> I'm using: xemacs*font:
Laura> -etl-fixed-medium-r-normal--16-160-72-72-c-80-iso8859-1

Is your Emacs unibyte or multibyte?

IS8859 charsets don't assign characters in the range \200 - \237, so
if you're Unibyte, you shouldn't expect anything there.


Laura> I also have (x-symbol-initialize) in my .emacs.

This doesn't mean anything to me, so forgive me if I misunderstand
something later.


Laura> When I just 'more' the mail file in and xterm, \oe and \OE are
Laura> blank, but \"y displays fine, using the same font as I have
Laura> defined for xemacs.

I think the ETL fonts include \"Y at \237 - but you haven't told this
to Emacs.  (aset standard-display-table ?\237 [?\237])


Laura> The relevant headers from the mail are:
Laura>
Laura> Content-Type: multipart/mixed;
Laura>  boundary="------------4721D1F8D2DD403F6A49197F"

Actually, that's not the most relevant header.  What would be more
useful would be the Content-Type line of the particular part you're
having problems with.

If, as I suspect, it has charset=windows-1252, you might be interested
in the following display table I wrote for Emacs 19 (no warranty for
other emacsen):


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Viewing Windows and Mac charsets in articles --]
[-- Type: text/x-emacs-lisp, Size: 4535 bytes --]

(defvar pc-quotes-display-table nil
  "Display table for viewing text containing CP1252 characters.")
(defun pc-quotes-article-display-pc-quotes ()
  "Change the display table of the *Article* buffer so it displays PC quotes."
  (interactive)
  (save-window-excursion
    (set-buffer gnus-article-buffer)
    (setq buffer-display-table pc-quotes-display-table)))

(defvar mac-quotes-display-table nil
  "Display table for viewing text containing Macintosh-specific characters.")
(defun pc-quotes-article-display-mac-quotes ()
  "Change the display table of the *Article* buffer so it displays Mac quotes."
  (interactive)
  (save-window-excursion
    (set-buffer gnus-article-buffer)
    (setq buffer-display-table mac-quotes-display-table)))

(defun pc-quotes-article-display-standard-quotes ()
  "Change the display table of the *Article* buffer to be the standard one."
  (interactive)
  (save-window-excursion
    (set-buffer gnus-article-buffer)
    (setq buffer-display-table standard-display-table)))

(or (boundp 'gnus-summary-mode-map) (require 'gnus-sum))

;;; Display tables
(setq pc-quotes-display-table
      (if standard-display-table
          (copy-sequence standard-display-table)
        (make-display-table)))
(mapcar
 (function
  (lambda (x)
    (aset pc-quotes-display-table (car x)
          (if (member window-system '(w32 win32)) (vector (car x)) (cdr x))
          ;;(cdr x)
          )))
 (list
  '(?\200 . [ 163 ?e ])               ; euro symbol

  '(?\202 . [ ?, ])
  '(?\203 . [ ?f ])
  '(?\204 . [ ?, ?, ])
  '(?\205 . [ ?. ?. ?. ])
  '(?\206 . [ ?+ ])
  '(?\207 . [ ?# ])
  '(?\210 . [ ?^ ])
  '(?\211 . [ ?% ?. ])
  '(?\212 . [ ?\\ ?^ ?S ])
  '(?\213 . [ ?< ])
  '(?\214 . [ ?O ?E ])

  '(?\216 . [ ?\\ ?^ ?Z ])


  '(?\221 . [ ?` ])
  '(?\222 . [ ?' ])
  '(?\223 . [ ?` ?` ])
  '(?\224 . [ ?' ?' ])
  '(?\225 . [ 183 ])                    ; middot (ISO 8859.1)
  '(?\226 . [ ?- ?- ])
  '(?\227 . [ ?- ?- ?- ])
  '(?\230 . [ ?~ ])
  '(?\231 . [ ?[ ?T ?M ?] ])            ; or (vector ?T ?M)
  '(?\232 . [ ?\\ ?^ ?s ])
  '(?\233 . [ ?> ])
  '(?\234 . [ ?o ?e ])

  '(?\236 . [ ?\\ ?^ ?z ])
  '(?\237 . [ ?\\ ?\" ?Y ])))

(setq mac-quotes-display-table
      (if standard-display-table
          (copy-sequence standard-display-table)
        (make-display-table)))
(mapcar
 (function
  (lambda (x)
    (aset mac-quotes-display-table (car x) (cdr x))))
 (list
  '(?\200 . [ ?\304 ])
  '(?\201 . [ ?\305 ])
  '(?\202 . [ ?\307 ])
  '(?\203 . [ ?\311 ])
  '(?\204 . [ ?\321 ])
  '(?\205 . [ ?\326 ])
  '(?\206 . [ ?\334 ])
  '(?\207 . [ ?\341 ])
  '(?\210 . [ ?\340 ])
  '(?\211 . [ ?\342 ])
  '(?\212 . [ ?\344 ])
  '(?\213 . [ ?\343 ])
  '(?\214 . [ ?\345 ])
  '(?\215 . [ ?\347 ])
  '(?\216 . [ ?\351 ])
  '(?\217 . [ ?\350 ])
  '(?\220 . [ ?\352 ])
  '(?\221 . [ ?\353 ])
  '(?\222 . [ ?\355 ])
  '(?\223 . [ ?\354 ])
  '(?\224 . [ ?\356 ])
  '(?\225 . [ ?\357 ])
  '(?\226 . [ ?\361 ])
  '(?\227 . [ ?\363 ])
  '(?\230 . [ ?\362 ])
  '(?\231 . [ ?\364 ])
  '(?\232 . [ ?\366 ])
  '(?\233 . [ ?\365 ])
  '(?\234 . [ ?\372 ])
  '(?\235 . [ ?\371 ])
  '(?\236 . [ ?\373 ])
  '(?\237 . [ ?\374 ])
  '(?\241 . [ ?\260 ])
  '(?\244 . [ ?\247 ])
  '(?\246 . [ ?\266 ])
  '(?\247 . [ ?\337 ])
  '(?\250 . [ ?\256 ])
  '(?\253 . [ ?\264 ])
  '(?\254 . [ ?\250 ])
  '(?\256 . [ ?\306 ])
  '(?\257 . [ ?\330 ])
  '(?\262 . [ ?= ?< ])
  '(?\263 . [ ?> ?= ])
  '(?\264 . [ ?\245 ])
  '(?\273 . [ ?\252 ])
  '(?\274 . [ ?\272 ])
  '(?\276 . [ ?\346 ])
  '(?\277 . [ ?\370 ])
  '(?\300 . [ ?\277 ])
  '(?\301 . [ ?\241 ])
  '(?\302 . [ ?\254 ])
  '(?\307 . [ ?\253 ])
  '(?\310 . [ ?\273 ])
  '(?\311 . [ ?. ?. ?. ])
  '(?\312 . [ ?\240 ])
  '(?\313 . [ ?\300 ])
  '(?\314 . [ ?\303 ])
  '(?\315 . [ ?\325 ])
  '(?\316 . [ ?O ?E ])
  '(?\317 . [ ?o ?e ])
  '(?\320 . [ ?- ?- ])
  '(?\321 . [ ?- ])
  '(?\322 . [ ?` ?` ])
  '(?\323 . [ ?' ?' ])
  '(?\324 . [ ?` ])
  '(?\325 . [ ?' ])
  '(?\326 . [ ?\367 ])
  '(?\327 . [ ?* ])
  '(?\330 . [ ?\377 ])
  '(?\331 . [ ?\377 ])
  '(?\332 . [ ?/ ])
  '(?\333 . [ ?\244 ])
  '(?\334 . [ ?< ])
  '(?\335 . [ ?> ])
  '(?\336 . [ ?f ?i ])
  '(?\337 . [ ?f ?l ])
  '(?\341 . [ ?\267 ])
  '(?\345 . [ ?\302 ])
  '(?\346 . [ ?\312 ])
  '(?\347 . [ ?\301 ])
  '(?\350 . [ ?\313 ])
  '(?\352 . [ ?\315 ])
  '(?\353 . [ ?\316 ])
  '(?\354 . [ ?\317 ])
  '(?\355 . [ ?\314 ])
  '(?\356 . [ ?\323 ])
  '(?\357 . [ ?\324 ])
  '(?\361 . [ ?\322 ])
  '(?\362 . [ ?\332 ])
  '(?\363 . [ ?\333 ])
  '(?\364 . [ ?\331 ])
  '(?\365 . [ ?\151 ])
  '(?\370 . [ ?\257 ])
  '(?\374 . [ ?\270 ])))