[Emacs-diffs] trunk r117691: * lisp/gnus/gnus-art.el (gnus-hidden-properties): Drop the evil `intangible'.

[Stefan Monnier]

------------------------------------------------------------
revno: 117691
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2014-08-11 22:47:36 -0400
message:
  * lisp/gnus/gnus-art.el (gnus-hidden-properties): Drop the evil `intangible'.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-art.el          gnusart.el-20091113204419-o5vbwnq5f7feedwu-1108

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-08-06 11:14:08 +0000
+++ b/lisp/gnus/ChangeLog       2014-08-12 02:47:36 +0000
@@ -1,3 +1,7 @@
+2014-08-12  Stefan Monnier  <address@hidden>
+
+       * gnus-art.el (gnus-hidden-properties): Drop the evil `intangible'.
+
 2014-08-06  Katsumi Yamaoka  <address@hidden>
 
        * gnus-sum.el (gnus-summary-expire-articles): Revert.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2014-06-05 22:43:36 +0000
+++ b/lisp/gnus/gnus-art.el     2014-08-12 02:47:36 +0000
@@ -253,7 +253,13 @@
                 (regexp :value ".*"))
   :group 'gnus-article-signature)
 
-(defcustom gnus-hidden-properties '(invisible t intangible t)
+(defcustom gnus-hidden-properties
+  (if (featurep 'xemacs)
+      ;; `intangible' is evil, but I keep it here in case it's useful.
+      '(invisible t intangible t)
+    ;; Emacs's command loop moves point out of invisible text anyway, so
+    ;; `intangible' is clearly not needed there.
+    '(invisible t))
   "Property list to use for hiding text."
   :type 'sexp
   :group 'gnus-article-hiding)