# HG changeset patch
# User Reiner Steib <Reiner.Steib@gmx.de>
# Date 1202648928 0
# Node ID 89610dccd10ab09beeed7d9e6be33d6e64d927ef
# Parent  23bd9edca21f03485c598ae67a316bb4445082e7
(mm-codepage-setup): If cp-supported-codepages isn't
fbound (Emacs 23 unicode), signal an error.

diff -r 23bd9edca21f -r 89610dccd10a lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Feb 10 03:20:40 2008 +0000
+++ b/lisp/gnus/ChangeLog	Sun Feb 10 13:08:48 2008 +0000
@@ -1,3 +1,8 @@
+2008-02-10  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* mm-util.el (mm-codepage-setup): If cp-supported-codepages isn't
+	fbound (Emacs 23 unicode), signal an error.
+
 2008-02-08  Glenn Morris  <rgm@gnu.org>
 
 	* gnus-art.el (pgg-display-output-buffer): Declare as function.
diff -r 23bd9edca21f -r 89610dccd10a lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Sun Feb 10 03:20:40 2008 +0000
+++ b/lisp/gnus/mm-util.el	Sun Feb 10 13:08:48 2008 +0000
@@ -219,7 +219,10 @@
 the alias.  Else windows-NUMBER is used."
   (interactive
    (let ((completion-ignore-case t)
-	 (candidates (cp-supported-codepages)))
+	 (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."))))
      (list (completing-read "Setup DOS Codepage: (default 437) " candidates
 			    nil t nil nil "437"))))
   (when alias