From 2b45516032f09132ef5a6da32c4482bbe689815f Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 21 Apr 2011 02:22:56 +0000 Subject: [PATCH] shr.el (shr-expand-url): Protect against null urls. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/shr.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9c37b9bf576..5803fe7d0fd 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-04-21 Lars Magne Ingebrigtsen + + * shr.el (shr-expand-url): Protect against null urls. + 2011-04-20 Lars Magne Ingebrigtsen * shr.el (shr-base): New binding. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index f27705e0bf5..ee231e6a82f 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -397,7 +397,8 @@ redirects somewhere else." (defun shr-expand-url (url) (cond ;; Absolute URL. - ((or (string-match "\\`[a-z]*:" url) + ((or (not url) + (string-match "\\`[a-z]*:" url) (not shr-base)) url) ((and (not (string-match "/\\'" shr-base)) -- 2.39.2