From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18910
Path: main.gmane.org!not-for-mail
From: Roman Milner <roman@speeder.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: viewing images tries to contact http://image:80
Date: 18 Nov 1998 21:43:52 -0600
Sender: owner-ding@hpc.uh.edu
Message-ID: <4srwuz2f.fsf@blip.speeder.com>
References: <sofgih9x.fsf@blip.speeder.com> <m3af1ocsnw.fsf@sparky.gnus.org>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1035157354 8760 80.91.224.250 (20 Oct 2002 23:42:34 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:42:34 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id WAA29888
	for <jason@mailhost.sclp.com>; Wed, 18 Nov 1998 22:44:43 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id VAB05135;
	Wed, 18 Nov 1998 21:44:22 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 18 Nov 1998 21:44:19 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id VAA17686 for <ding@hpc.uh.edu>; Wed, 18 Nov 1998 21:44:08 -0600 (CST)
Original-Received: from mail.austintx.net (mail.austintx.net [208.21.176.254])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id WAA29830
	for <ding@gnus.org>; Wed, 18 Nov 1998 22:44:00 -0500 (EST)
Original-Received: from blip.speeder.com ([208.21.179.172]) by mail.austintx.net
          (post.office MTA v2.0 0813 ID# 0-12432) with ESMTP id AAA141
          for <ding@gnus.org>; Wed, 18 Nov 1998 21:43:56 -0600
Original-Received: (from root@localhost)
	by blip.speeder.com (8.8.7/8.8.7) id VAA13225;
	Wed, 18 Nov 1998 21:43:53 -0600
Original-To: ding@gnus.org
X-Face: "Ai(fJ?`gzjMI^,-zIEMVPRdptm\gOdC;L&:8Hj`TQ\4?7/&y.l{!?*U4S+w<!}w{"|y{S8
 J\IDk'`fpw0QQ|(1\Hb}9']dQT"P}{q9S~U~WRrZS~XgE`iDfj/b!e+VYtr=Uvf--"t:cc1pSfEd?<
 9L{X`/=GtUn[>^2"Uy@Q
In-Reply-To: Lars Magne Ingebrigtsen's message of "19 Nov 1998 03:39:31 +0100"
Original-Lines: 105
User-Agent: Gnus/5.07005 (Pterodactyl Gnus v0.50) XEmacs/21.0 (Poitou)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18910
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18910


>>>>> "LMI" == Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

    LMI> You click on one of those

    LMI> [1. image/jpeg]

    LMI> buttons, and Gnus opens a web browser?  That doesn't happen

	Yes.

    LMI> for me.  Try to (setq debug-on-quit t) and then `C-g' when it
    LMI> spawns the browser.

	I don't think it's a bug in gnus.  It only happens on one of my
machines.  It's something in my setup - I just don't know what.	
	It was hard to catch it at the right time.  This is the best I
could to.


Signaling: (quit)
  (aref base64-alphabet-decoding-vector (char-int (char-after inputpos)))
)
  (+ bits (aref base64-alphabet-decoding-vector (char-int ...)))
)
  (setq bits (+ bits (aref base64-alphabet-decoding-vector ...)))
)
  (while (< inputpos lim) (setq bits (+ bits ...)) (setq counter (1+ counter) inputpos (1+ inputpos)) (cond (... ... ... ... ...) (t ...)))
)
  (cond ((> ... 0) (setq lim ...) (while ... ... ... ...)))
)
  (while (not done) (setq inputpos (point)) (cond (... ... ...)) (cond (... ... ...) (... ... ...) (t ...)))
)
  (if base64-decoder-program (let* (... ...) (if ... ...)) (goto-char start) (skip-chars-forward non-data-chars end) (while (not done) (setq inputpos ...) (cond ...) (cond ... ... ...)))
)
  (save-excursion (setq work-buffer (generate-new-buffer " *base64-work*")) (buffer-disable-undo work-buffer) (if base64-decoder-program (let* ... ...) (goto-char start) (skip-chars-forward non-data-chars end) (while ... ... ... ...)) (or (markerp end) (setq end ...)) (goto-char start) (insert-buffer-substring work-buffer) (delete-region (point) end))
)
  (unwind-protect (save-excursion (setq work-buffer ...) (buffer-disable-undo work-buffer) (if base64-decoder-program ... ... ... ...) (or ... ...) (goto-char start) (insert-buffer-substring work-buffer) (delete-region ... end)) (and work-buffer (kill-buffer work-buffer)))
)
  (let ((work-buffer nil) (done nil) (counter 0) (bits 0) (lim 0) inputpos (non-data-chars ...)) (unwind-protect (save-excursion ... ... ... ... ... ... ...) (and work-buffer ...)))
)
  base64-decode-region(1 41627)
  (condition-case nil (base64-decode-region (point-min) (point-max)) (error nil))
)
  (prog1 (condition-case nil (base64-decode-region ... ...) (error nil)) (when (equal type "text/plain") (goto-char ...) (while ... ...)))
)
  (cond ((eq encoding ...) (quoted-printable-decode-region ... ...)) ((eq encoding ...) (prog1 ... ...)) ((memq encoding ...)) ((null encoding)) ((eq encoding ...) (condition-case nil ... ...)) ((functionp encoding) (condition-case nil ... ...)) (t (message "Unknown encoding %s; defaulting to 8bit" encoding)))
)
  mm-decode-content-transfer-encoding(base64 "image/jpeg")
  (save-current-buffer (set-buffer temp-buffer) (insert-buffer-substring (mm-handle-buffer handle)) (mm-decode-content-transfer-encoding (mm-handle-encoding handle) (car ...)) (setq image (make-image-specifier ...)))
)
  (with-current-buffer temp-buffer (insert-buffer-substring (mm-handle-buffer handle)) (mm-decode-content-transfer-encoding (mm-handle-encoding handle) (car ...)) (setq image (make-image-specifier ...)))
)
  (unwind-protect (with-current-buffer temp-buffer (insert-buffer-substring ...) (mm-decode-content-transfer-encoding ... ...) (setq image ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
)
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ...) (and ... ...)))
)
  (with-temp-buffer (insert-buffer-substring (mm-handle-buffer handle)) (mm-decode-content-transfer-encoding (mm-handle-encoding handle) (car ...)) (setq image (make-image-specifier ...)))
)
  (if (not (boundp ...)) (with-temp-buffer (insert-buffer-substring ...) (mm-decode-content-transfer-encoding ... ...) (setq image ...)) (let (... temp-buffer) (unwind-protect ... ...)))
)
  (mm-with-unibyte-buffer (insert-buffer-substring (mm-handle-buffer handle)) (mm-decode-content-transfer-encoding (mm-handle-encoding handle) (car ...)) (setq image (make-image-specifier ...)))
)
  (let ((type ...) buffer-read-only image) (mm-with-unibyte-buffer (insert-buffer-substring ...) (mm-decode-content-transfer-encoding ... ...) (setq image ...)) (let (...) (set-extent-property annot ... t) (set-extent-property annot ... t) (mm-insert-inline handle " \n")))
)
  mm-inline-image((#<buffer " *mm*<4>"> ("image/jpeg" (name . "cn44480.jpg")) base64 nil ("inline" (filename . "cn44480.jpg")) nil))
  funcall(mm-inline-image (#<buffer " *mm*<4>"> ("image/jpeg" (name . "cn44480.jpg")) base64 nil ("inline" (filename . "cn44480.jpg")) nil))
  (let* ((type ...) (function ...)) (funcall function handle) (goto-char (point-min)))
)
  mm-display-inline((#<buffer " *mm*<4>"> ("image/jpeg" (name . "cn44480.jpg")) base64 nil ("inline" (filename . "cn44480.jpg")) nil))
  (progn (forward-line 1) (mm-display-inline handle))
)
  (if (eq user-method (quote inline)) (progn (forward-line 1) (mm-display-inline handle)) (when (or user-method method ...) (if ... ... ... ...)))
)
  (let* ((type ...) (method ...) (user-method ...)) (if (eq user-method ...) (progn ... ...) (when ... ...)))
)
  (if (mm-handle-displayed-p handle) (mm-remove-part handle) (let* (... ... ...) (if ... ... ...)))
)
  (save-excursion (mailcap-parse-mailcaps) (if (mm-handle-displayed-p handle) (mm-remove-part handle) (let* ... ...)))
)
  mm-display-part((#<buffer " *mm*<4>"> ("image/jpeg" (name . "cn44480.jpg")) base64 nil ("inline" (filename . "cn44480.jpg")) nil))
  (let ((win ...)) (if win (select-window win)) (goto-char point) (forward-line) (mm-display-part handle))
)
  (unwind-protect (let (...) (if win ...) (goto-char point) (forward-line) (mm-display-part handle)) (select-window window))
)
  (save-excursion (unwind-protect (let ... ... ... ... ...) (select-window window)))
)
  (let ((window ...)) (save-excursion (unwind-protect ... ...)))
)
  (prog1 (let (...) (save-excursion ...)) (goto-char point))
)
  (let ((id ...) (point ...) buffer-read-only) (delete-region (gnus-point-at-bol) (progn ... ...)) (gnus-insert-mime-button handle id (list ...)) (prog1 (let ... ...) (goto-char point)))
)
  gnus-mm-display-part((#<buffer " *mm*<4>"> ("image/jpeg" (name . "cn44480.jpg")) base64 nil ("inline" (filename . "cn44480.jpg")) nil))
  funcall(gnus-mm-display-part (#<buffer " *mm*<4>"> ("image/jpeg" (name . "cn44480.jpg")) base64 nil ("inline" (filename . "cn44480.jpg")) nil))
  (progn (funcall fun data))
)
  (if fun (progn (funcall fun data)))
)
  (when fun (funcall fun data))
)
  (let* ((pos ...) (data ...) (fun ...)) (goto-char pos) (when fun (funcall fun data)))
)
  gnus-article-push-button(#<buttondown-event button2>)
  call-interactively(gnus-article-push-button)