*** sb-w3m-dev.el.orig	Sat May 26 08:46:30 2001
--- sb-w3m-dev.el	Sat May 26 08:53:29 2001
***************
*** 32,47 ****
  
  (defvar shimbun-w3m-dev-url "http://mi.med.tohoku.ac.jp/~satodai/w3m-dev/")
  (defvar shimbun-w3m-dev-groups '("w3m-dev"))
! (defvar shimbun-w3m-dev-coding-system 'iso-2022-jp)
  
  (luna-define-method shimbun-reply-to ((shimbun shimbun-w3m-dev))
    "w3m-dev@mi.med.tohoku.ac.jp")
  
  ;;(luna-define-method shimbun-get-headers :before ((shimbun shimbun-w3m-dev)
! ;;						   &optional header)
! ;;  (shimbun-set-use-entire-index-internal shimbun t)
! ;;  (luna-call-next-method))
  
  (provide 'sb-w3m-dev)
  
  ;;; sb-w3m-dev.el ends here
--- 32,62 ----
  
  (defvar shimbun-w3m-dev-url "http://mi.med.tohoku.ac.jp/~satodai/w3m-dev/")
  (defvar shimbun-w3m-dev-groups '("w3m-dev"))
! (defvar shimbun-w3m-dev-coding-system 'euc-jp)
  
  (luna-define-method shimbun-reply-to ((shimbun shimbun-w3m-dev))
    "w3m-dev@mi.med.tohoku.ac.jp")
  
  ;;(luna-define-method shimbun-get-headers :before ((shimbun shimbun-w3m-dev)
! ;;						 &optional header)
! ;;  (shimbun-set-use-entire-index-internal shimbun t))
  
+ (luna-define-method shimbun-make-contents :before ((shimbun shimbun-w3m-dev) header)
+   (save-excursion
+     (let ((baseurl (if (string-match 
+ 			"\\(.+\\([0-9]+\\(\\.week\\|\\.month\\)?\\)/\\).*"
+ 			(shimbun-header-xref header))
+ 		       (match-string 1 (shimbun-header-xref header))))
+ 	  (start (make-marker)) (end (make-marker))
+ 	  url)
+       (while (re-search-forward "<A HREF=\"\\(.+\\.\\(bin\\|txt\\)\\)\">\\1.*</A>" nil t nil)
+ 	(setq url (match-string 1))
+ 	(if (not (save-match-data (string-match "^\\(http\\|ftp\\)://" url)))
+ 	    (progn
+ 	      (delete-region (match-beginning 1) (match-end 1))
+ 	      (goto-char (match-beginning 1))
+ 	      (insert (concat baseurl url))))))))
+   
  (provide 'sb-w3m-dev)
  
  ;;; sb-w3m-dev.el ends here