Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-art.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 1856695b1fa9
children 59463afc5666
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Mon Aug 13 09:33:20 2007 +0200
+++ b/lisp/gnus/gnus-art.el	Mon Aug 13 09:34:14 2007 +0200
@@ -1130,7 +1130,7 @@
 	  (setq buf (buffer-string))))
       (when buf
 	(delete-region (point-min) (point-max))
-	(insert-buffer-substring buf)
+	(insert buf)
 	(kill-buffer buf))
       (widen)
       (goto-char (point-min))
@@ -2464,7 +2464,7 @@
   (let ((winconf (current-window-configuration)))
     (set-buffer gnus-article-buffer)
     (gnus-article-edit-mode)
-    (set-text-properties (point-min) (point-max) nil)
+    (gnus-set-text-properties (point-min) (point-max) nil)
     (gnus-configure-windows 'edit-article)
     (setq gnus-article-edit-done-function exit-func)
     (setq gnus-prev-winconf winconf)