[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: mime-w3m.el



>>>>> In [emacs-w3m : No.00109] 
>>>>>	TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:

土> それから、この変更で、nnshimbun.el と mime-w3m.el がもっと仲よくなりま
土> した。例えば、ZDNet などの新聞を閲覧している人は文中のリンクに移動して、
土> return してみてください。

`nnheader-narrow-to-headers' を使われると Gnus 以外で困ったことに
なります。
以下のような感じでどうでしょうか?
Index: mime-w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/mime-w3m.el,v
retrieving revision 1.4
diff -u -r1.4 mime-w3m.el
--- mime-w3m.el	2001/03/07 05:05:53	1.4
+++ mime-w3m.el	2001/03/07 12:08:16
@@ -68,23 +68,10 @@
 	   ))
     (cons 'progn body)))
 
-(defun mime-w3m-get-xref ()
-  ;; Check Xref: header in this buffer.
-  (let ((p (point)))
-    (unwind-protect
-	(save-restriction
-	  (nnheader-narrow-to-headers)
-	  (goto-char (point-min))
-	  (let ((case-fold-search t))
-	    (when (search-forward "\nxref: " nil t)
-	      (buffer-substring-no-properties
-	       (match-end 0) (std11-field-end)))))
-      (goto-char p))))
-
 (defun mime-w3m-preview-text/html (entity situation)
   (goto-char (point-max))
   (let ((p (point))
-	(xref (mime-w3m-get-xref)))
+	(xref (mime-entity-fetch-field entity "xref")))
     ;; For nnshimbun.el.
     (and (stringp xref)
 	 (string-match "^http://"; xref)
-- 
有沢 明宏