From: ichikawa <ichikawa>
Date: Mon, 29 Jun 1998 08:07:28 +0000 (+0000)
Subject: Small bug fix...
X-Git-Tag: ichikawa-199811302358~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d9d1a3ff418ffb8309022d4fca95e96ce2f75a76;p=elisp%2Fgnus.git-

Small bug fix...
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index ff0c5bd..5c60855 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1497,6 +1497,7 @@ This format is defined by the `gnus-article-time-format' variable."
 	     (gnus-number-of-articles-to-be-saved
 	      (when (eq gnus-prompt-before-saving t)
 		num)))			; Magic
+	(set-buffer gnus-original-article-buffer)
 	(set-buffer gnus-article-current-summary)
 	(funcall gnus-default-article-saver filename)))))
 
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0f236e2..3a2f261 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -196,7 +196,7 @@ Thank you for your help in stamping out bugs.
   (setq message-post-method
 	`(lambda (arg)
 	   (gnus-post-method arg ,gnus-newsgroup-name)))
-  (setq message-user-agent (gnus-extended-version))
+  (setq message-newsreader (setq message-mailer (gnus-extended-version)))
   (message-add-action
    `(set-window-configuration ,winconf) 'exit 'postpone 'kill)
   (message-add-action
diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 0b9b337..be089bf 100644
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -537,7 +537,8 @@ Return whether the unpacking was successful."
 	      (search-forward "\n\n")
 	      (forward-char -1)
 	      (insert mail-header-separator)
-	      (setq message-user-agent (gnus-extended-version))
+	      (setq message-newsreader (setq message-mailer
+					     (gnus-extended-version)))
 	      (cond
 	       ((string= (gnus-soup-reply-kind (car replies)) "news")
 		(gnus-message 5 "Sending news message to %s..."
diff --git a/lisp/message.el b/lisp/message.el
index ebeb600..abfb752 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -620,6 +620,8 @@ If stringp, use this; if non-nil, use no host name (user name only)."
 
 (defvar message-reply-buffer nil)
 (defvar message-reply-headers nil)
+(defvar message-newsreader nil)
+(defvar message-mailer nil)
 (defvar message-sent-message-via nil)
 (defvar message-checksum nil)
 (defvar message-send-actions nil
@@ -1420,7 +1422,8 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'message-reply-headers)
   (setq message-reply-headers nil)
-  (make-local-variable 'message-user-agent)
+  (make-local-variable 'message-newsreader)
+  (make-local-variable 'message-mailer)
   (make-local-variable 'message-post-method)
   (make-local-variable 'message-sent-message-via)
   (setq message-sent-message-via nil)