diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-04-23 12:31:27 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-04-23 12:31:27 +0000 |
| commit | 1d14e80c95d5b611a2ada9b6f6277f512a7a1a3d (patch) | |
| tree | 9e412d2b9b5d5e20df5db25dc0e7d79bab9f0b24 /lisp/play/fortune.el | |
| parent | 23b809c2a7f08503b91628ece06939dedaa617de (diff) | |
| download | emacs-1d14e80c95d5b611a2ada9b6f6277f512a7a1a3d.tar.gz | |
(fortune-from-region): Use `eq' instead of `eql'.
Diffstat (limited to 'lisp/play/fortune.el')
| -rw-r--r-- | lisp/play/fortune.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 0ae1a841f43..3ab616b9b31 100644 --- 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")))) |