Mercurial > emacs
comparison lisp/mail/supercite.el @ 21861:d5d9362aa189
Require sendmail.el.
(sc-no-blank-line-or-header): Use mail-header-end.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 30 Apr 1998 06:11:39 +0000 |
parents | 59dc7e0fc186 |
children | 17e17690ab4e |
comparison
equal
deleted
inserted
replaced
21860:58d299618042 | 21861:d5d9362aa189 |
---|---|
34 | 34 |
35 ;; Code: | 35 ;; Code: |
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 |
42 | 43 |
43 (defgroup supercite nil | 44 (defgroup supercite nil |
1575 (defun sc-no-blank-line-or-header() | 1576 (defun sc-no-blank-line-or-header() |
1576 "Similar to `sc-no-header' except it removes the preceding blank line." | 1577 "Similar to `sc-no-header' except it removes the preceding blank line." |
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) |
1585 (let ((kill-lines-magic t)) | 1585 (let ((kill-lines-magic t)) |
1586 (kill-line)))))) | 1586 (kill-line)))))) |