Don't set XEmacs only properties start-open and end-open

* lisp/epa.el (epa-sign-region, epa-encrypt-region):
* lisp/erc/erc.el (erc-display-prompt):
* lisp/gnus/message.el (message-forward-make-body-mime):
* lisp/net/eudc-bob.el (eudc-bob-display-jpeg)
(eudc-bob-display-audio, eudc-bob-display-generic-binary):
* lisp/url/url-http.el
(url-http-chunked-encoding-after-change-function): Don't set XEmacs
only properties start-open and end-open.

5 files changed, 8 insertions, 21 deletions

diff --git a/lisp/epa.el b/lisp/epa.el
index 4e288283d13..d6c7946c939 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -1070,9 +1070,7 @@ If no one is selected, default secret key is used.  "
                            (list 'epa-coding-system-used
                                  epa-last-coding-system-specified
                                  'front-sticky nil
-                                 'rear-nonsticky t
-                                 'start-open t
-                                 'end-open t)))))
+                                 'rear-nonsticky t)))))
 
 (define-obsolete-function-alias 'epa--derived-mode-p 'derived-mode-p "28.1")
 
@@ -1147,9 +1145,7 @@ If no one is selected, symmetric encryption will be performed.  ")
                            (list 'epa-coding-system-used
                                  epa-last-coding-system-specified
                                  'front-sticky nil
-                                 'rear-nonsticky t
-                                 'start-open t
-                                 'end-open t)))))
+                                 'rear-nonsticky t)))))
 
 ;;;; Key Management
 
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index bf7b16d448e..94ea0de7ee7 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -4014,8 +4014,7 @@ If FACE is non-nil, it will be used to propertize the prompt.  If it is nil,
         ;; of the prompt, but stuff typed in front of the prompt
         ;; shall remain part of the prompt.
         (setq prompt (propertize prompt
-                                 'start-open t ; XEmacs
-                                 'rear-nonsticky t ; Emacs
+                                 'rear-nonsticky t
                                  'erc-prompt t
                                  'field t
                                  'front-sticky t
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0782778fd43..5bdf53763a2 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7651,7 +7651,7 @@ Optional DIGEST will use digest to forward."
     ;; Consider there is no illegible text.
     (add-text-properties
      b (point)
-     '(no-illegible-text t rear-nonsticky t start-open t))))
+     '(no-illegible-text t rear-nonsticky t))))
 
 (defun message-forward-make-body-mml (forward-buffer)
   (insert "\n\n<#mml type=message/rfc822 disposition=inline>\n")
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index bb6682520ae..b2069ed6ef8 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -153,9 +153,7 @@ display a button."
                                        'end-glyph (if inline glyph)
                                        'duplicable t
                                        'invisible inline
-                                       'start-open t
-                                       'end-open t
-                                       'object-data data))))
+                                       'object-data data))))
         ((fboundp 'create-image)
          (let* ((image (create-image data nil t))
                 (props (list 'object-data data 'eudc-image image)))
@@ -192,9 +190,7 @@ display a button."
                         eudc-bob-sound-keymap
                         eudc-bob-sound-menu
                         (list 'duplicable t
-                              'start-open t
-                              'end-open t
-                              'object-data data)))
+                              'object-data data)))
 
 (defun eudc-bob-display-generic-binary (data)
   "Display a button for unidentified binary DATA."
@@ -202,9 +198,7 @@ display a button."
                         eudc-bob-generic-keymap
                         eudc-bob-generic-menu
                         (list 'duplicable t
-                              'start-open t
-                              'end-open t
-                              'object-data data)))
+                              'object-data data)))
 
 (defun eudc-bob-play-sound-at-point ()
   "Play the sound data contained in the button at point."
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 8532da1d1fb..75330d33277 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1119,9 +1119,7 @@ the end of the document."
               (beginning-of-line)
               (looking-at regexp))
             (add-text-properties (match-beginning 0) (match-end 0)
-                                 (list 'start-open t
-                                       'end-open t
-                                       'chunked-encoding t
+                                 (list 'chunked-encoding t
                                        'face 'cursor
                                        'invisible t))
             (setq url-http-chunked-length (string-to-number (buffer-substring