Mercurial > emacs

comparison lisp/textmodes/org.el @ 72494:37bdcb1f6e30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(org-follow-gnus-link): Make sure the dedicated gnus frame is selected.
author Carsten Dominik <dominik@science.uva.nl>
date Wed, 23 Aug 2006 10:07:42 +0000
parents 1c9c6dd0b6d3
children f40288cce20c 6823a91487f2
comparison
equal deleted inserted replaced
72493:34047d6e4ef2 72494:37bdcb1f6e30
9465 9465
9466 (defun org-follow-gnus-link (&optional group article) 9466 (defun org-follow-gnus-link (&optional group article)
9467 "Follow a Gnus link to GROUP and ARTICLE." 9467 "Follow a Gnus link to GROUP and ARTICLE."
9468 (require 'gnus) 9468 (require 'gnus)
9469 (funcall (cdr (assq 'gnus org-link-frame-setup))) 9469 (funcall (cdr (assq 'gnus org-link-frame-setup)))
9470 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
9470 (if group (gnus-fetch-group group)) 9471 (if group (gnus-fetch-group group))
9471 (if article 9472 (if article
9472 (or (gnus-summary-goto-article article nil 'force) 9473 (or (gnus-summary-goto-article article nil 'force)
9473 (if (fboundp 'gnus-summary-insert-cached-articles) 9474 (if (fboundp 'gnus-summary-insert-cached-articles)
9474 (progn 9475 (progn