Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2b455160
Commit
2b455160
authored
Apr 21, 2011
by
Lars Magne Ingebrigtsen
Committed by
Katsumi Yamaoka
Apr 21, 2011
Browse files
shr.el (shr-expand-url): Protect against null urls.
parent
dbd5ffad
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+4
-0
lisp/gnus/shr.el
lisp/gnus/shr.el
+2
-1
No files found.
lisp/gnus/ChangeLog
View file @
2b455160
2011-04-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-expand-url): Protect against null urls.
2011-04-20 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-base): New binding.
...
...
lisp/gnus/shr.el
View file @
2b455160
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment