Mercurial > emacs

diff lisp/gnus/mm-util.el @ 91718:89610dccd10a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mm-codepage-setup): If cp-supported-codepages isn't fbound (Emacs 23 unicode), signal an error.
author Reiner Steib <Reiner.Steib@gmx.de>
date Sun, 10 Feb 2008 13:08:48 +0000
parents 606f2d163a64
children 37d6263f580b
line wrap: on
line diff
--- 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