comparison lisp/gnus/mm-util.el @ 83284:360860a0006f

Merged from [e-mail]--gnu-2005 (patch 45-55, 214-231) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-214 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-215 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-216 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-217 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-218 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-219 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-220 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-221 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-222 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-223 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-224 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-225 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-226 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-227 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-228 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-229 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-230 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-231 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-45 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-46 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-47 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-48 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-49 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-50 Update from CVS: texi Makefile.in CVS keyw cruft * [e-mail]--gnu-2005/gnus--rel--5.10--patch-51 Update from CVS: ChangeLog tweaks * [e-mail]--gnu-2005/gnus--rel--5.10--patch-52 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-53 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-54 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-55 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-324

83283:45e5f0224d81

			   (if dir-flag
			       (make-directory file))
			   file)))
     (insert-byte . insert-char)
     (multibyte-char-to-unibyte . identity))))

(eval-and-compile
  (defalias 'mm-char-or-char-int-p
    (cond
     ((fboundp 'char-or-char-int-p) 'char-or-char-int-p)

But this is very much a corner case, so don't worry about it."
  (let ((systems mm-coding-system-priorities) csets psets curset)

    ;; Load the Latin Unity library, if available.
    (when (and (not (featurep 'latin-unity)) (locate-library "latin-unity"))
      (require 'latin-unity))

    ;; Now, can we use it?
    (if (featurep 'latin-unity)
	(progn
	  (setq csets (latin-unity-representations-feasible-region begin end)

      ;; take its default action, which equally applies to GNU Emacs.
      nil)))

(defmacro mm-xemacs-find-mime-charset (begin end)
  (when (featurep 'xemacs)
    `(mm-xemacs-find-mime-charset-1 ,begin ,end)))

(defun mm-find-mime-charset-region (b e &optional hack-charsets)
  "Return the MIME charsets needed to encode the region between B and E.
nil means ASCII, a single-element list represents an appropriate MIME
charset, and a longer list means no appropriate charset."

83284:360860a0006f

			   (if dir-flag
			       (make-directory file))
			   file)))
     (insert-byte . insert-char)
     (multibyte-char-to-unibyte . identity))))

(eval-and-compile
  (cond
   ((fboundp 'replace-in-string)
    (defalias 'mm-replace-in-string 'replace-in-string))
   ((fboundp 'replace-regexp-in-string)
    (defun mm-replace-in-string (string regexp newtext &optional literal)
      "Replace all matches for REGEXP with NEWTEXT in STRING.
If LITERAL is non-nil, insert NEWTEXT literally.  Return a new
string containing the replacements.

This is a compatibility function for different Emacsen."
      (replace-regexp-in-string regexp newtext string nil literal)))
   (t
    (defun mm-replace-in-string (string regexp newtext &optional literal)
      "Replace all matches for REGEXP with NEWTEXT in STRING.
If LITERAL is non-nil, insert NEWTEXT literally.  Return a new
string containing the replacements.

This is a compatibility function for different Emacsen."
      (let ((start 0) tail)
	(while (string-match regexp string start)
	  (setq tail (- (length string) (match-end 0)))
	  (setq string (replace-match newtext nil literal string))
	  (setq start (- (length string) tail))))
      string))))

(eval-and-compile
  (defalias 'mm-char-or-char-int-p
    (cond
     ((fboundp 'char-or-char-int-p) 'char-or-char-int-p)

But this is very much a corner case, so don't worry about it."
  (let ((systems mm-coding-system-priorities) csets psets curset)

    ;; Load the Latin Unity library, if available.
    (when (and (not (featurep 'latin-unity)) (locate-library "latin-unity"))
      (ignore-errors (require 'latin-unity)))

    ;; Now, can we use it?
    (if (featurep 'latin-unity)
	(progn
	  (setq csets (latin-unity-representations-feasible-region begin end)

      ;; take its default action, which equally applies to GNU Emacs.
      nil)))

(defmacro mm-xemacs-find-mime-charset (begin end)
  (when (featurep 'xemacs)
    `(and (featurep 'mule) (mm-xemacs-find-mime-charset-1 ,begin ,end))))

(defun mm-find-mime-charset-region (b e &optional hack-charsets)
  "Return the MIME charsets needed to encode the region between B and E.
nil means ASCII, a single-element list represents an appropriate MIME
charset, and a longer list means no appropriate charset."