sb-infoshop.el fix

[David Hansen <david.hansen@xxxxxxx>]

Hello,

2007-11-03  David Hansen  <david.hansen@xxxxxxx>

	* sb-infoshop.el (shimbun-rss-build-message-id): New function.

Index: sb-infoshop.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-infoshop.el,v
retrieving revision 1.3
diff -c -r1.3 sb-infoshop.el
*** sb-infoshop.el	6 Jun 2006 03:35:50 -0000	1.3
--- sb-infoshop.el	3 Nov 2007 01:08:44 -0000
***************
*** 43,48 ****
--- 43,54 ----
  (luna-define-method shimbun-index-url ((shimbun shimbun-infoshop))
    shimbun-infoshop-url)
  
+ (luna-define-method shimbun-rss-build-message-id :around
+     ((shimbun shimbun-infoshop) url &optional date)
+   (if (string-match "\\?story=\\(.*+\\)$" url)
+       (match-string 1 url)
+     (luna-call-next-method)))
+ 
  (luna-define-method shimbun-get-headers :around ((shimbun shimbun-infoshop)
  						 &optional range)
    (mapcar


Diffs between working revision and workfile end here.