From 8145852ab9b9e2f1ceea9b433fc6fface47cf6fd Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Mon, 18 Oct 2004 18:44:58 +0000 Subject: [PATCH] * gnus-util.el (gnus-split-references): accept a nil references string and go on blissfully * gnus-registry.el (gnus-registry-split-fancy-with-parent): catch cases where the references string is non-nil but has no references --- lisp/ChangeLog | 6 ++++++ lisp/gnus-registry.el | 3 ++- lisp/gnus-util.el | 1 + 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c232b6305..3104387e4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2004-10-18 Teodor Zlatanov + * gnus-util.el (gnus-split-references): accept a nil references + string and go on blissfully + + * gnus-registry.el (gnus-registry-split-fancy-with-parent): catch + cases where the references string is non-nil but has no references + * encrypt.el: add autoload tags * spam.el (spam-resolve-registrations-routine): remove article diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index bc951128e..35347ae4e 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -369,7 +369,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." nnmail-split-fancy-with-parent-ignore-groups (list nnmail-split-fancy-with-parent-ignore-groups))) references res) - (if refstr + ;; the references string must be valid and parse to valid references + (if (and refstr (gnus-extract-references refstr)) (progn (setq references (nreverse (gnus-extract-references refstr))) (mapcar (lambda (x) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 8c2687748..bb03786f3 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -474,6 +474,7 @@ inside loops." (defun gnus-split-references (references) "Return a list of Message-IDs in REFERENCES." (let ((beg 0) + (references (or references "")) ids) (while (string-match "<[^<]+[^< \t]" references beg) (push (substring references (match-beginning 0) (setq beg (match-end 0))) -- 2.25.1