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>
* 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.
--
“I, for instance, am gung-ho about open source because my family is being
held hostage in Rob Malda’s basement. But who fact-checks me, or Enderle,
when we say something in public? No-one!” -- Danny O’Brien