Better links to usenet articles

Better links to usenet articles

[Tassilo Horn]

Hi all,

I want to propose 2 things concerning the option
org-usenet-links-prefer-google.

1. I would be nice if that feature was available for Gmane articles,
   too.

2. Articles which have X-No-Archive set to yes cannot be looked up at
   google, neither by message id nor with keywords.  It would be good if
   org-remember creates only web links that can be followed and fall
   back to usual links if X-No-Archive is set.

Here's an example to an article in comp.emacs which cannot be followed:

  [[http://groups.google.com/groups%3Fas_umsgid%3D%3Cm3hc6cl3vp.fsf%40home.sweet.home%3E][Email
  from Myriam Abramson: Ant and emacs]]

Bye,
Tassilo
-- 
The glass is neither half-full nor half-empty: it's twice as big as it
needs to be.

Re: Better links to usenet articles

[Carsten Dominik]

Does anyone know the magic spell to check for this header field in a  
gnus article?

- Carsten

On Nov 13, 2008, at 8:51 PM, Tassilo Horn wrote:

> Hi all,
>
> I want to propose 2 things concerning the option
> org-usenet-links-prefer-google.
>
> 1. I would be nice if that feature was available for Gmane articles,
>   too.
>
> 2. Articles which have X-No-Archive set to yes cannot be looked up at
>   google, neither by message id nor with keywords.  It would be good  
> if
>   org-remember creates only web links that can be followed and fall
>   back to usual links if X-No-Archive is set.
>
> Here's an example to an article in comp.emacs which cannot be  
> followed:
>
>  [[http://groups.google.com/groups%3Fas_umsgid%3D%3Cm3hc6cl3vp.fsf%40home.sweet.home%3E 
> ][Email
>  from Myriam Abramson: Ant and emacs]]
>
> Bye,
> Tassilo
> -- 
> The glass is neither half-full nor half-empty: it's twice as big as it
> needs to be.
>
>
>
> _______________________________________________
> 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

Re: Better links to usenet articles

[Tassilo Horn]

Carsten Dominik <dominik@science.uva.nl> writes:

Hi Carsten,

> Does anyone know the magic spell to check for this header field in a
> gnus article?

That works for me:

--8<---------------cut here---------------start------------->8---
(with-current-buffer gnus-article-buffer
  (save-excursion
    (gnus-summary-toggle-header)
    (goto-char (point-min))
    (let ((str (mail-header 'x-no-archive (mail-header-extract))))
      (when str
	(with-temp-buffer
	  (insert str)
	  (buffer-substring-no-properties (point-min) (point-max)))))))
--8<---------------cut here---------------end--------------->8---

It returns the value of that header as string or nil if there's no such
header at all.

Bye,
Tassilo
-- 
The glass is neither half-full nor half-empty: it's twice as big as it
needs to be.

Re: Better links to usenet articles

[Tassilo Horn]

Tassilo Horn <tassilo@member.fsf.org> writes:

Ups, please correct that one line.

> --8<---------------cut here---------------start------------->8---
> (with-current-buffer gnus-article-buffer
>   (save-excursion
>     (gnus-summary-toggle-header 1)
                                 ^^^
>     (goto-char (point-min))
>     (let ((str (mail-header 'x-no-archive (mail-header-extract))))
>       (when str
> 	(with-temp-buffer
> 	  (insert str)
> 	  (buffer-substring-no-properties (point-min) (point-max)))))))
> --8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: Better links to usenet articles

[Carsten Dominik]

Hi Tassilo,

is there no way to do this without having to show the headers?  Seems
to be unnecessary overhead...

Sorry for being picky, thanks for looking into this.

- Carsten

On Nov 14, 2008, at 10:09 AM, Tassilo Horn wrote:

> Tassilo Horn <tassilo@member.fsf.org> writes:
>
> Ups, please correct that one line.
>
>> --8<---------------cut here---------------start------------->8---
>> (with-current-buffer gnus-article-buffer
>>  (save-excursion
>>    (gnus-summary-toggle-header 1)
>                                 ^^^
>>    (goto-char (point-min))
>>    (let ((str (mail-header 'x-no-archive (mail-header-extract))))
>>      (when str
>> 	(with-temp-buffer
>> 	  (insert str)
>> 	  (buffer-substring-no-properties (point-min) (point-max)))))))
>> --8<---------------cut here---------------end--------------->8---
>
> Bye,
> Tassilo

Re: Better links to usenet articles

[Tassilo Horn]

Carsten Dominik <dominik@science.uva.nl> writes:

Hi Carsten,

> is there no way to do this without having to show the headers?  Seems
> to be unnecessary overhead...

I'm not sure.  Could you please point me to the location where org
creates the link, then I'll try to figure it out.

> Sorry for being picky, thanks for looking into this.

It was my wish, so I'm in a tight spot.

Bye,
Tassilo

>>> --8<---------------cut here---------------start------------->8---
>>> (with-current-buffer gnus-article-buffer
>>>  (save-excursion
>>>    (gnus-summary-toggle-header 1)
>>                                 ^^^
>>>    (goto-char (point-min))
>>>    (let ((str (mail-header 'x-no-archive (mail-header-extract))))
>>>      (when str
>>> 	(with-temp-buffer
>>> 	  (insert str)
>>> 	  (buffer-substring-no-properties (point-min) (point-max)))))))
>>> --8<---------------cut here---------------end--------------->8---

Re: Better links to usenet articles

[Carsten Dominik]

On Nov 16, 2008, at 10:41 PM, Tassilo Horn wrote:

> Carsten Dominik <dominik@science.uva.nl> writes:
>
> Hi Carsten,
>
>> is there no way to do this without having to show the headers?  Seems
>> to be unnecessary overhead...
>
> I'm not sure.  Could you please point me to the location where org
> creates the link, then I'll try to figure it out.

Hi Tassilo,

this happens in org-gnus-store-link, defined in org-gnus.el.

- Carsten