changeset 64807:ece90261ed42

(mail-yank-original): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Aug 2005 02:57:30 +0000
parents 74dda054615b
children 46d15fb04bc9
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Aug 09 02:57:09 2005 +0000
+++ b/lisp/mail/sendmail.el	Tue Aug 09 02:57:30 2005 +0000
@@ -1432,7 +1432,9 @@
 	  ;; delete that window to save screen space.
 	  ;; t means don't alter other frames.
 	  (delete-windows-on original t)
-	  (insert-buffer original)
+	  (with-no-warnings
+	    ;; We really want this to set mark.
+	    (insert-buffer original))
 	  (set-text-properties (point) (mark t) nil))
 	(if (consp arg)
 	    nil