Mercurial > emacs

comparison lisp/mail/supercite.el @ 21861:d5d9362aa189

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))))))