*** sb-fml.el.new	Sun May 20 18:07:11 2001
--- sb-fml.el	Mon May 21 06:30:14 2001
***************
*** 135,146 ****
  			  (shimbun-header-xref header))
  			 (match-string 1 (shimbun-header-xref header))))
  	    (start (make-marker)) (end (make-marker))
! 	    overlay)
  	(narrow-to-region (point) (point-max))
  	(while (re-search-forward "<A HREF=\"\\(.+\\)\">\\1.*</A>" nil t nil)
  	  (set-marker start (match-beginning 0))
  	  (set-marker end (match-end 0))
! 	  (replace-match (concat baseurl (match-string 1)))
  	  (setq overlay (make-overlay start end))
  	  (overlay-put overlay 'mouse-face 'highlight)
  	  (overlay-put overlay 'face 'bold)))
--- 135,151 ----
  			  (shimbun-header-xref header))
  			 (match-string 1 (shimbun-header-xref header))))
  	    (start (make-marker)) (end (make-marker))
! 	    url overlay)
  	(narrow-to-region (point) (point-max))
  	(while (re-search-forward "<A HREF=\"\\(.+\\)\">\\1.*</A>" nil t nil)
+ 	  (setq url (match-string 1))
  	  (set-marker start (match-beginning 0))
  	  (set-marker end (match-end 0))
! 	  (replace-match 
! 	   (save-match-data
! 	     (if (string-match "^\\(http\\|ftp\\)://" url)
! 		 url
! 	       (concat baseurl url))))
  	  (setq overlay (make-overlay start end))
  	  (overlay-put overlay 'mouse-face 'highlight)
  	  (overlay-put overlay 'face 'bold)))