mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(mm-codepage-setup): If cp-supported-codepages isn't

Browse Source 
fbound (Emacs 23 unicode), signal an error.
This commit is contained in:
Reiner Steib 2008-02-10 13:08:48 +00:00
parent 4b75ffab30
commit 0b9c5ab7af
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -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.

5
lisp/gnus/mm-util.el
View File

@ -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