Lines Matching defs:charset
52 (defcustom mm-body-charset-encoding-alist
66 :type '(repeat (cons (symbol :tag "charset")
74 (defun mm-encode-body (&optional charset)
77 If there is more than one non-ASCII MULE charset in the body, then the
79 If CHARSET is non-nil, it is used as the MIME charset to encode the body.
80 If successful, the MIME charset is returned.
84 ;; return the value of `mail-parse-charset' if any are found.
85 (or charset
89 (or mail-parse-charset
90 (message-options-get 'mm-encody-body-charset)
92 'mm-encody-body-charset
98 (if charset
101 (mm-charset-to-coding-system charset))
102 charset)
104 (let ((charsets (mm-find-mime-charset-region (point-min) (point-max)
116 (setq charset (car charsets))
118 (mm-charset-to-coding-system charset))))
133 (defvar message-posting-charset)
135 (defun mm-body-encoding (charset &optional encoding)
151 (not (cdr (assq charset mm-body-charset-encoding-alist)))
152 (or (eq t (cdr message-posting-charset))
153 (memq charset (cdr message-posting-charset))
154 (eq charset mail-parse-charset)))
158 (cdr (assq charset mm-body-charset-encoding-alist))
239 (defun mm-decode-body (charset &optional encoding type)
242 CHARSET is the MIME charset with which to decode the data after transfer
243 decoding. If it is nil, default to `mail-parse-charset'."
244 (when (stringp charset)
245 (setq charset (intern (downcase charset))))
246 (when (or (not charset)
249 (memq charset mail-parse-ignored-charsets))
250 (setq charset mail-parse-charset))
255 (not (eq charset 'gnus-decoded)))
256 (let ((coding-system (mm-charset-to-coding-system
258 ;; `mm-charset-override-alist'.
259 charset nil t)))
264 (mm-charset-to-coding-system mail-parse-charset)))
265 (when (and charset coding-system
271 (setq coding-system mail-parse-charset)))
279 (defun mm-decode-string (string charset)
281 (when (stringp charset)
282 (setq charset (intern (downcase charset))))
283 (when (or (not charset)
286 (memq charset mail-parse-ignored-charsets))
287 (setq charset mail-parse-charset))
290 (let ((coding-system (mm-charset-to-coding-system
291 charset
293 ;; `mm-charset-override-alist'.
299 (mm-charset-to-coding-system mail-parse-charset)))
300 (when (and charset coding-system
303 (setq coding-system mail-parse-charset)))