* gnus-bookmark.el (gnus-bookmark-jump): Don't mark unrelated articles

as read.

* gnus-group.el (gnus-group-quick-select-group): Add GROUP argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b538f8a..1a8c8e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-06-20  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-bookmark.el (gnus-bookmark-jump): Don't mark unrelated articles
+       as read.
+
+       * gnus-group.el (gnus-group-quick-select-group): Add GROUP argument.
+
 2006-06-19  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-bookmark.el: Fix Copyright, keywords, whitespace, etc.

diff --git a/lisp/gnus-bookmark.el b/lisp/gnus-bookmark.el
index d686415..f552324 100644 (file)
--- a/lisp/gnus-bookmark.el
+++ b/lisp/gnus-bookmark.el
@@ -272,8 +272,10 @@ So the cdr of each bookmark is an alist too.")
         (bmk-cell (cadr (assoc bookmark gnus-bookmark-alist)))
         (group (cdr (assoc 'group bmk-cell)))
         (message-id (cdr (assoc 'message-id bmk-cell))))
-    (require 'gnus)
-    (if group (gnus-fetch-group group))
+    (when group
+      (unless (get-buffer gnus-group-buffer)
+       (gnus-no-server))
+      (gnus-group-quick-select-group 0 group))
     (if message-id
       (or (gnus-summary-goto-article message-id nil 'force)
          (if (fboundp 'gnus-summary-insert-cached-articles)

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index e2b9b82..8251f5b 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2069,11 +2069,11 @@ articles in the group."
     (forward-line -1))
   (gnus-group-read-group all t))
 
-(defun gnus-group-quick-select-group (&optional all)
-  "Select the current group \"quickly\".
-This means that no highlighting or scoring will be performed.
-If ALL (the prefix argument) is 0, don't even generate the summary
-buffer.
+(defun gnus-group-quick-select-group (&optional all group)
+  "Select the GROUP \"quickly\".
+This means that no highlighting or scoring will be performed.  If
+ALL (the prefix argument) is 0, don't even generate the summary
+buffer.  If GROUP is nil, use current group.
 
 This might be useful if you want to toggle threading
 before entering the group."
@@ -2084,7 +2084,7 @@ before entering the group."
        gnus-home-score-file
        gnus-apply-kill-hook
        gnus-summary-expunge-below)
-    (gnus-group-read-group all t)))
+    (gnus-group-read-group all t group)))
 
 (defun gnus-group-visible-select-group (&optional all)
   "Select the current group without hiding any articles."