Function: mm-charset-after

mm-charset-after is a byte-compiled function defined in mm-util.el.gz.

Signature

(mm-charset-after &optional POS)

Documentation

Return charset of a character in current buffer at position POS.

If POS is nil, it defaults to the current point. If POS is out of range, the value is nil.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-util.el.gz
(defun mm-charset-after (&optional pos)
  "Return charset of a character in current buffer at position POS.
If POS is nil, it defaults to the current point.
If POS is out of range, the value is nil."
  (let ((char (char-after pos)) charset)
    (if (< char 128)
	(setq charset 'ascii)
      (setq charset (char-charset char))
      (if (and charset (not (memq charset '(ascii eight-bit-control
						  eight-bit-graphic))))
	  charset
	(mm-guess-charset)))))