(gnus-print-buffer): Just print the buffer as is.

Avoid any copying to a buffer and then re-highlighting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c1b16e..25a159d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2010-11-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-print-buffer): Rewrite to use with-temp-buffer.
+       (gnus-print-buffer): Just print the buffer as is, without any copying
+       to a buffer and then re-highlighting.
 
        * nnimap.el (nnimap-request-group): Store the new updated info.
        (nnimap-request-group): Select the group when we don't know whether it

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 2e793dd..0f49ed8 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9330,38 +9330,26 @@ to save in."
   (ps-despool filename))
 
 (defun gnus-print-buffer ()
-  (let ((buffer (current-buffer)))
-    (with-temp-buffer
-      (insert-buffer-substring buffer)
-      (gnus-remove-text-with-property 'gnus-decoration)
-      (when (gnus-visual-p 'article-highlight 'highlight)
-       ;; Copy-to-buffer doesn't copy overlays.  So redo the
-       ;; highlighting.
-       (let ((gnus-article-buffer buffer))
-         (gnus-article-highlight-citation t)
-         (gnus-article-highlight-signature)
-         (gnus-article-emphasize)
-         (gnus-article-delete-invisible-text)))
-      (let ((ps-left-header
-            (list
-             (concat "("
-                     (gnus-summary-print-truncate-and-quote
-                      (mail-header-subject gnus-current-headers)
-                      66) ")")
-             (concat "("
-                     (gnus-summary-print-truncate-and-quote
-                      (mail-header-from gnus-current-headers)
-                      45) ")")))
-           (ps-right-header
-            (list
-             "/pagenumberstring load"
-             (concat "("
-                     (mail-header-date gnus-current-headers) ")"))))
-       (gnus-run-hooks 'gnus-ps-print-hook)
-       (save-excursion
-         (if ps-print-color-p
-             (ps-spool-buffer-with-faces)
-           (ps-spool-buffer)))))))
+  (let ((ps-left-header
+        (list
+         (concat "("
+                 (gnus-summary-print-truncate-and-quote
+                  (mail-header-subject gnus-current-headers)
+                  66) ")")
+         (concat "("
+                 (gnus-summary-print-truncate-and-quote
+                  (mail-header-from gnus-current-headers)
+                  45) ")")))
+       (ps-right-header
+        (list
+         "/pagenumberstring load"
+         (concat "("
+                 (mail-header-date gnus-current-headers) ")"))))
+    (gnus-run-hooks 'gnus-ps-print-hook)
+    (save-excursion
+      (if ps-print-color-p
+         (ps-spool-buffer-with-faces)
+       (ps-spool-buffer)))))
 
 (defun gnus-summary-show-complete-article ()
   "Show a complete version of the current article.