diff options
| author | Richard M. Stallman | 1998-04-30 06:11:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-30 06:11:39 +0000 |
| commit | 48ad09473a8d2b4ec40ccd38153a60296a5745e1 (patch) | |
| tree | beeb004797e3829ec8337d9cc4e24a92d607e846 | |
| parent | eed1360c124fb6cb11e9e0df771ed86a6883ad27 (diff) | |
| download | emacs-48ad09473a8d2b4ec40ccd38153a60296a5745e1.tar.gz emacs-48ad09473a8d2b4ec40ccd38153a60296a5745e1.zip | |
Require sendmail.el.
(sc-no-blank-line-or-header): Use mail-header-end.
| -rw-r--r-- | lisp/mail/supercite.el | 4 |
1 files 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 @@ | |||
| 36 | 36 | ||
| 37 | 37 | ||
| 38 | (require 'regi) | 38 | (require 'regi) |
| 39 | (require 'sendmail) ;; For mail-header-end. | ||
| 39 | 40 | ||
| 40 | ;; start user configuration variables | 41 | ;; start user configuration variables |
| 41 | ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv | 42 | ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |
| @@ -1577,8 +1578,7 @@ non-nil." | |||
| 1577 | (if (not (bobp)) | 1578 | (if (not (bobp)) |
| 1578 | (if (and (eolp) | 1579 | (if (and (eolp) |
| 1579 | (progn (forward-line -1) | 1580 | (progn (forward-line -1) |
| 1580 | (or (looking-at | 1581 | (or (= (point) (mail-header-end)) |
| 1581 | (concat "^" (regexp-quote mail-header-separator) "$")) | ||
| 1582 | (and (eq major-mode 'mh-letter-mode) | 1582 | (and (eq major-mode 'mh-letter-mode) |
| 1583 | (mh-in-header-p))))) | 1583 | (mh-in-header-p))))) |
| 1584 | (progn (forward-line) | 1584 | (progn (forward-line) |