(fortune-from-region): Use `eq' instead of `eql'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 507640f684cc5e73db6564dbc3dc61e12212bff6..a680a9249e763efbfe2529df33ebc92e4ec53851 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-04-23  Gerd Moellmann  <gerd@gnu.org>
 
+       * play/fortune.el (fortune-from-region): Use `eq' instead of `eql'.
+
        * textmodes/ispell.el, emacs-lisp/checkdoc.el,
        * progmodes/ebrowse.el, play/fortune.el: Fix autoload cookies.
 

diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 0ae1a841f430fec57e7d8798d308f2cb42984b15..3ab616b9b314a2176943f8d6b7c93e182f44b19b 100644 (file)
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -201,9 +201,9 @@ read the file name to use.  Otherwise use the value of `fortune-file'."
             (point-max) t))
       (if help-point
          (setq newsgroup (buffer-substring (match-beginning 1) help-point))
-       (setq newsgroup (if (or (eql major-mode 'gnus-article-mode)
-                               (eql major-mode 'vm-mode)
-                               (eql major-mode 'rmail-mode))
+       (setq newsgroup (if (or (eq major-mode 'gnus-article-mode)
+                               (eq major-mode 'vm-mode)
+                               (eq major-mode 'rmail-mode))
                            fortune-from-mail
                          "unknown"))))