Re: fucked in gnus

Ben Wing <ben(a)666.com&gt; writes: > try this patch and see if it fixes things. Unfortunately, it's not. I think it also causes problem under Windows. Try this patch. I'll apply this on Monday if no one objects. 2000-07-14 Yoshiki Hayashi <yoshiki(a)xemacs.org&gt; * select.c (get_local_selection): Fix argument to assq_no_quit. 2000-07-14 Yoshiki Hayashi <yoshiki(a)xemacs.org&gt; * select.el (selection-converter-alist): Set up converter for X. -------------------------------------------------------------------------------- Index: select.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/select.el,v retrieving revision 1.5.2.9 diff -u -r1.5.2.9 select.el --- select.el 2000/07/13 09:06:26 1.5.2.9 +++ select.el 2000/07/14 10:52:29 ＠＠ -659,8 +659,27 ＠＠ ;; Types listed here can be selections foreign to XEmacs (setq selection-converter-in-alist - '((CF_TEXT . select-convert-from-cf-text) - )) + '((TEXT . select-convert-to-text) + (STRING . select-convert-to-string) + (COMPOUND_TEXT . select-convert-to-compound-text) + (TARGETS . select-convert-to-targets) + (LENGTH . select-convert-to-length) + (DELETE . select-convert-to-delete) + (FILE_NAME . select-convert-to-filename) + (CHARACTER_POSITION . select-convert-to-charpos) + (SOURCE_LOC . select-convert-to-sourceloc) + (LINE_NUMBER . select-convert-to-lineno) + (COLUMN_NUMBER . select-convert-to-colno) + (OWNER_OS . select-convert-to-os) + (HOST_NAME . select-convert-to-host) + (USER . select-convert-to-user) + (CLASS . select-convert-to-class) + (NAME . select-convert-to-name) + (ATOM . select-convert-to-atom) + (INTEGER . select-convert-to-integer) + (_EMACS_INTERNAL . select-convert-to-identity) + ((CF_TEXT . select-convert-from-cf-text) + )))

;; Types listed here can be appended by own-selection (setq selection-appender-alist -------------------------------------------------------------------------------- Index: select.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs/src/Attic/select.c,v retrieving revision 1.1.2.3 diff -u -r1.1.2.3 select.c --- select.c 2000/07/13 09:06:35 1.1.2.3 +++ select.c 2000/07/14 10:52:12 ＠＠ -132,9 +132,11 ＠＠ return value; /* We couldn't. Try for a generic type instead. */ - value = assq_no_quit (target_type, Qnil); - - return convert_selection (selection_symbol, value, target_type, 0); + value = assq_no_quit (Qnil, value_list); + if (CONSP (value)) + value = XCDR (value); + + return convert_selection (selection_symbol, value, target_type, 0); } return Qnil; -------------------------------------------------------------------------------- -- Yoshiki Hayashi