*** empty log message ***

[gnus] / lisp / gnus-msg.el

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 709b09a..5d1778e 100644 (file)
--- 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)))