[Mew-dist 16601] Re: fancy-highlight-body

[Sawada Toyonobu]

澤田です。

   On Sat, 24 Feb 2001 16:42:39 +0900
   in message <<[Mew-dist 16599] Re: fancy-highlight-body>>
   「白井」、こと shirai at example.com said...

yossi> このパッチを使用するとMultiPart のメールの表示が出来なくなりました。
kamei> とのメールが。私のところでは表示できています。うーむ。
うちもだめです。

Backtraceを添付します。

--
  の＠自宅		non at example.com

-------------- next part --------------
Signaling: (wrong-type-argument stringp nil)
  looking-at(nil)
  (if (looking-at mew-fancy-highlight-body-keywords-regex) (progn (setq beg ...) (setq end ...) (setq key ...) (if ... ... ...) (setq face ...) (cond ... ...)))
  (when (looking-at mew-fancy-highlight-body-keywords-regex) (setq beg (match-beginning 0)) (setq end (match-end 0)) (setq key (mew-match 0)) (if (match-beginning 1) (setq fancy-prefix ...) (setq fancy-prefix nil)) (setq face (mew-fancy-highlight-body-get-face key)) (cond (... ...) (... ...)))
  (progn (when (looking-at mew-fancy-highlight-body-keywords-regex) (setq beg ...) (setq end ...) (setq key ...) (if ... ... ...) (setq face ...) (cond ... ...)))
  (if mew-use-fancy-highlight-body (progn (when ... ... ... ... ... ... ...)) (when (looking-at mew-highlight-body-keywords-regex) (setq beg ...) (setq end ...) (setq key ...) (setq face ...) (if face ...)))
  (while (< (point) END) (if mew-use-fancy-highlight-body (progn ...) (when ... ... ... ... ... ...)) (forward-line))
  (progn (goto-char BEG) (while (< ... END) (if mew-use-fancy-highlight-body ... ...) (forward-line)))
  (if (or mew-use-highlight-body mew-use-fancy-highlight-body) (progn (goto-char BEG) (while ... ... ...)))
  (when (or mew-use-highlight-body mew-use-fancy-highlight-body) (goto-char BEG) (while (< ... END) (if mew-use-fancy-highlight-body ... ...) (forward-line)))
  (let ((buffer-read-only nil) (inhibit-read-only t) (zmacs-regions nil)) (when (and rehighlight ...) (add-text-properties BEG END ...)) (when (or mew-use-highlight-body mew-use-fancy-highlight-body) (goto-char BEG) (while ... ... ...)) (when mew-use-highlight-url (goto-char BEG) (while ... ... ... ... ...)))
  (mew-elet (when (and rehighlight ...) (add-text-properties BEG END ...)) (when (or mew-use-highlight-body mew-use-fancy-highlight-body) (goto-char BEG) (while ... ... ...)) (when mew-use-highlight-url (goto-char BEG) (while ... ... ... ... ...)))
  (save-excursion (mew-elet (when ... ...) (when ... ... ...) (when mew-use-highlight-url ... ...)))
  (let* ((inhibit-point-motion-hooks t) (url-regex mew-regex-url) (fancy-num 0) (fancy-length ...) beg end face key fancy-alst fancy-prefix) (save-excursion (mew-elet ... ... ...)))
  mew-highlight-body-region(1182 1247)
  (progn (mew-highlight-body-region (mew-syntax-get-begin syntax) (mew-syntax-get-end syntax)))
  (if (and (string= type mew-ct-txt) (string-match mew-buffer-cache-prefix ...)) (progn (mew-highlight-body-region ... ...)))
  (when (and (string= type mew-ct-txt) (string-match mew-buffer-cache-prefix ...)) (mew-highlight-body-region (mew-syntax-get-begin syntax) (mew-syntax-get-end syntax)))
  (let* ((case-fold-search t) (begin ...) (syntax ...) (ctl ...) (ct ...) (cte ...) (multi-err t) (encap nil) type) (cond (... ...) (... ...) (... ... ...) (... ...) (t ... ...)) (setq type (mew-syntax-get-value ... ...)) (unless (string= type mew-ct-msg) (mew-syntax-set-end syntax ...)) (when (and ... ...) (mew-highlight-body-region ... ...)) (if encap (let ... ... ... ...) syntax))
  mew-decode-singlepart(1 nil message)
  (setq part (mew-decode-singlepart cnt nil (quote message)))
  (save-restriction (narrow-to-region (point) (point-max)) (setq part (mew-decode-singlepart cnt nil ...)) (mew-syntax-set-key syntax (quote message)) (mew-syntax-set-end syntax (1- ...)) (or (mew-syntax-get-cd syntax) (mew-syntax-set-cd syntax subj)) (mew-syntax-cat syntax part))
  (cond (mimep (save-restriction ... ... ... ... ... ...)) (t (if ... ... ...) (if ... ...) (mew-highlight-body-region ... ...) (mew-syntax-set-key syntax ...) (mew-syntax-set-end syntax ...) (or ... ...) (mew-decode-syntax-rfc822 syntax)))
  (let* ((msf ...) (mimep ...) (subj ...) (mew-inherit-decode-signer ...) part) (cond (mimep ...) (t ... ... ... ... ... ... ...)))
  (cond ((and ... ...) (if ... ... ...) (mew-syntax-set-key syntax ...) (mew-syntax-set-end syntax ...) (mew-decode-syntax-rfc822 syntax)) (t (let* ... ...)))
  mew-decode-message([message 1 nil nil ("Message/Rfc822") nil nil nil nil] 0)
  (setq mew-decode-syntax (mew-decode-message (mew-decode-syntax-rfc822-head) 0))
  (let ((debug-on-error t)) (setq mew-decode-syntax (mew-decode-message ... 0)))
  (if mew-debug (let (...) (setq mew-decode-syntax ...)) (condition-case nil (setq mew-decode-syntax ...) (error ... ... ...)))
  mew-decode()
  (if unlimit (let (... ...) (mew-decode)) (mew-decode))
  (condition-case nil (if unlimit (let ... ...) (mew-decode)) (quit (mew-cache-delete) (message "MIME decoding for %s/%s is quitted." fld msg) (throw ... ...)))
  (catch (quote return) (if cache (progn ... ...) (setq cache ...) (setq decode t)) (if (not decode) (throw ... nil)) (set-buffer cache) (mew-erase-buffer) (condition-case errmsg (setq tim-siz ...) (error ... ... ...)) (mew-cinfo-set fld msg (car tim-siz) (cdr tim-siz)) (mew-dinfo-set nil t) (mew-decode-syntax-clear) (condition-case nil (if unlimit ... ...) (quit ... ... ...)) (setq mew-icon-info msg) (mew-decode-syntax-set))
  (let* ((cbuf ...) (cache ...) tim-siz decode errormsg) (catch (quote return) (if cache ... ... ...) (if ... ...) (set-buffer cache) (mew-erase-buffer) (condition-case errmsg ... ...) (mew-cinfo-set fld msg ... ...) (mew-dinfo-set nil t) (mew-decode-syntax-clear) (condition-case nil ... ...) (setq mew-icon-info msg) (mew-decode-syntax-set)) (set-buffer cbuf) (if errormsg (if no-err ... ...)) cache)
  mew-cache-message("+inbox" "113" nil no-err)
  (if (and fld next (not ...) (not ...) (not ...)) (mew-cache-message fld next nil (quote no-err)))
  (save-excursion (if (and fld next ... ... ...) (mew-cache-message fld next nil ...)))
  (let ((mew-inherit-prefetching t) fld next) (save-excursion (sit-for 0) (mew-summary-goto-message) (cond ... ...)) (save-excursion (if ... ...)))
  mew-summary-cache-prefetch()
  (if prefetch (mew-summary-cache-prefetch))
  (unwind-protect (progn (mew-summary-toggle-disp-msg ...) (mew-window-configure ...) (mew-current-set-fld ... fld) (mew-current-set-msg ... ...) (mew-current-set-part ... part) (cond ... ... ...)) (if mew-decode-error (message "MIME decoding error: %s" mew-decode-error)) (setq mew-message-buffer-summary vfld) (select-window win) (mew-summary-cursor-postscript nil) (if prefetch (mew-summary-cache-prefetch)) (if next (mew-summary-display-after mew-summary-show-direction)))
  (let* ((fld ...) (vfld ...) (msg ...) (part ...) (ofld ...) (omsg ...) (opart ...) (cache ...) (win ...) (read-through ...) (sumbuf ...) next prefetch) (unwind-protect (progn ... ... ... ... ... ...) (if mew-decode-error ...) (setq mew-message-buffer-summary vfld) (select-window win) (mew-summary-cursor-postscript nil) (if prefetch ...) (if next ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (let* ... ...)))
  (mew-summary-msg-or-part (let* (... ... ... ... ... ... ... ... ... ... ... next prefetch) (unwind-protect ... ... ... ... ... ... ...)))
  (if (not (or redisplay mew-summary-buffer-disp-msg ...)) nil (mew-summary-msg-or-part (let* ... ...)))
  mew-summary-display(nil)
  call-interactively(mew-summary-display)