X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=9959ba5adfd42260204dabc6a27aaf0ed123c37d;hb=d49c9aab7fdcca8dee6c65ac78ae7c775b13cf67;hp=18a699b94cad3b73f06986e6efc28d325adc8106;hpb=bd252d9de5a5cb84f6bb7e09986d4a5ff1b4f2b0;p=gnus

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 18a699b94..9959ba5ad 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1,5 +1,5 @@
 ;;; gnus-art.el --- article mode commands for Gnus
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
 ;; Keywords: news
@@ -920,7 +920,8 @@ always hide."
       (save-restriction
 	(let ((buffer-read-only nil))
 	  (when (gnus-article-narrow-to-signature)
-	    (gnus-article-hide-text-type (point-min) (point-max) 'signature)))))))
+	    (gnus-article-hide-text-type 
+	     (point-min) (point-max) 'signature)))))))
 
 (defun article-strip-leading-blank-lines ()
   "Remove all blank lines from the beginning of the article."
@@ -1045,15 +1046,17 @@ If HIDE, hide the text instead."
   (save-excursion
     (let ((buffer-read-only nil)
 	  (inhibit-point-motion-hooks t)
-	  (beg (point-min)))
-      (while (gnus-goto-char (text-property-any
-			      beg (point-max) 'article-type type))
-	(setq beg (point))
-	(forward-char)
+	  (end (point-min))
+	  beg)
+      (while (setq beg (text-property-any end (point-max) 'article-type type))
+	(goto-char beg)
+	(setq end (or
+		   (text-property-not-all beg (point-max) 'article-type type)
+		   (point-max)))
 	(if hide
-	    (gnus-article-hide-text beg (point) gnus-hidden-properties)
-	  (gnus-article-unhide-text beg (point)))
-	(setq beg (point)))
+	    (gnus-article-hide-text beg end gnus-hidden-properties)
+	  (gnus-article-unhide-text beg end))
+	(goto-char end))
       t)))
 
 (defconst article-time-units
@@ -2949,6 +2952,8 @@ forbidden in URL encoding."
     (gnus-article-prev-page)
     (select-window win))) 
 
+(gnus-ems-redefine)
+
 (provide 'gnus-art)
 
 (run-hooks 'gnus-art-load-hook)