[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/10/02 17:27:27

Index: mm-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/mm-util.el,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- mm-util.el  25 Jun 2008 15:10:16 -0000      1.73
+++ mm-util.el  2 Oct 2008 17:27:27 -0000       1.74
@@ -220,8 +220,8 @@
    (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 @@
                  (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))