From: Glenn Morris <rgm@gnu.org>
Date: Thu, 18 Mar 2010 06:13:45 +0000 (-0700)
Subject: Remove supercite.el's need for sendmail.el.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~728
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88b8d18e9219635a84c3a3668927ebb7ba32e432;p=emacs.git

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'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 407d700c289..5dab389647d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 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
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index f3636c6504f..9144be89e96 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -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: