From: Reiner Steib Date: Sun, 10 Feb 2008 13:08:48 +0000 (+0000) Subject: (mm-codepage-setup): If cp-supported-codepages isn't X-Git-Tag: emacs-pretest-23.0.90~8045 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b9c5ab7afe6ee2162c555956ac850490c53b706;p=emacs.git (mm-codepage-setup): If cp-supported-codepages isn't fbound (Emacs 23 unicode), signal an error. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4c3d3632215..047b0cfafc2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2008-02-10 Reiner Steib + + * mm-util.el (mm-codepage-setup): If cp-supported-codepages isn't + fbound (Emacs 23 unicode), signal an error. + 2008-02-08 Glenn Morris * gnus-art.el (pgg-display-output-buffer): Declare as function. diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 8a4fd5e6e65..2f473ff184c 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -219,7 +219,10 @@ non-nil, an alias is created and added to 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