[Patch] gnus-article-refer-article

[Patch] gnus-article-refer-article

[Frank Weinberg]

[-- Attachment #1: Type: text/plain, Size: 330 bytes --]

Hi,

when faced with a message-ID of the form <news:$ID>
gnus-article-refer-article fails miserably. The following patch corrects
this.

Suggested ChangeLog entry:

2003-02-07  Frank Weinberg  <frank@usenet-rundfahrt.de>

        * gnus-art.el (gnus-article-refer-article): Strip leading "news:"
          from message-ID

Frank


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-art.el.patch --]
[-- Type: text/x-patch, Size: 480 bytes --]

--- gnus-art.el.orig	Fri Feb  7 20:18:45 2003
+++ gnus-art.el	Fri Feb  7 20:22:35 2003
@@ -4741,7 +4741,7 @@
   (let ((point (point)))
     (search-forward ">" nil t)		;Move point to end of "<....>".
     (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t)
-	(let ((message-id (match-string 1)))
+	(let ((message-id (replace-regexp-in-string "<news:" "<" (match-string 1))))
 	  (goto-char point)
 	  (set-buffer gnus-summary-buffer)
 	  (gnus-summary-refer-article message-id))

Re: [Patch] gnus-article-refer-article

[Lars Magne Ingebrigtsen]

Frank Weinberg <frank@usenet-rundfahrt.de> writes:

>         * gnus-art.el (gnus-article-refer-article): Strip leading "news:"
>           from message-ID

Thanks for the patch; I've applied it to Oort Gnus v0.15 (i. e., CVS).

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: [Patch] gnus-article-refer-article

[Reiner Steib]

On Fri, Feb 07 2003, Lars Magne Ingebrigtsen wrote:

> Frank Weinberg <frank@usenet-rundfahrt.de> writes:
>
>>         * gnus-art.el (gnus-article-refer-article): Strip leading "news:"
>>           from message-ID
>
> Thanks for the patch; I've applied it to Oort Gnus v0.15 (i. e., CVS).

-	(let ((message-id (match-string 1)))
+	(let ((message-id (replace-regexp-in-string "<news:" "<" [...]
                           ^^^^^^^^^^^^^^^^^^^^^^^^

This should read `gnus-replace-in-string'.  XEmacs'
`replace-regexp-in-string' doesn't exist in Emacs.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/