--- dgnushack.el~	2013-01-06 22:08:11 +0000
+++ dgnushack.el	2013-05-20 23:53:55 +0000
@@ -24,6 +24,13 @@
 
 ;;; Code:
 
+(if (and (featurep 'xemacs)
+	 (fboundp 'find-coding-system)
+	 (not (find-coding-system 'utf-8)))
+    (condition-case nil
+	(require 'un-define)
+      (error nil)))
+
 (defvar dgnushack-default-load-path (copy-sequence load-path))
 
 (defalias 'facep 'ignore)
--- gnus-spec.el~	2013-05-20 22:12:26 +0000
+++ gnus-spec.el	2013-05-20 23:53:57 +0000
@@ -1,4 +1,4 @@
-;;; gnus-spec.el --- format spec functions for Gnus
+;;; gnus-spec.el --- format spec functions for Gnus -*- coding: utf-8 -*-
 
 ;; Copyright (C) 1996-2013 Free Software Foundation, Inc.
 
@@ -441,7 +441,7 @@
 	      (delim (aref (match-string 2) 0)))
 	  (if (or (= delim ?\()
 		  (= delim ?\{)
-		  (= delim ?\u00AB)) ; «
+		  (= delim ?\«))
 	      (replace-match (concat "\"("
 				     (cond ((= delim ?\() "mouse")
 					   ((= delim ?\{) "face")
@@ -732,8 +732,4 @@
 
 (provide 'gnus-spec)
 
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
 ;;; gnus-spec.el ends here