Require sendmail.el.

(sc-no-blank-line-or-header): Use mail-header-end.

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 00b4c55627ad34c0d3e40b0517b98dfc208db744..3039dd6989ca30124f086b4e51d66fde18bdb723 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -36,6 +36,7 @@
 
 \f
 (require 'regi)
+(require 'sendmail)    ;; For mail-header-end.
 
 ;; start user configuration variables
 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
@@ -1577,8 +1578,7 @@ non-nil."
   (if (not (bobp))
       (if (and (eolp)
               (progn (forward-line -1)
-                     (or (looking-at
-                          (concat "^" (regexp-quote mail-header-separator) "$"))
+                     (or (= (point) (mail-header-end))
                          (and (eq major-mode 'mh-letter-mode)
                               (mh-in-header-p)))))
          (progn (forward-line)