[Emacs-diffs] /srv/bzr/emacs/trunk r111582: * tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark

[Michael Albinus]

------------------------------------------------------------
revno: 111582
committer: Michael Albinus <address@hidden
branch nick: trunk
timestamp: Tue 2013-01-22 09:49:03 +0100
message:
  * tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark
  descriptive parts with `display' property.
modified:
  lisp/ChangeLog
  lisp/net/tramp-cmds.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-21 16:05:30 +0000
+++ b/lisp/ChangeLog    2013-01-22 08:49:03 +0000
@@ -1,3 +1,8 @@
+2013-01-22  Michael Albinus  <address@hidden>
+
+       * net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark
+       descriptive parts with `display' property.
+
 2013-01-21  Agustín Martín Domingo  <address@hidden>
 
        * textmodes/ispell.el (ispell-hunspell-dictionary-equivs-alist):

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2013-01-01 09:11:05 +0000
+++ b/lisp/net/tramp-cmds.el    2013-01-22 08:49:03 +0000
@@ -186,7 +186,7 @@
 
        'tramp-load-report-modules      ; pre-hook
        'tramp-append-tramp-buffers     ; post-hook
-       "\
+       (propertize "\n" 'display "\
 Enter your bug report in this message, including as much detail
 as you possibly can about the problem, what you did to cause it
 and what the local and remote machines are.
@@ -209,7 +209,7 @@
 buffer in your bug report.
 
 --bug report follows this line--
-"))))
+")))))
 
 (defun tramp-reporter-dump-variable (varsym mailbuf)
   "Pretty-print the value of the variable in symbol VARSYM."
@@ -348,10 +348,10 @@
              (kill-buffer nil)
              (switch-to-buffer curbuf)
              (goto-char (point-max))
-             (insert "\n\
+             (insert (propertize "\n" 'display "\n\
 This is a special notion of the `gnus/message' package.  If you
 use another mail agent (by copying the contents of this buffer)
-please ensure that the buffers are attached to your email.\n\n")
+please ensure that the buffers are attached to your email.\n\n"))
              (dolist (buffer buffer-list)
                (tramp-compat-funcall
                 'mml-insert-empty-tag 'part 'type "text/plain"