From 06b6b6f21b1be92a572975152d71af9806e522bd Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 15 Feb 2007 02:44:12 +0000 Subject: [PATCH] muse-publish: Fix remote image detection 2007-02-14 Michael Olson * lisp/muse-publish.el (muse-publish-classify-url): Check to see whether something is an image before checking to see if it is a URL. Thanks to ITSUMI ken-ichi for the report. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-279 --- ChangeLog | 6 ++++++ lisp/muse-publish.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9976b14..977b9aa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-02-14 Michael Olson + + * lisp/muse-publish.el (muse-publish-classify-url): Check to see + whether something is an image before checking to see if it is a + URL. Thanks to ITSUMI ken-ichi for the report. + 2007-02-13 Michael Olson * lisp/muse-publish.el (muse-publish-markup-regexps): Handle diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index f63eef1..3c787e9 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -1365,10 +1365,10 @@ the cadr is the page name, and the cddr is the anchor." (save-match-data (cond ((or (null target) (string= target "")) nil) - ((string-match muse-url-regexp target) - (cons 'url (cons target nil))) ((string-match muse-image-regexp target) (cons 'image (cons target nil))) + ((string-match muse-url-regexp target) + (cons 'url (cons target nil))) ((string-match muse-file-regexp target) (cons 'file (cons target nil))) ((string-match "#" target) -- 2.11.4.GIT