XEmacs 21.1.9 breaks Gnus v5.8 (get-charset-property)

XEmacs 21.1.9 breaks Gnus v5.8 (get-charset-property)

[Jason R Mastaler]

When trying to send mail from XEmacs 21.1.9 and Gnus v5.8.x (latest
CVS), I get the following error and backtrace:
   
Signaling: (void-function get-charset-property)
  get-charset-property(ascii prefered-coding-system)
  mm-preferred-coding-system(ascii)
  mm-mime-charset(ascii)
  mapcar(mm-mime-charset (ascii))
  rfc2047-encodable-p()
  mail-encode-encoded-word-buffer()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit)

It looks like Andreas Jaeger reported this problem to xemacs-beta back
in early December, but nothing was done about it.  See:
  
<URL:http://www.xemacs.org/list-archives/xemacs-beta/199912/msg00123.html>
  

Re: XEmacs 21.1.9 breaks Gnus v5.8 (get-charset-property)

[Florian Weimer]

Jason R Mastaler <jason@mastaler.com> writes:

> When trying to send mail from XEmacs 21.1.9 and Gnus v5.8.x (latest
> CVS), I get the following error and backtrace:
>    
> Signaling: (void-function get-charset-property)
>   get-charset-property(ascii prefered-coding-system)

Could you try the following definition of `mm-mime-charset'?

(defun mm-mime-charset (charset)
  "Return the MIME charset corresponding to the MULE CHARSET."
  (if (and (fboundp 'coding-system-get) (fboundp 'get-charset-property))
      ;; This exists in Emacs 20.
      (or
       (and (mm-preferred-coding-system charset)
	    (coding-system-get
	     (mm-preferred-coding-system charset) 'mime-charset))
       (and (eq charset 'ascii)
	    'us-ascii)
       (mm-preferred-coding-system charset)
       (mm-mule-charset-to-mime-charset charset))
    ;; This is for XEmacs.
    (mm-mule-charset-to-mime-charset charset)))

Re: XEmacs 21.1.9 breaks Gnus v5.8 (get-charset-property)

[Jason R Mastaler]

Florian Weimer <fw@deneb.cygnus.argh.org> writes:

> > Signaling: (void-function get-charset-property)
> >   get-charset-property(ascii prefered-coding-system)
> 
> Could you try the following definition of `mm-mime-charset'?
> 
> (defun mm-mime-charset (charset)
>   "Return the MIME charset corresponding to the MULE CHARSET."
>   (if (and (fboundp 'coding-system-get) (fboundp 'get-charset-property))
>       ;; This exists in Emacs 20.
>       (or
>        (and (mm-preferred-coding-system charset)
> 	    (coding-system-get
> 	     (mm-preferred-coding-system charset) 'mime-charset))
>        (and (eq charset 'ascii)
> 	    'us-ascii)
>        (mm-preferred-coding-system charset)
>        (mm-mule-charset-to-mime-charset charset))
>     ;; This is for XEmacs.
>     (mm-mule-charset-to-mime-charset charset)))

This fixes the problem.