From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 Nov 1995 17:23:49 +0000 (+0000)
Subject: (mail-yank-clear-headers): Do nothing if
X-Git-Tag: emacs-19.34~2382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b3a206d69bbbf3c1209b79cd35fb52f57cbf397;p=emacs.git

(mail-yank-clear-headers): Do nothing if
mail-yank-ignored-headers is nil.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index b6146371b56..a6dbc481ae5 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -893,19 +893,20 @@ and don't delete any header fields."
 	(if (not (eolp)) (insert ?\n)))))
 
 (defun mail-yank-clear-headers (start end)
-  (save-excursion
-    (goto-char start)
-    (if (search-forward "\n\n" end t)
-	(save-restriction
-	  (narrow-to-region start (point))
-	  (goto-char start)
-	  (while (let ((case-fold-search t))
-		   (re-search-forward mail-yank-ignored-headers nil t))
-	    (beginning-of-line)
-	    (delete-region (point)
-			   (progn (re-search-forward "\n[^ \t]")
-				  (forward-char -1)
-				  (point))))))))
+  (if mail-yank-ignored-headers
+      (save-excursion
+	(goto-char start)
+	(if (search-forward "\n\n" end t)
+	    (save-restriction
+	      (narrow-to-region start (point))
+	      (goto-char start)
+	      (while (let ((case-fold-search t))
+		       (re-search-forward mail-yank-ignored-headers nil t))
+		(beginning-of-line)
+		(delete-region (point)
+			       (progn (re-search-forward "\n[^ \t]")
+				      (forward-char -1)
+				      (point)))))))))
 
 ;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.