Mercurial > emacs
comparison lisp/textmodes/org.el @ 72494:37bdcb1f6e30
(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 |