(fboundp): After loading mm-util, make sure it was the right one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3526b8..fed5764 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-03  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * gnus.el (fboundp): After loading mm-util, make sure it was the
+       right one.
+
 2002-11-29  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * gnus-art.el (gnus-inhibit-mime-unbuttonizing): Moved here from

diff --git a/lisp/gnus.el b/lisp/gnus.el
index bbbb83c..710c94b 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -34,6 +34,10 @@
 (require 'wid-edit)
 (require 'mm-util)
 
+;; Make sure it was the right mm-util.
+(unless (fboundp 'mm-guess-mime-charset)
+  (error "Wrong `mm-util' found in `load-path'.  Make sure the Gnus one is found first."))
+
 (defgroup gnus nil
   "The coffee-brewing, all singing, all dancing, kitchen sink newsreader."
   :group 'news