From a3df6627e8b37fe8e24f684b69dd71198e643619 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 14 Jun 1999 23:14:38 +0000 Subject: [PATCH] (message-send-news): Don't generate the Lines field; don't make `tembuf' as unmodified. (message-send-mail): Ditto. --- lisp/message.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 00f6807..6f3b1fa 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2500,13 +2500,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)) @@ -2738,13 +2738,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)) -- 1.7.10.4