[gnus git] branch master updated: m0-7-83-ga3153a2 =1= * shr.el (shr-parse-base): Fix parsing error.

       via  a3153a247e8631ebe793a77e819c5fee37dd833c (commit)
      from  bb49e8d0f273fbfea53977fead80b1ab286cf6ec (commit)


- Log -----------------------------------------------------------------
commit a3153a247e8631ebe793a77e819c5fee37dd833c
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 16 15:20:21 2013 +0200

    * shr.el (shr-parse-base): Fix parsing error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6980d58..e619d45 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-16  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* shr.el (shr-parse-base): Fix parsing error.
+
 	* eww.el (eww-submit): Pass the base in to `shr-expand-url'.
 
 	* shr.el (shr-parse-base): New function.
diff --git a/lisp/shr.el b/lisp/shr.el
index 13f376b..a8996bc 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -488,8 +488,8 @@ size, and full-buffer size."
   (let* ((parsed (url-generic-parse-url url))
 	 (local (url-filename parsed)))
     (setf (url-filename parsed) "")
-    ;; Chop off query string.
-    (when (string-match "\\`\\([^?]+\\)[?]" local)
+    ;; Chop off the bit after the last slash.
+    (when (string-match "\\`\\(.*/\\)[^/]+\\'" local)
       (setq local (match-string 1 local)))
     ;; Always make the local bit end with a slash.
     (when (and (not (zerop (length local)))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    2 ++
 lisp/shr.el    |    4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project