Hi Ulf,

please try this one:

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index 7231538..05bed5b 100644
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -157,12 +157,9 @@ If `org-store-link' was called with a prefix arg the 
meaning of
   (funcall (cdr (assq 'gnus org-link-frame-setup)))
   (if gnus-other-frame-object (select-frame gnus-other-frame-object))
   (cond ((and group article)
+        (gnus-activate-group group t)
         (gnus-group-read-group 1 nil group)
-        (gnus-summary-goto-article
-         (if (string-match "[^0-9]" article)
-             article
-           (string-to-number article))
-         nil t))
+        (gnus-summary-goto-article article nil t))
        (group (gnus-group-jump-to-group group))))
 
 (defun org-gnus-no-new-news ()
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo



_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to