Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

(message-shorten-references): Be more strict when building list of
valid references to comply with GNKSA.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1814 gnus/lisp/ChangeLog:7.1815
--- ChangeLog:7.1814	Mon Mar 24 19:21:18 2008
+++ ChangeLog	Mon Mar 24 19:24:54 2008
@@ -3,6 +3,8 @@
 	* message.el (message-check-news-body-syntax): Fix signature check.
 	(message-setup-1): Mark buffer as unmodified _after_ running
 	message-setup-hook and handling message-alternative-emails.
+	(message-shorten-references): Be more strict when building list of
+	valid references to comply with GNKSA.
 
         * gnus-group.el (gnus-read-ephemeral-bug-group)
         (gnus-read-ephemeral-debian-bug-group)
Index: message.el
diff -u gnus/lisp/message.el:7.253 gnus/lisp/message.el:7.254
--- message.el:7.253	Mon Mar 24 19:21:18 2008
+++ message.el	Mon Mar 24 19:24:54 2008
@@ -5887,8 +5887,10 @@
     (with-temp-buffer
       (insert references)
       (goto-char (point-min))
-      ;; Cons a list of valid references.
-      (while (re-search-forward "<[^>]+>" nil t)
+      ;; Cons a list of valid references.  GNKSA says we must not include MIDs
+      ;; with whitespace or missing brackets (7.a "Does not propagate broken
+      ;; Message-IDs in original References").
+      (while (re-search-forward "<[^ <]+@[^ <]+>" nil t)
 	(push (match-string 0) refs))
       (setq refs (nreverse refs)
 	    count (length refs)))