# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799992354 0
# Node ID 8f49fc89adcc6b423846608782aa32a7bbedd71d
# Parent  4166c8ea623d49ce823a7011871b3ccde371210a
(sc-no-blank-line-or-header): Make mail-header-separator into a regexp.

diff -r 4166c8ea623d -r 8f49fc89adcc lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Tue May 09 02:38:03 1995 +0000
+++ b/lisp/mail/supercite.el	Tue May 09 04:05:54 1995 +0000
@@ -1419,7 +1419,8 @@
   (if (not (bobp))
       (if (and (eolp)
 	       (progn (forward-line -1)
-		      (or (looking-at mail-header-separator)
+		      (or (looking-at
+			   (concat "^" (regexp-quote mail-header-separator) "$"))
 			  (and (eq major-mode 'mh-letter-mode)
 			       (mh-in-header-p)))))
 	  (progn (forward-line)