* gnus-art.el (article-hide-headers): Inhibit read-only stuff.

* gnus-group.el (gnus-fetch-group): Document ARTICLES and select those
articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18d35b5..2ddb7b5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-06-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (article-hide-headers): Inhibit read-only stuff. 
+
+       * gnus-group.el (gnus-fetch-group): Document ARTICLES and select those
+       articles. 
+
 2006-06-21  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * message.el (message-cite-reply-above): New variable.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7702f05..fb5c140 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1842,7 +1842,7 @@ Initialized from `text-mode-syntax-table.")
   (interactive)
   ;; This function might be inhibited.
   (unless gnus-inhibit-hiding
-    (let ((inhibit-read-only nil)
+    (let ((inhibit-read-only t)
          (case-fold-search t)
          (max (1+ (length gnus-sorted-header-list)))
          (inhibit-point-motion-hooks t)

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 8251f5b..70d7600 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2124,13 +2124,14 @@ be permanent."
 ;;;###autoload
 (defun gnus-fetch-group (group &optional articles)
   "Start Gnus if necessary and enter GROUP.
+If ARTICLES, display those articles.
 Returns whether the fetching was successful or not."
   (interactive (list (completing-read "Group name: " gnus-active-hashtb
                                      nil nil nil nil
                                      (group-name-at-point))))
   (unless (get-buffer gnus-group-buffer)
     (gnus-no-server))
-  (gnus-group-read-group articles nil group))
+  (gnus-group-read-group (if articles nil t) nil group articles))
 
 ;;;###autoload
 (defun gnus-fetch-group-other-frame (group)