X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=b1fd4fa42ea8b7132fc7a8e1233eede70091a542;hp=8f70946fd61a04a4925c75b630b3a485a5fbe150;hb=0cbd7b4b1fce603827a6ac254d62cb76ca57eb93;hpb=3bff5e80eccfef66fe9342a333c0fb823db63d8d

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8f70946fd..b1fd4fa42 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2656,12 +2656,12 @@ This format is defined by the `gnus-article-time-format' variable."
   (interactive (list t))
   (article-date-ut 'iso8601 highlight))
 
-(defun article-show-all ()
-  "Show all hidden text in the article buffer."
-  (interactive)
-  (save-excursion
-    (let ((buffer-read-only nil))
-      (gnus-article-unhide-text (point-min) (point-max)))))
+;; (defun article-show-all ()
+;;   "Show all hidden text in the article buffer."
+;;   (interactive)
+;;   (save-excursion
+;;     (let ((buffer-read-only nil))
+;;       (gnus-article-unhide-text (point-min) (point-max)))))
 
 (defun article-remove-leading-whitespace ()
   "Remove excessive whitespace from all headers."
@@ -3169,7 +3169,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is
      article-emphasize
      article-treat-dumbquotes
      article-normalize-headers
-     (article-show-all . gnus-article-show-all-headers))))
+;;     (article-show-all . gnus-article-show-all-headers)
+     )))
 
 ;;;
 ;;; Gnus article mode