Function: url-mime-charset-string

url-mime-charset-string is a byte-compiled function defined in url-vars.el.gz.

Signature

(url-mime-charset-string)

Documentation

Generate a list of preferred MIME charsets for HTTP requests.

Generated according to current coding system priorities.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-vars.el.gz
;; Perhaps the first few should actually be given decreasing `q's and
;; the list should be trimmed significantly.
(defun url-mime-charset-string ()
  "Generate a list of preferred MIME charsets for HTTP requests.
Generated according to current coding system priorities."
  (require 'mm-util)
  (let ((ordered (sort-coding-systems
		  (let (accum)
		    (dolist (elt mm-mime-mule-charset-alist)
		      (if (coding-system-p (car elt))
			  (push (car elt) accum)))
		    (nreverse accum)))))
    (concat (format "%s;q=1, " (pop ordered))
	    (mapconcat #'symbol-name ordered ";q=0.5, ")
	    ";q=0.5")))