From 58afd4964b1d9899aa33aa99e1e00d631395e3b8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 14 Jun 1999 23:13:22 +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 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)) -- 1.7.10.4