Proposed patch (was: Better definition for `gnus-article-refer-article')

[sigurd@12move.de (Karl Pflästerer)]

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

On Thu, 20 Feb 2003, Karl Pflästerer <- sigurd@12move.de wrote:

As noone yells I think I'll propose a patch for `gnus-art.el'. Here it
is:

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

Index: gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.298
diff -u -r6.298 gnus-art.el
--- gnus-art.el	21 Feb 2003 13:35:05 -0000	6.298
+++ gnus-art.el	21 Feb 2003 18:09:13 -0000
@@ -4772,15 +4772,15 @@
 (defun gnus-article-refer-article ()
   "Read article specified by message-id around point."
   (interactive)
-  (let ((point (point)))
-    (search-forward ">" nil t)		;Move point to end of "<....>".
-    (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t)
-	(let ((message-id (gnus-replace-in-string (match-string 1) "<news:" "<" )))
-	  (goto-char point)
-	  (set-buffer gnus-summary-buffer)
-	  (gnus-summary-refer-article message-id))
-      (goto-char (point))
-      (error "No references around point"))))
+  (save-excursion
+    (re-search-backward "<?news:\\|<" (point-at-bol) t)
+    (cond ((re-search-forward
+	    gnus-button-mid-or-mail-regexp (point-at-eol) t)
+	    (let ((msg-id (concat "<" (match-string 0) ">")))
+	      (set-buffer gnus-summary-buffer)
+	      (gnus-summary-refer-article msg-id)))
+	  (t
+	    (error "No references around point")))))
 
 (defun gnus-article-show-summary ()
   "Reconfigure windows to show summary buffer."

[-- Attachment #3: Type: text/plain, Size: 325 bytes --]


Please tell me if you also need something for the changelog.

bye
   KP

-- 
Der wahre Weltuntergang ist die Vernichtung des Geistes, der andere hängt von
dem gleichgiltigen Versuch ab, ob nach der Vernichtung des Geistes noch eine
Welt bestehen kann.
                   Karl Kraus 'Untergang der Welt durch schwarze Magie'