Mercurial > emacs

changeset 37428:6586c75e5eda

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortune-from-region): Use `eq' instead of `eql'.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 23 Apr 2001 12:30:39 +0000
parents 244c17515972
children 8536ad236a7d
files lisp/play/fortune.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/fortune.el	Mon Apr 23 11:50:36 2001 +0000
+++ b/lisp/play/fortune.el	Mon Apr 23 12:30:39 2001 +0000
@@ -201,9 +201,9 @@
 	     (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"))))