# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1222968447 0
# Node ID 512497325cb3c7ee8fbbdf2e05927e6565d390f1
# Parent  976ed432b7ecd3e4d41e3ffa067b63fdb3de2344
(mm-codepage-setup): Tweak codepage error.  Silence compiler warning.

diff -r 976ed432b7ec -r 512497325cb3 lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Thu Oct 02 17:08:12 2008 +0000
+++ b/lisp/gnus/mm-util.el	Thu Oct 02 17:27:27 2008 +0000
@@ -220,8 +220,8 @@
    (let ((completion-ignore-case t)
 	 (candidates (if (fboundp 'cp-supported-codepages)
 			 (cp-supported-codepages)
-		       ;; Removed in Emacs 23 (unicode), sosignal an error:
-		       (error "`codepage-setup' is obsolete in this Emacs version."))))
+		       ;; Removed in Emacs 23 (unicode), so signal an error:
+		       (error "`codepage-setup' not present in this Emacs version."))))
      (list (completing-read "Setup DOS Codepage: (default 437) " candidates
 			    nil t nil nil "437"))))
   (when alias
@@ -230,7 +230,9 @@
 		  (intern (format "windows-%s" number)))))
   (let* ((cp (intern (format "cp%s" number))))
     (unless (mm-coding-system-p cp)
-      (codepage-setup number))
+      (if (fboundp 'codepage-setup)	; silence compiler
+	  (codepage-setup number)
+	(error "`codepage-setup' not present in this Emacs version.")))
     (when (and alias
 	       ;; Don't add alias if setup of cp failed.
 	       (mm-coding-system-p cp))