*** empty log message ***

[gnus] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 18a699b..9959ba5 100644 (file)
--- 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)