[S] Re: [PATCH] Check Mule availability at runtime

Ar an naoú lá déag de mí Márta, scríobh Adrian Aichner: > This, however, won't work when > (defmacro mm-xemacs-find-mime-charset (begin end) > (when (and (featurep 'xemacs) (featurep 'mule)) > `(mm-xemacs-find-mime-charset-1 ,begin ,end))) > is compiled by an XEmacs with Mule, which is the case for all > officially distributed XEmacs packages, AFAIK. Note to self; don’t ever trust the Gnus people to test any XEmacs changes. Okay, then, I’ve tested the below locally with a non-Mule build. Does it work for you? xemacs-packages/gnus/ChangeLog addition: 2005-03-19 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lisp/mm-util.el (mm-xemacs-find-mime-charset): Only call mm-xemacs-find-mime-charset-1 if we have the mule feature available at runtime. XEmacs Packages source patch: Diff command: cvs -q diff -u Files affected: xemacs-packages/gnus/lisp/mm-util.el Index: xemacs-packages/gnus/lisp/mm-util.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/mm-util.el,v retrieving revision 1.7 diff -u -u -r1.7 mm-util.el --- xemacs-packages/gnus/lisp/mm-util.el 2005/03/14 02:26:20 1.7 +++ xemacs-packages/gnus/lisp/mm-util.el 2005/03/19 21:25:26 ＠＠ -655,7 +655,7 ＠＠ (defmacro mm-xemacs-find-mime-charset (begin end) (when (featurep 'xemacs) - `(mm-xemacs-find-mime-charset-1 ,begin ,end))) + `(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.