From 48ad09473a8d2b4ec40ccd38153a60296a5745e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Apr 1998 06:11:39 +0000 Subject: [PATCH] Require sendmail.el. (sc-no-blank-line-or-header): Use mail-header-end. --- lisp/mail/supercite.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 00b4c55627a..3039dd6989c 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -36,6 +36,7 @@ (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) -- 2.39.5