From: yamaoka <yamaoka>
Date: Mon, 14 Jun 1999 23:13:22 +0000 (+0000)
Subject: * (message-send-news): Don't generate the Lines field; don't make `tembuf' as
X-Git-Tag: t-gnus-6_10_066-01~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58afd4964b1d9899aa33aa99e1e00d631395e3b8;p=elisp%2Fgnus.git-

* (message-send-news): Don't generate the Lines field; don't make `tembuf' as
unmodified.
(message-send-mail): Ditto.
---

diff --git a/lisp/message.el b/lisp/message.el
index 658005a..ef9d2e3 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2498,13 +2498,13 @@ This sub function is for exclusive use of `message-send-mail'."
 	    (set-buffer tembuf)
 	    (erase-buffer)
 	    (insert-buffer message-encoding-buffer)
-	    (set-buffer-modified-p nil)
 	    ;; Remove some headers.
 	    (save-restriction
 	      (message-narrow-to-headers)
-	      ;; We (re)generate the Lines header.
-	      (when (memq 'Lines message-required-mail-headers)
-		(message-generate-headers '(Lines)))
+;; We Semi-gnus people have no use for it.
+;;	      ;; We (re)generate the Lines header.
+;;	      (when (memq 'Lines message-required-mail-headers)
+;;		(message-generate-headers '(Lines)))
 	      ;; Remove some headers.
 	      (message-remove-header message-ignored-mail-headers t))
 	    (goto-char (point-max))
@@ -2736,13 +2736,13 @@ This sub function is for exclusive use of `message-send-news'."
 	    (buffer-disable-undo)
 	    (erase-buffer)
 	    (insert-buffer message-encoding-buffer)
-	    (set-buffer-modified-p nil)
 	    ;; Remove some headers.
 	    (save-restriction
 	      (message-narrow-to-headers)
-	      ;; We (re)generate the Lines header.
-	      (when (memq 'Lines message-required-mail-headers)
-		(message-generate-headers '(Lines)))
+;; We Semi-gnus people have no use for it.
+;;	      ;; We (re)generate the Lines header.
+;;	      (when (memq 'Lines message-required-mail-headers)
+;;		(message-generate-headers '(Lines)))
 	      ;; Remove some headers.
 	      (message-remove-header message-ignored-news-headers t))
 	    (goto-char (point-max))