(sc-no-blank-line-or-header): Make mail-header-separator into a regexp.

1995-05-09 04:05:54 +00:00
parent 3450d04cc8
commit 07e4a20d3f
1 changed files with 2 additions and 1 deletions
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -1419,7 +1419,8 @@ non-nil."
  (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)