[Emacs-diffs] /srv/bzr/emacs/trunk r99677: Remove supercite.el's need for sendmail.el.

[Glenn Morris]

------------------------------------------------------------
revno: 99677
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-03-17 23:13:45 -0700
message:
  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'.
modified:
  lisp/ChangeLog
  lisp/mail/supercite.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-03-18 05:25:13 +0000
+++ b/lisp/ChangeLog    2010-03-18 06:13:45 +0000
@@ -1,5 +1,10 @@
 2010-03-18  Glenn Morris  <address@hidden>
 
+       * 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

=== modified file 'lisp/mail/supercite.el'
--- a/lisp/mail/supercite.el    2010-01-13 08:35:10 +0000
+++ b/lisp/mail/supercite.el    2010-03-18 06:13:45 +0000
@@ -34,7 +34,6 @@
 
 
 (require 'regi)
-(require 'sendmail)    ;; For mail-header-end.
 
 ;; start user configuration variables
 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
@@ -1484,18 +1483,22 @@
   "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: