[Date Prev][Date Next][Thread Prev][Thread Next][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)
--
有沢 明宏