[elpa] externals/ement 91f29046de 25/30: Change: (ement-room-init-compose-buffer): Set yank-excluded-properties

[ELPA Syncer]

branch: externals/ement
commit 91f29046de79a74391ed4a0e4962aa6f8a12f1ad
Author: Phil Sainty <phil@catalyst.net.nz>
Commit: Phil Sainty <phil@catalyst.net.nz>

    Change: (ement-room-init-compose-buffer): Set yank-excluded-properties
    
    Add `line-prefix' and `wrap-prefix' to `yank-excluded-properties' in
    compose buffers.
    
    Depending on `ement-room-message-format-spec', messages may include
    these text properties for the purposes of formatting in the room
    buffer, in which case copying such text and yanking it into another
    buffer results in these properties also being applied.
    
    As this is a common (and undesirable) scenario for compose buffers,
    we cater to it by default.
---
 ement-room.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ement-room.el b/ement-room.el
index 88ac1f0a82..f3f54209ac 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -4311,6 +4311,9 @@ a copy of the local keymap, and sets 
`header-line-format'."
                       completion-at-point-functions))
   (setq-local dabbrev-select-buffers-function 
#'ement-compose-dabbrev-select-buffers
               dabbrev-friend-buffer-function #'ement-room-mode-p)
+  (setq-local yank-excluded-properties
+              (append '(line-prefix wrap-prefix)
+                      (default-value 'yank-excluded-properties)))
   ;; FIXME: Compose with local map?
   (use-local-map (if (current-local-map)
                      (copy-keymap (current-local-map))