[mew-dist 27622] Re: Punycode encoder

[eamcs]

> > クリック１回目では、ミニバッファに次のメッセージがでますが、
> > while: Args out of range: 1, 2
>
> これだけは分からないので、
> (setq debug-on-error t) を実行して、エラーを捕まえてみて下さい。

失礼しました。
メッセージを添付します。


深野哲洋
-------------- next part --------------
Debugger entered--Lisp error: (args-out-of-range 1 2)
  delete-region(1 2)
  (while (re-search-forward "[^.]?[^. -][^.]*" nil t) (setq idn (mew-puny-encode ...)) (delete-region (match-beginning 0) (match-end 0)) (insert idn))
  (save-restriction (narrow-to-region beg end) (goto-char (point-min)) (while (re-search-forward "[^.]?[^. -][^.]*" nil t) (setq idn ...) (delete-region ... ...) (insert idn)))
  (save-current-buffer (set-buffer temp-buffer) (insert url) (goto-char (point-min)) (if (search-forward "://" nil t) (setq beg ...) (setq beg ...)) (if (search-forward "/" nil t) (setq end ...) (setq end ...)) (save-restriction (narrow-to-region beg end) (goto-char ...) (while ... ... ... ...)) (mew-buffer-substring (point-min) (point-max)))
  (with-current-buffer temp-buffer (insert url) (goto-char (point-min)) (if (search-forward "://" nil t) (setq beg ...) (setq beg ...)) (if (search-forward "/" nil t) (setq end ...) (setq end ...)) (save-restriction (narrow-to-region beg end) (goto-char ...) (while ... ... ... ...)) (mew-buffer-substring (point-min) (point-max)))
  (unwind-protect (with-current-buffer temp-buffer (insert url) (goto-char ...) (if ... ... ...) (if ... ... ...) (save-restriction ... ... ...) (mew-buffer-substring ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ... ...) (and ... ...)))
  (with-temp-buffer (insert url) (goto-char (point-min)) (if (search-forward "://" nil t) (setq beg ...) (setq beg ...)) (if (search-forward "/" nil t) (setq end ...) (setq end ...)) (save-restriction (narrow-to-region beg end) (goto-char ...) (while ... ... ... ...)) (mew-buffer-substring (point-min) (point-max)))
  (let (beg end idn) (with-temp-buffer (insert url) (goto-char ...) (if ... ... ...) (if ... ... ...) (save-restriction ... ... ...) (mew-buffer-substring ... ...)))
  mew-puny-encode-url("http://\xe2ec\xdafe\xe167\xd9d8.jp")
  (setq url (mew-puny-encode-url url))
  (progn (setq url (mew-puny-encode-url url)))
  (if (and url (string-match mew-regex-nonascii url)) (progn (setq url ...)))
  (when (and url (string-match mew-regex-nonascii url)) (setq url (mew-puny-encode-url url)))
  (let ((buf ...) url) (mouse-set-point event) (setq url (get-text-property ... ...)) (when (and url ...) (setq url ...)) (if url (browse-url url)) (pop-to-buffer buf))
  mew-browse-url-at-mouse((mouse-2 (#<window 11 on *Mew message*0> 1410 (195 . 334) 33783153 nil 1410 (24 . 18) nil (6 . 11) (14 . 21))))
  call-interactively(mew-browse-url-at-mouse)