[gnus git] branch master updated: m0-11-208-g84f73a4 =1= gnus-art.el (gnus-hidden-properties): Simplify

       via  84f73a438fd1cdd5063b5fe88575fdabfac03763 (commit)
      from  16c9913e444e1bf59e77e1ddb2fa5a67d90c9917 (commit)


- Log -----------------------------------------------------------------
commit 84f73a438fd1cdd5063b5fe88575fdabfac03763
Author: Stefan Monnier <[email protected]>
Date:   Fri Apr 10 04:40:49 2015 +0000

    gnus-art.el (gnus-hidden-properties): Simplify

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef12266..60e67c9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2015-04-10  Stefan Monnier  <[email protected]>
+
+	* gnus-art.el (gnus-hidden-properties): Simplify.
+	(gnus-article-hide-text, gnus-article-unhide-text)
+	(gnus-article-unhide-text-type): Remove special handling of
+	`intangible' since that property is not used any more.
+	(gnus-article-treat-body-boundary): Use gnus-hidden-properties.
+
 2015-04-06  Katsumi Yamaoka  <[email protected]>
 
 	* dgnushack.el (define-obsolete-function-alias): Add a compiler-marco
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index daae98c..1d9bcd1 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -256,12 +256,10 @@ This can also be a list of the above values."
   :group 'gnus-article-signature)
 
 (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))
+  ;; We use to have `intangible' here as well, but Emacs's command loop moves
+  ;; point out of invisible text anyway, so `intangible' is clearly not
+  ;; needed there.  And XEmacs doesn't handle `intangible' anyway.
+  '(invisible t)
   "Property list to use for hiding text."
   :type 'sexp
   :group 'gnus-article-hiding)
@@ -1773,19 +1771,12 @@ Initialized from `text-mode-syntax-table.")
   (re-search-forward (concat "^\\(" header "\\):") nil t))
 
 (defsubst gnus-article-hide-text (b e props)
-  "Set text PROPS on the B to E region, extending `intangible' 1 past B."
-  (gnus-add-text-properties-when 'article-type nil b e props)
-  (when (memq 'intangible props)
-    (put-text-property
-     (max (1- b) (point-min))
-     b 'intangible (cddr (memq 'intangible props)))))
+  "Set text PROPS on the B to E region."
+  (gnus-add-text-properties-when 'article-type nil b e props))
 
 (defsubst gnus-article-unhide-text (b e)
   "Remove hidden text properties from region between B and E."
-  (remove-text-properties b e gnus-hidden-properties)
-  (when (memq 'intangible gnus-hidden-properties)
-    (put-text-property (max (1- b) (point-min))
-		       b 'intangible nil)))
+  (remove-text-properties b e gnus-hidden-properties))
 
 (defun gnus-article-hide-text-type (b e type)
   "Hide text of TYPE between B and E."
@@ -1797,10 +1788,7 @@ Initialized from `text-mode-syntax-table.")
   "Unhide text of TYPE between B and E."
   (gnus-delete-wash-type type)
   (remove-text-properties
-   b e (cons 'article-type (cons type gnus-hidden-properties)))
-  (when (memq 'intangible gnus-hidden-properties)
-    (put-text-property (max (1- b) (point-min))
-		       b 'intangible nil)))
+   b e (cons 'article-type (cons type gnus-hidden-properties))))
 
 (defun gnus-article-delete-text-of-type (type)
   "Delete text of TYPE in the current buffer."
@@ -2330,7 +2318,7 @@ long lines if and only if arg is positive."
       (goto-char (point-max))
       (let ((start (point)))
 	(insert "X-Boundary: ")
-	(gnus-add-text-properties start (point) '(invisible t intangible t))
+	(gnus-add-text-properties start (point) gnus-hidden-properties)
        (insert (let (str (max (window-width)))
                  (if (featurep 'xemacs)
                      (setq max (1- max)))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    8 ++++++++
 lisp/gnus-art.el |   30 +++++++++---------------------
 2 files changed, 17 insertions(+), 21 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project