# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1004278574 0
# Node ID c2c136a07481043bc175d7c6a2b948ce626e2234
# Parent  216728b109608e342d242fb4295984c7946acfc8
(sc-emacs-features): Test for "Emacs 19"
by really checking that it is not version 18.

diff -r 216728b10960 -r c2c136a07481 lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Sun Oct 28 14:15:14 2001 +0000
+++ b/lisp/mail/supercite.el	Sun Oct 28 14:16:14 2001 +0000
@@ -513,9 +513,8 @@
 (defconst sc-emacs-features
   (let ((version 'v18)
 	(flavor  'GNU))
-    (if (or
-	 (string= (substring emacs-version 0 2) "19")
-	 (string= (substring emacs-version 0 2) "20"))
+    (if (not
+	 (string= (substring emacs-version 0 2) "18"))
 	(setq version 'v19))
     (if (string-match "Lucid" emacs-version)
 	(setq flavor 'Lucid))
@@ -524,9 +523,9 @@
   "A list describing what version of Emacs we're running on.
 Known flavors are:
 
-Emacs 18        : (v18 GNU)
-Emacs 19 or 20  : (v19 GNU)
-Lucid 19 or 20  : (v19 Lucid)")
+Emacs 18           : (v18 GNU)
+Emacs 19 or later  : (v19 GNU)
+Lucid 19 or later  : (v19 Lucid)")
 
 
 (defvar sc-tmp-nested-regexp nil