From: yamaoka <yamaoka>
Date: Fri, 6 Sep 2002 07:54:56 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 01.
X-Git-Tag: t-gnus-6_15_8-01-quimby~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a0f8637c58343a77d62b142279e161cebf4717dc;p=elisp%2Fgnus.git-

* gnus-vers.el (gnus-revision-number): Increment to 01.

* gnus-msg.el (gnus-copy-article-buffer): Set a copy buffer mutibyte;
 remove invisible and intangible test properties from a copied article.
---

diff --git a/ChangeLog b/ChangeLog
index 75206ba..70835da 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2002-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 01.
+
+	* lisp/gnus-msg.el (gnus-copy-article-buffer): Set a copy buffer
+	mutibyte; remove invisible and intangible test properties from a
+	copied article.
+
 2002-09-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* texi/ptexinfmt.el: discard @documentdescription.  Support
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 8411a41..3a7c3df 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -816,6 +816,9 @@ header line with the old Message-ID."
   ;; if ARTICLE-BUFFER is nil, gnus-article-buffer is used
   ;; this buffer should be passed to all mail/news reply/post routines.
   (setq gnus-article-copy (gnus-get-buffer-create " *gnus article copy*"))
+  (save-excursion
+    (set-buffer gnus-article-copy)
+    (set-buffer-multibyte t))
   (let ((article-buffer (or article-buffer gnus-article-buffer))
 	end beg)
     (if (not (and (get-buffer article-buffer)
@@ -832,32 +835,36 @@ header line with the old Message-ID."
 	    ;; Copy over the (displayed) article buffer, delete
 	    ;; hidden text and remove text properties.
 	    (widen)
-	    (let ((inhibit-read-only t))
-	      (copy-to-buffer gnus-article-copy (point-min) (point-max))
-	      (set-buffer gnus-article-copy)
-	      (when yank-string
-		(message-goto-body)
-		(delete-region (point) (point-max))
-		(insert yank-string))
-	      ;; Encode bitmap smileys to ordinary text.
-	      ;; Possibly, the original text might be restored.
-	      (static-unless (featurep 'xemacs)
-		(when (featurep 'smiley-mule)
-		  (smiley-encode-buffer)))
-	      (gnus-article-delete-text-of-type 'annotation)
-	      (gnus-remove-text-with-property 'gnus-prev)
-	      (gnus-remove-text-with-property 'gnus-next)
-	      (gnus-remove-text-with-property 'gnus-decoration)
-	      (gnus-remove-text-with-property 'x-face-mule-bitmap-image)
-	      (insert
-	       (prog1
-		   (static-if (featurep 'xemacs)
-		       ;; Revome smiley extents for (possibly) XEmacs 21.1.
-		       (format "%s"
-			       (buffer-substring-no-properties (point-min)
-							       (point-max)))
-		     (buffer-substring-no-properties (point-min) (point-max)))
-		 (erase-buffer))))
+	    (copy-to-buffer gnus-article-copy (point-min) (point-max))
+	    (set-buffer gnus-article-copy)
+	    ;; There's invisible and intangible text in T-gnus.  Especially,
+	    ;; if there is a boundary line (X-Boundary: ------------------),
+	    ;; in the end of a header, it will cause a serious problem.
+	    (add-text-properties (point-min) (point-max)
+				 '(invisible nil intangible nil))
+	    (when yank-string
+	      (message-goto-body)
+	      (delete-region (point) (point-max))
+	      (insert yank-string))
+	    ;; Encode bitmap smileys to ordinary text.
+	    ;; Possibly, the original text might be restored.
+	    (static-unless (featurep 'xemacs)
+	      (when (featurep 'smiley-mule)
+		(smiley-encode-buffer)))
+	    (gnus-article-delete-text-of-type 'annotation)
+	    (gnus-remove-text-with-property 'gnus-prev)
+	    (gnus-remove-text-with-property 'gnus-next)
+	    (gnus-remove-text-with-property 'gnus-decoration)
+	    (gnus-remove-text-with-property 'x-face-mule-bitmap-image)
+	    (insert
+	     (prog1
+		 (static-if (featurep 'xemacs)
+		     ;; Revome smiley extents for (possibly) XEmacs 21.1.
+		     (format "%s"
+			     (buffer-substring-no-properties (point-min)
+							     (point-max)))
+		   (buffer-substring-no-properties (point-min) (point-max)))
+	       (erase-buffer)))
 	    ;; Find the original headers.
 	    (set-buffer gnus-original-article-buffer)
 	    (goto-char (point-min))
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 0831a0a..b0c30e0 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -34,7 +34,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "00"
+(defconst gnus-revision-number "01"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.