diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-10-02 17:27:35 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-10-02 17:27:35 +0000 |
| commit | 06b2d4c6a24366698449c4789b5864ad7caa9338 (patch) | |
| tree | 499d5ed71a2a2038855bb06cf52032cf40115731 /lisp/gnus/mm-util.el | |
| parent | c8f55af59402db1c0f01b4fe3646001488c99740 (diff) | |
| download | emacs-06b2d4c6a24366698449c4789b5864ad7caa9338.tar.gz | |
(mm-codepage-setup): Tweak codepage error. Silence compiler warning.
Diffstat (limited to 'lisp/gnus/mm-util.el')
| -rw-r--r-- | lisp/gnus/mm-util.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 453beae5216..383b1b87916 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -220,8 +220,8 @@ the alias. Else windows-NUMBER is used." (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 @@ the alias. Else windows-NUMBER is used." (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)) |