From: hayashi <hayashi>
Date: Mon, 8 Nov 1999 09:42:40 +0000 (+0000)
Subject: * lisp/gnus-draft.el (gnus-draft-edit-message): Use
X-Git-Tag: t-gnus-6_13_3-00~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e9fccef9a23e11e730e96251fca54272f6188751;p=elisp%2Fgnus.git-

* lisp/gnus-draft.el (gnus-draft-edit-message): Use
`message-save-drafts' instead of `set-buffer-modified-p' and
`save-buffer'.
* lisp/message.el (message-save-drafts): Insert In-Reply-To header
because the reply data is lost in Drafts.
* lisp/gnus-art.el (gnus-signature-face): Don't check
window-system type.
---

diff --git a/ChangeLog b/ChangeLog
index f31f4e7..889dafe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+1999-11-08  Kinji Itoh  <kinji-i@ma.neweb.ne.jp>
+
+	* lisp/gnus-draft.el (gnus-draft-edit-message): Use
+	`message-save-drafts' instead of `set-buffer-modified-p' and
+	`save-buffer'.
+	* lisp/message.el (message-save-drafts): Insert In-Reply-To header
+	because the reply data is lost in Drafts.
+	* lisp/gnus-art.el (gnus-signature-face): Don't check
+	window-system type.
+
 1999-11-08   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
 	* lisp/pop3.el (pop3-progress-message): New function.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 9c66e40..ff10e1e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -490,8 +490,7 @@ Obsolete; use the face `gnus-signature-face' for customizations instead."
   :group 'gnus-article-signature)
 
 (defface gnus-signature-face
-  '((((type x))
-     (:italic t)))
+  '((t (:italic t)))
   "Face used for highlighting a signature in the article buffer."
   :group 'gnus-article-highlight
   :group 'gnus-article-signature)
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 63f4ef7..b0df871 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -97,8 +97,7 @@
   (let ((article (gnus-summary-article-number)))
     (gnus-summary-mark-as-read article gnus-canceled-mark)
     (gnus-draft-setup-for-editing article gnus-newsgroup-name)
-    (set-buffer-modified-p t)
-    (save-buffer)
+    (message-save-drafts)
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) gnus-newsgroup-name t))
     (push
diff --git a/lisp/message.el b/lisp/message.el
index 350555d..15c8537 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5122,10 +5122,13 @@ regexp varstr."
   (if (not (get-buffer message-save-buffer))
       (get-buffer-create message-save-buffer))
   (let ((filename buffer-file-name)
-	(buffer (current-buffer)))
+	(buffer (current-buffer))
+	(reply-headers message-reply-headers))
     (set-buffer message-save-buffer)
     (erase-buffer)
     (insert-buffer buffer)
+    (setq message-reply-headers reply-headers)
+    (message-generate-headers  '((optional . In-Reply-To)))
     (mime-edit-translate-buffer)
     (write-region (point-min) (point-max) filename)
     (set-buffer buffer)