X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=5d1778e7aa54b54d409a7dd3211525a81fc4f665;hb=befe3ad306d0bd60bbf58e38530e41b6a5a286fd;hp=709b09a5ebfc58d0ae36a7ce58cf043ddb53615d;hpb=a3628c5a6916f7584ac6c1e8177140dd5cbd9680;p=gnus

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 709b09a5e..5d1778e7a 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -278,14 +278,14 @@ header line with the old Message-ID."
   (or (memq gnus-article-copy gnus-buffer-list)
       (setq gnus-buffer-list (cons gnus-article-copy gnus-buffer-list)))
   (let ((article-buffer (or article-buffer gnus-article-buffer))
-	end beg)
+	end beg contents)
     (when (and (get-buffer article-buffer)
 	       (buffer-name (get-buffer article-buffer)))
       (save-excursion
 	(set-buffer article-buffer)
 	(save-restriction
 	  (widen)
-	  (copy-to-buffer gnus-article-copy (point-min) (point-max))
+	  (setq contents (format "%s" (buffer-string)))
 	  (set-buffer gnus-original-article-buffer)
 	  (goto-char (point-min))
 	  (while (looking-at message-unix-mail-delimiter)
@@ -293,7 +293,8 @@ header line with the old Message-ID."
 	  (setq beg (point))
 	  (setq end (or (search-forward "\n\n" nil t) (point)))
 	  (set-buffer gnus-article-copy)
-	  (gnus-set-text-properties (point-min) (point-max) nil)
+	  (erase-buffer)
+	  (insert contents)
 	  (delete-region (goto-char (point-min))
 			 (or (search-forward "\n\n" nil t) (point)))
 	  (insert-buffer-substring gnus-original-article-buffer beg end)))