* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)