Re: vc-version-other-window, does not "respect" UTF-8

Ar an seachtú lá de mí na Nollaig, scríobh Uwe Brauer: :-( . Sorry to hear about that; I don’t have the time to get to that at the moment. I don’t *really* have the time to get to the XEmacs work I’m currently doing. I didn’t use any particular framework for it, beyond advice and the message-insert-citation-line-function variable for Gnus. Anyway, here’s the code for VM and Gnus, if you want to adapt it. (defconst irish-month-list [nil "Eanair" "Feabhra" "M\341rta" "Aibr\351an" "Bealtaine" "Meitheamh" "I\372il" "L\372nasa" "M\351an F\363mhair" "Deireadh F\363mhair" "na Samhain" "na Nollaig"] "The months in Irish, in a format suitable to being preceded by mí.") (defconst irish-day-ordinal-list [nil "ch\351ad l\341" "dara l\341" "tri\372 l\341" "ceathr\372 l\341" "c\372igi\372 l\341" "s\351i\372 l\341" "seacht\372 l\341" "t-ocht\372 l\341" "naoi\372 l\341" "deichi\372 l\341" "t-aon\372 l\341 d\351ag" "dara l\341 d\351ag" "tri\372 l\341 d\351ag" "ceathr\372 l\341 d\351ag" "c\372igi\372 l\341 d\351ag" "s\351\372 l\341 d\351ag" "seacht\372 l\341 d\351ag" "t-ocht\372 l\341 d\351ag" "nao\372 l\341 d\351ag" "fichi\372 l\341" "ch\351ad l\341 is fiche" "dara l\341 is fiche" "tr\355\372 l\341 is fiche" "ceathr\372 l\341 is fiche" "c\372igi\372 l\341 is fiche" "s\351\372 l\341 is fiche" "seacht\372 l\341 is fiche" "t-ocht\372 l\341 is fiche" "nao\372 l\341 is fiche" "triochad\372 l\341" "t-aon\372 l\341 is triochad" "dara l\341 is triochad"] "The ordinal names of the days of the month, in Irish.") (defvar correspondents-attribution-remapping (list (list (downcase "Hrvoje Niksic") (format "Hrvoje Nik%ci%c" (or (and-fboundp #'decode-char (decode-char 'ucs #x161)) ?s) (or (and-fboundp #'decode-char (decode-char 'ucs #x107)) ?c))) (list (downcase "[Someone] Lopez") "[Someone] L\363pez")) "An alist of people whose names should be remapped in the attribution line, and what those names should be remapped to. ") (defun message-insert-citation-as-gaeilge () "Insert a citation line in Irish." (when message-reply-headers (let* ((iso-date-list (timezone-parse-date (mail-header-date message-reply-headers))) (month (string-to-int (elt iso-date-list 1))) (day (string-to-int (elt iso-date-list 2))) (full-from (mail-extract-address-components (mail-header-from message-reply-headers))) (sender (or (first full-from) (second full-from))) (remap (assoc (downcase sender) correspondents-attribution-remapping))) (if remap (setq sender (second remap))) (insert "\n Ar an " (elt irish-day-ordinal-list day) " de m\355 " (elt irish-month-list month) ", scr\355obh " sender ": \n\n")))) (setq message-citation-line-function #'message-insert-citation-as-gaeilge) (defadvice vm-do-reply (around tweak-vm-included-text-attributions activate) "Make an Irish-language attribution statement to work with VM. This is broken for those invocations where VM replies to multiple messages at once. " (let* ((msg (car (vm-select-marked-or-prefixed-messages count))) (send-full-name (vm-su-full-name msg)) (remap (assoc (downcase send-full-name) correspondents-attribution-remapping))) ;; These two variables are loaded from my ~/.xemacs/init.el at the ;; moment. (assert (and (not (null irish-day-ordinal-list)) (not (null irish-month-list)))) ;; We're not doing anything useful for multiple messages. (assert (= 1 count)) (if remap (setq send-full-name (second remap))) (setq vm-included-text-attribution-format (concat "\n Ar an " (elt irish-day-ordinal-list (string-to-int (vm-su-monthday msg))) " de m\355 " (elt irish-month-list (string-to-int (vm-su-month-number msg))) ", scr\355obh " send-full-name ": \n\n")) ad-do-it)) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta