[mew-int 2498] Re: A patch: make-string in emacs 23

Thu May 15 17:19:21 JST 2008

+ Kazu Yamamoto (山本和彦) <kazu at example.com>:

> Unfortunately, CVS HEAD today is broken. I cannot compile it. So, it
> would take a time.

I think it was broken only for a short time, then fixed again.

> One suggestion: backtrace does not show much information if Emacs Lisp
> files are byte-compiled. Removing *.elc and executing Emacs would show
> much information in backtrace.

Of course. I wasn't thinking. Here is a better backtrace.

- Harald

Debugger entered--Lisp error: (args-out-of-range "øaaaaaaaaaaaaaaaaaaaaaaaa" 937)
  aset("øaaaaaaaaaaaaaaaaaaaaaaaa" 1 937)
  (cond ((char-equal c 34) (aset tmp tmp-cnt c) (setq tmp-cnt ...) (setq i ...) (catch ... ...)) ((char-equal c 40) (setq par-cnt 1) (setq i ...) (catch ... ...)) ((char-equal c 60) (cond ... ...)) ((char-equal c 10)) ((char-equal c 9)) ((and ... ...)) ((char-equal c sep) (if ... ...) (setq tmp-cnt 0) (mew-addrstr-parse-syntax-list-check-depth depth)) (t (aset tmp tmp-cnt c) (setq tmp-cnt ...)))
  (while (< i len) (setq c (aref str i)) (cond (... ... ... ... ...) (... ... ... ...) (... ...) (...) (...) (...) (... ... ... ...) (t ... ...)) (setq i (1+ i)))
  (catch (quote max) (while (< i len) (setq c ...) (cond ... ... ... ... ... ... ... ...) (setq i ...)) (when (> tmp-cnt 0) (save-match-data ...)))
  (let* ((i 0) (len ...) (par-cnt 0) (tmp-cnt 0) (sep-cnt 0) (tmp ...) c ret prevc) (catch (quote max) (while ... ... ... ...) (when ... ...)) (setq ret (delete nil ret)) (nreverse ret))
  (progn (let* (... ... ... ... ... ... c ret prevc) (catch ... ... ...) (setq ret ...) (nreverse ret)))
  (if str (progn (let* ... ... ... ...)))
  (when str (let* (... ... ... ... ... ... c ret prevc) (catch ... ... ...) (setq ret ...) (nreverse ret)))
  mew-addrstr-parse-syntax-list(#("\x00f8 \x03a9 <hanche at example.com>" 0 25 (charset iso-8859-1)) 44 t 1)
  (car (mew-addrstr-parse-syntax-list address 44 t 1))
  mew-addrstr-parse-address(#("\x00f8 \x03a9 <hanche at example.com>" 0 25 (charset iso-8859-1)))
  (or (mew-addrstr-parse-address FROM) "")
  (let* ((FROM ...) (TO ...) (from ...)) (cond (... "") (... ...) (t ...)))
  mew-summary-form-from()
  funcall(mew-summary-form-from)
  (setq str (funcall func))
  (progn (setq str (funcall func)) (if rightp (if ... ... ... str) (mew-substring str width nil nopad)))
  (if (fboundp func) (progn (setq str ...) (if rightp ... ...)))
  (when (fboundp func) (setq str (funcall func)) (if rightp (if ... ... ... str) (mew-substring str width nil nopad)))
  (progn (when (= width 0) (setq width ...) (unless mew-use-spc-padding ...)) (if (< width 0) (setq width ... rightp t)) (setq mew-inherit-total (+ mew-inherit-total width)) (setq func (intern-soft ...)) (when (fboundp func) (setq str ...) (if rightp ... ...)))
  (if (and (integerp width) (symbolp func)) (progn (when ... ... ...) (if ... ...) (setq mew-inherit-total ...) (setq func ...) (when ... ... ...)))
  (when (and (integerp width) (symbolp func)) (when (= width 0) (setq width ...) (unless mew-use-spc-padding ...)) (if (< width 0) (setq width ... rightp t)) (setq mew-inherit-total (+ mew-inherit-total width)) (setq func (intern-soft ...)) (when (fboundp func) (setq str ...) (if rightp ... ...)))
  (if (stringp spec) (progn (setq mew-inherit-total ...) spec) (if (symbolp spec) (setq width 1 func spec) (mew-set ... spec)) (when (and ... ...) (when ... ... ...) (if ... ...) (setq mew-inherit-total ...) (setq func ...) (when ... ... ...)))
  (let (func width str rightp nopad) (if (stringp spec) (progn ... spec) (if ... ... ...) (when ... ... ... ... ... ...)))
  mew-scan-get-piece((14 from))
  mapconcat(mew-scan-get-piece (mark type (5 date) " " (14 from) " " t (0 subj)) "")
  (let* ((mew-inherit-total 0) (fld "") (line ...) par-id my-id msg ld uid siz irt-list) (setq my-id (or ... "")) (setq par-id (or ... "")) (when (string= par-id "") (setq irt-list ...) (if ... ... ...)) (when (mew-virtual-p) (setq fld ...)) (setq msg (mew-scan-get-message mew-vec)) (setq uid (or ... "")) (setq siz (or ... "")) (setq ld (format "
 %s %s %s %s %s %s\n" fld msg my-id par-id uid siz)) (cons line ld))
  mew-scan-get-line(["%test" "3" "Testing" "Wed, 14 May 2008 12:56:45 +0200 (CEST)" #("\x00f8 \x03a9 <hanche at example.com>" 0 25 (charset iso-8859-1)) "hanche at example.com" "" "Text/Plain; charset=us-ascii" "7bit" "3 0715" "<20080514.125645.244810938.hanche at example.com>" "" "" "" "" ""] 80)
  (let* ((line ...) (opos ...) (omax ...) beg med face olen nlen mark msg) (mew-elet (if ... ... ...) (setq beg ...) (insert ...) (setq med ...) (insert ...) (goto-char beg) (cond ... ... ... ...) (if mew-use-highlight-mouse-line ...) (forward-line) (put-text-property med ... ... t) (when lmsg ... ... ... ... ...)) (if (or ... ...) (goto-char opos)))
  (save-excursion (set-buffer folder) (let* (... ... ... beg med face olen nlen mark msg) (mew-elet ... ... ... ... ... ... ... ... ... ... ...) (if ... ...)))
  (progn (save-excursion (set-buffer folder) (let* ... ... ...)))
  (if (get-buffer folder) (progn (save-excursion ... ...)))
  (when (get-buffer folder) (save-excursion (set-buffer folder) (let* ... ... ...)))
  mew-scan-insert-line("%test" ["%test" "3" "Testing" "Wed, 14 May 2008 12:56:45 +0200 (CEST)" #("\x00f8 \x03a9 <hanche at example.com>" 0 25 (charset iso-8859-1)) "hanche at example.com" "" "Text/Plain; charset=us-ascii" "7bit" "3 0715" "<20080514.125645.244810938.hanche at example.com>" "" "" "" "" ""] 80 nil nil)
  (progn (mew-set-file-modes file) (unless (string= folder ...) (mew-set-file-type file)) (mew-set-buffer-multibyte t) (setq vec (mew-scan-header)) (mew-scan-set-folder vec fld) (mew-scan-set-message vec msg) (if (and ... ...) (setq mark ...)) (mew-scan-body vec) (mew-set-buffer-multibyte nil) (mew-scan-insert-line fld vec width lmsg mark))
  (if (file-exists-p file) (progn (mew-set-file-modes file) (unless ... ...) (mew-set-buffer-multibyte t) (setq vec ...) (mew-scan-set-folder vec fld) (mew-scan-set-message vec msg) (if ... ...) (mew-scan-body vec) (mew-set-buffer-multibyte nil) (mew-scan-insert-line fld vec width lmsg mark)))
  (when (file-exists-p file) (mew-set-file-modes file) (unless (string= folder ...) (mew-set-file-type file)) (mew-set-buffer-multibyte t) (setq vec (mew-scan-header)) (mew-scan-set-folder vec fld) (mew-scan-set-message vec msg) (if (and ... ...) (setq mark ...)) (mew-scan-body vec) (mew-set-buffer-multibyte nil) (mew-scan-insert-line fld vec width lmsg mark))
  (catch (quote write-error) (condition-case nil (let ... ...) (error ... ... ...)) (mew-imap-set-rcnt pnm (1+ ...)) (when (file-exists-p file) (mew-set-file-modes file) (unless ... ...) (mew-set-buffer-multibyte t) (setq vec ...) (mew-scan-set-folder vec fld) (mew-scan-set-message vec msg) (if ... ...) (mew-scan-body vec) (mew-set-buffer-multibyte nil) (mew-scan-insert-line fld vec width lmsg mark)) (mew-imap-set-rtrs pnm (cdr rtrs)) (cond (... ...) (... ...)) (mew-imap-set-status pnm "fetch") (mew-imap-set-bytes pnm nil) (mew-imap-command-fetch pro pnm))
  (let* ((directive ...) (width ...) (rtrs ...) (rtr ...) (uid ...) (siz ...) (del ...) (union ...) (truncated ...) (case ...) fld msg vec file msg-file lmsg mark folder) (cond (... ...) (... ... ...) (t ...)) (setq folder (mew-case:folder-folder fld)) (goto-char (point-min)) (mew-crlf-to-lf) (cond (... ... ...) (t ... ...)) (goto-char (point-min)) (cond (truncated ...) (... ...) (... ...)) (catch (quote write-error) (condition-case nil ... ...) (mew-imap-set-rcnt pnm ...) (when ... ... ... ... ... ... ... ... ... ... ...) (mew-imap-set-rtrs pnm ...) (cond ... ...) (mew-imap-set-status pnm "fetch") (mew-imap-set-bytes pnm nil) (mew-imap-command-fetch pro pnm)))
  mew-imap-command-post-fetch(#<process mew-imap-info-localhost/test> "mew-imap-info-localhost/test")
  funcall(mew-imap-command-post-fetch #<process mew-imap-info-localhost/test> "mew-imap-info-localhost/test")
  (if (fboundp func) (funcall func process pnm) (error "No function called %s" (symbol-name func)))
  (if stay nil (unless next (setq next "logout")) (mew-imap-set-status pnm next) (setq func (intern-soft ...)) (goto-char (point-min)) (if (fboundp func) (funcall func process pnm) (error "No function called %s" ...)) (if (and process ...) (mew-erase-buffer)))
  (unless stay (unless next (setq next "logout")) (mew-imap-set-status pnm next) (setq func (intern-soft ...)) (goto-char (point-min)) (if (fboundp func) (funcall func process pnm) (error "No function called %s" ...)) (if (and process ...) (mew-erase-buffer)))
  (progn (set-buffer (process-buffer process)) (goto-char (point-max)) (mew-set-buffer-multibyte nil) (insert string) (cond (... ... ... ... ... ...) (... ...) (... ...) (... ... ... ...) (t ...)) (unless stay (unless next ...) (mew-imap-set-status pnm next) (setq func ...) (goto-char ...) (if ... ... ...) (if ... ...)))
  (unwind-protect (progn (set-buffer ...) (goto-char ...) (mew-set-buffer-multibyte nil) (insert string) (cond ... ... ... ... ...) (unless stay ... ... ... ... ... ...)) (if (get-buffer obuf) (set-buffer obuf)))
  (if (and (bufferp pbuf) (buffer-name pbuf)) (unwind-protect (progn ... ... ... ... ... ...) (if ... ...)))
  (let ((pbuf ...) (obuf ...) (inhibit-eol-conversion nil)) (if (and ... ...) (unwind-protect ... ...)))
  (mew-filter (goto-char (point-max)) (mew-set-buffer-multibyte nil) (insert string) (cond (... ... ... ... ... ...) (... ...) (... ...) (... ... ... ...) (t ...)) (unless stay (unless next ...) (mew-imap-set-status pnm next) (setq func ...) (goto-char ...) (if ... ... ...) (if ... ...)))
  (let* ((pnm ...) (status ...) (tag ...) (eos ...) (bytes ...) stay next func code) (mew-imap-debug (upcase status) string) (mew-filter (goto-char ...) (mew-set-buffer-multibyte nil) (insert string) (cond ... ... ... ... ...) (unless stay ... ... ... ... ... ...)))
  mew-imap-filter(#<process mew-imap-info-localhost/test> "* 3 FETCH (UID 3 BODY[HEADER] {697}
\nReturn-Path: <hanche+bounces at example.com>
\nDelivered-To: hanche at example.com
\nX-Spambayes-Classification: ham; 0.00
\nReceived: (qmail 923 invoked from network); 14 May 2008 10:56:45 -0000
\nReceived: from localhost (127.0.0.1)
\n  by localhost with SMTP; 14 May 2008 10:56:45 -0000
\nDate: Wed, 14 May 2008 12:56:45 +0200 (CEST)
\nMessage-Id: <20080514.125645.244810938.hanche at example.com>
\nTo: hanche at example.com
\nSubject: Testing
\nFrom: ø Î© <hanche at example.com>
\nX-URL: http://www.math.ntnu.no/~hanche/
\nX-Mailer: Mew version 6.0.51 on Emacs 23.0.60 / Mule 6.0 (HANACHIRUSATO)
\nMime-Version: 1.0
\nContent-Type: Text/Plain; charset=us-ascii
\nContent-Transfer-Encoding: 7bit
\n
\n)
\njpan6464 OK Fetch completed.
\n")