From: Bastien <bzg@altern.org>
To: emacs-orgmode@gnu.org
Subject: Re: Integration of Org mode and Gnus
Date: Thu, 19 Jul 2007 17:41:26 +0200 [thread overview]
Message-ID: <87myxsv1sp.fsf@bzg.ath.cx> (raw)
In-Reply-To: <c28728158ee78470c147dc88df689547@science.uva.nl> (Carsten Dominik's message of "Wed\, 18 Jul 2007 23\:54\:17 +0200")
[-- Attachment #1: Type: text/plain, Size: 298 bytes --]
Hi Carsten,
Carsten Dominik <dominik@science.uva.nl> writes:
> I'd like to accept a patch that does this and keeps the old links
> working. After this discussion has converged, could you send me the
> final patch against a 5.xx version or org-mode?
Here it is. This patch is against Org 5.03.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-gnus-link.patch --]
[-- Type: text/x-diff, Size: 1139 bytes --]
--- org.el.orig 2007-07-13 15:10:47.000000000 +0200
+++ org.el 2007-07-18 17:33:21.000000000 +0200
@@ -10509,7 +10509,7 @@
(format "http://groups.google.com/groups?as_umsgid=%s"
(org-fixup-message-id-for-http message-id))))
(setq link (org-make-link "gnus:" group
- "#" (number-to-string article))))))
+ "#" (org-remove-angle-brackets message-id))))))
((eq major-mode 'w3-mode)
(setq cpltxt (url-view-url t)
@@ -11444,8 +11444,14 @@
(funcall (cdr (assq 'gnus org-link-frame-setup)))
(if gnus-other-frame-object (select-frame gnus-other-frame-object))
(cond ((and group article)
+ (if (string-match "@" article)
+ (when (boundp 'gnus-registry-alist)
+ (gnus-registry-save)
+ (setq group (caddr (assoc (concat "<" article ">")
+ gnus-registry-alist))))
+ (setq article (string-to-number article)))
(gnus-group-read-group 1 nil group)
- (gnus-summary-goto-article (string-to-number article) nil t))
+ (gnus-summary-goto-article article nil t))
(group (gnus-group-jump-to-group group))))
(defun org-follow-vm-link (&optional folder article readonly)
[-- Attachment #3: Type: text/plain, Size: 23 bytes --]
Regards,
--
Bastien
[-- Attachment #4: Type: text/plain, Size: 149 bytes --]
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next prev parent reply other threads:[~2007-07-19 15:41 UTC|newest]
Thread overview: 65+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-07-17 19:22 Integration of Org mode and Gnus Georg C. F. Greve
2007-07-18 0:22 ` Jason F. McBrayer
2007-07-18 8:03 ` Georg C. F. Greve
2007-07-18 10:04 ` Bastien
2007-07-18 10:29 ` Georg C. F. Greve
2007-07-20 16:08 ` Integration of Org mode and mairix (was: ... and Gnus) Adam Spiers
2007-07-22 23:15 ` Integration of Org mode and mairix Georg C. F. Greve
2007-07-23 2:24 ` Is it any function similar to appoinment alert in the planner mode? brianjiang
2007-07-23 12:38 ` Bernt Hansen
2007-07-25 19:15 ` Bastien Guerry
2007-07-26 7:23 ` Bastien
2007-07-27 5:17 ` brianjiang
2007-08-07 0:05 ` Bastien
2007-08-07 17:13 ` Bastien
2007-08-21 2:37 ` william
2007-07-24 14:38 ` Integration of Org mode and mairix Bastien
2007-07-30 14:02 ` Georg C. F. Greve
2007-07-30 16:02 ` Bastien
2007-07-30 16:31 ` Leo
2007-07-30 17:26 ` Bastien
2007-08-05 1:32 ` Xiao-Yong Jin
2007-07-31 15:52 ` Jason F. McBrayer
2007-07-31 16:56 ` Xiao-Yong Jin
2007-07-31 17:19 ` Georg C. F. Greve
2007-08-05 1:40 ` Xiao-Yong Jin
2007-07-31 18:43 ` Bastien
2007-08-01 14:52 ` Jason F. McBrayer
2007-08-01 16:59 ` Bastien
2007-08-05 1:44 ` Xiao-Yong Jin
2007-08-05 10:20 ` Georg C. F. Greve
2007-08-07 17:54 ` Bastien
2007-08-10 6:56 ` Carsten Dominik
2007-08-14 11:29 ` Adam Spiers
2007-08-15 17:46 ` Carsten Dominik
2007-08-21 12:38 ` Carsten Dominik
2007-08-14 22:54 ` Steven Lumos
2007-08-15 17:46 ` Carsten Dominik
2007-08-16 18:48 ` Steven Lumos
2007-09-23 15:44 ` Georg C. F. Greve
2007-09-23 18:12 ` Carsten Dominik
2007-09-23 21:50 ` Georg C. F. Greve
2007-09-23 22:05 ` Carsten Dominik
2007-09-24 17:38 ` Georg C. F. Greve
2007-09-25 14:41 ` Carsten Dominik
2007-09-25 22:25 ` Georg C. F. Greve
2007-09-25 22:38 ` Carsten Dominik
2007-07-18 11:04 ` Integration of Org mode and Gnus Jason F. McBrayer
2007-07-18 12:01 ` Bastien
2007-07-18 12:57 ` Jason F. McBrayer
2007-07-18 13:08 ` Georg C. F. Greve
2007-07-18 15:39 ` Bastien
2007-07-18 19:39 ` Georg C. F. Greve
2007-07-18 22:06 ` Bastien
2007-07-19 15:29 ` Georg C. F. Greve
2007-07-18 21:54 ` Carsten Dominik
2007-07-19 15:41 ` Bastien [this message]
2007-07-18 10:20 ` Tassilo Horn
2007-07-18 10:35 ` Georg C. F. Greve
2007-07-18 11:55 ` Tassilo Horn
2007-07-18 12:25 ` Georg C. F. Greve
2007-07-18 12:54 ` Tassilo Horn
2007-07-18 13:18 ` Georg C. F. Greve
2007-07-18 13:32 ` Tassilo Horn
2007-07-18 0:55 ` Bastien
2007-07-18 7:53 ` Georg C. F. Greve
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87myxsv1sp.fsf@bzg.ath.cx \
--to=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).