Re: viewing images tries to contact http://image:80

[Roman Milner <roman@speeder.com>]

>>>>> "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)