Commit 88b8d18e authored by Glenn Morris's avatar Glenn Morris

Remove supercite.el's need for sendmail.el.

* mail/supercite.el: Don't require sendmail.
(mh-in-header-p): Declare rather than using with-no-warnings.
(sc-no-blank-line-or-header): Use rfc822-goto-eoh rather than
mail-header-end.  Don't bind mysterious variable `kill-lines-magic'.
parent fa61430f
2010-03-18 Glenn Morris <rgm@gnu.org>
* mail/supercite.el: Don't require sendmail.
(mh-in-header-p): Declare rather than using with-no-warnings.
(sc-no-blank-line-or-header): Use rfc822-goto-eoh rather than
mail-header-end. Don't bind mysterious variable `kill-lines-magic'.
* calendar/cal-french.el: Convert to utf-8.
* files.el (interpreter-mode-alist): Use emacs-lisp-mode for
......
......@@ -34,7 +34,6 @@
(require 'regi)
(require 'sendmail) ;; For mail-header-end.
;; start user configuration variables
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
......@@ -1484,18 +1483,22 @@ non-nil."
"Does nothing. Use this instead of nil to get a blank header."
())
(defun sc-no-blank-line-or-header()
(declare-function mh-in-header-p "mh-utils" ())
(defun sc-no-blank-line-or-header ()
"Similar to `sc-no-header' except it removes the preceding blank line."
(if (not (bobp))
(if (and (eolp)
(progn (forward-line -1)
(or (= (point) (mail-header-end))
(and (eq major-mode 'mh-letter-mode)
(with-no-warnings
(mh-in-header-p))))))
(progn (forward-line)
(let ((kill-lines-magic t))
(kill-line))))))
(and (not (bobp))
(eolp)
(progn (forward-line -1)
(or (= (point)
(save-excursion
(rfc822-goto-eoh)
(line-beginning-position 2)))
(and (eq major-mode 'mh-letter-mode)
(mh-in-header-p))))
(progn
(forward-line)
(kill-line))))
(defun sc-header-on-said ()
"\"On <date>, <from> said:\" unless:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment