[mew-dist 19304] Truncated message retrieve error

Hiromichi Kawachi hirom at example.com
2001年 10月 14日 (日) 12:47:28 JST


こんにちは.

多分私の設定の問題だろうと思い,自力での解決をめざしていたのですが
挫折しましたので,皆様のお知恵を拝借したいと思います.

正確に Mew のどの revision から発生しはじめたのか,はっきり記録で
きてませんが,mew-pop-size を 0 としてない状態 (default) で,
message を受信,その内 Truncate 表示された message の Summary バッ
ファ上で Iすると,全体を取得に行く訳ですが,XEmacs (21.5-3) でこの
操作をすると,ミニバッファに "No such face" invisible と表示されて
以降,message の取得は最後まで行っているようですが,Summary バッファ
の方の表示は T のまま変わらない,という症状が発生しております.ま
た,取得完了後も C-cC-k しないとプロセスが上がったままになるようで
す.(ちなみに,会社,自宅ともに同様の状況になっています.)

Emacs20 (20.7),Emacs21 (21.0.106) では同様の症状は起きません.face
絡みのようなので,mew-fancy-summary など,自分の設定でミスしそうな
ものははずして,できるだけ plain な設定で試しているのですが...

1. 私の設定,環境に依存するとすれば,設定上で check すべき個所,方
   法などありますでしょうか?
2. かりに face 回りの設定に起因するとして,face での設定ミスを Mew
   側 (の coding) で回避するような方法はありますでしょうか?

ちなみに,mew-pop-size を 0 にして,Truncate な message が発生しな
いようにしている限り,この環境でも他の機能に支障はなさそうです.OS 
は,Linux Kernel 2.4.10 (Debian/GNU) です.

Backtrace Message 同封します.

--
Hiromichi Kawachi (川地 博道) <hirom at example.com>

-------------- next part --------------
Signaling: (invalid-argument "No such face" invisible)
  put-text-property(76763 76914 face invisible)
  (if (not (re-search-forward ... nil t)) (goto-char (point-max)) (beginning-of-line) (setq beg (point)) (forward-line) (put-text-property beg (point) (quote face) (quote invisible)) (forward-line -1))
  (if (null lmsg) (goto-char (point-max)) (goto-char (point-min)) (if (not ...) (goto-char ...) (beginning-of-line) (setq beg ...) (forward-line) (put-text-property beg ... ... ...) (forward-line -1)))
  (let ((buffer-read-only nil) (inhibit-read-only t) (zmacs-regions nil)) (if (null lmsg) (goto-char ...) (goto-char ...) (if ... ... ... ... ... ... ...)) (setq beg (point)) (insert (car line)) (setq med (point)) (goto-char beg) (mew-front-nonsticky beg med) (if (and mew-use-highlight-mark ... ... ...) (put-text-property beg med ... face)) (if mew-use-highlight-mouse-line (put-text-property beg med ... mew-highlight-mouse-line-face)) (goto-char med) (insert (cdr line)) (put-text-property med (1- ...) (quote invisible) t) (when lmsg (setq beg ...) (forward-line) (delete-region beg ...)))
  (mew-elet (if (null lmsg) (goto-char ...) (goto-char ...) (if ... ... ... ... ... ... ...)) (setq beg (point)) (insert (car line)) (setq med (point)) (goto-char beg) (mew-front-nonsticky beg med) (if (and mew-use-highlight-mark ... ... ...) (put-text-property beg med ... face)) (if mew-use-highlight-mouse-line (put-text-property beg med ... mew-highlight-mouse-line-face)) (goto-char med) (insert (cdr line)) (put-text-property med (1- ...) (quote invisible) t) (when lmsg (setq beg ...) (forward-line) (delete-region beg ...)))
  (let* ((after-change-functions nil) (line ...) (opos ...) (omax ...) beg med face mark) (mew-elet (if ... ... ... ...) (setq beg ...) (insert ...) (setq med ...) (goto-char beg) (mew-front-nonsticky beg med) (if ... ...) (if mew-use-highlight-mouse-line ...) (goto-char med) (insert ...) (put-text-property med ... ... t) (when lmsg ... ... ...)) (if (or ... ...) (goto-char opos)))
  (save-excursion (set-buffer folder) (let* (... ... ... ... beg med face mark) (mew-elet ... ... ... ... ... ... ... ... ... ... ... ...) (if ... ...)))
  (if (get-buffer folder) (save-excursion (set-buffer folder) (let* ... ... ...)))
  (when (get-buffer folder) (save-excursion (set-buffer folder) (let* ... ... ...)))
  mew-scan-insert-line("+inbox" ["+inbox" "2425" "test 4" "Sun, 14 Oct 2001 12:05:27 +0900 (JST)" "Hiromichi Kawachi <hirom at example.com>" "hirom at example.com" "Multipart/Mixed; boundary=\"--Next_Part(Sun_Oct_14_12:05:27_2001_294)--\"" "<20011014.120527.1025215481.hirom at example.com>" "" "" ""] 95 "2425" nil)
  (catch (quote write-error) (condition-case nil (mew-frwlet mew-cs-dummy mew-cs-text-for-write ...) (error ... ... ...)) (set-file-modes file mew-file-mode) (mew-pop-set-cnt pnm (1+ ...)) (let (... fld msg alias) (while links ... ... ... ... ...)) (mew-set-buffer-multibyte t) (setq vec (mew-pop-scan-header)) (mew-scan-set-folder vec fld) (mew-scan-set-message vec msg) (mew-set-buffer-multibyte nil) (mew-scan-insert-line fld vec width msg nil) (mew-pop-set-rtrs pnm (cdr rtrs)) (if (and del ...) (process-send-string pro ...) (mew-pop-set-status pnm "retr") (mew-pop-command-retr pro pnm)))
  (let* ((case ...) (width ...) (rtrs ...) (rtr ...) (num ...) (uid ...) (siz ...) (del ...) (fld-msg ...) (fld ...) (msg ...) (truncated ...) (xmu mew-x-mew-uidl:) vec file msg-file) (goto-char (point-min)) (forward-line) (delete-region (point-min) (point)) (when (string= mew-cs-eol "
\n") (goto-char ...) (while ... ...)) (goto-char (point-max)) (forward-line -2) (end-of-line) (delete-region (point) (point-max)) (goto-char (point-min)) (while (re-search-forward "^\\." nil t) (delete-char -1) (forward-line)) (setq msg-file (mew-pop-get-new-message pnm fld msg)) (setq msg (car msg-file) file (cdr msg-file)) (when truncated (goto-char ...) (when uid ...)) (catch (quote write-error) (condition-case nil ... ...) (set-file-modes file mew-file-mode) (mew-pop-set-cnt pnm ...) (let ... ...) (mew-set-buffer-multibyte t) (setq vec ...) (mew-scan-set-folder vec fld) (mew-scan-set-message vec msg) (mew-set-buffer-multibyte nil) (mew-scan-insert-line fld vec width msg nil) (mew-pop-set-rtrs pnm ...) (if ... ... ... ...)))
  mew-pop-command-dele(#<network connection "mew-pop-info-hirom+wind at example.com" ("pop3" . "mx.sannet.ne.jp") state:run> "mew-pop-info-hirom+wind at example.com")
  funcall(mew-pop-command-dele #<network connection "mew-pop-info-hirom+wind at example.com" ("pop3" . "mx.sannet.ne.jp") state:run> "mew-pop-info-hirom+wind at example.com")
  (and func (funcall func process pnm))
  (if (fboundp func) (and func (funcall func process pnm)) (error "No function called %s" (symbol-name func)))
  (if stay nil (unless next (setq next "quit")) (mew-pop-set-status pnm next) (setq func (intern-soft ...)) (goto-char (point-min)) (if (fboundp func) (and func ...) (error "No function called %s" ...)) (mew-pop-set-input pnm nil) (mew-erase-buffer))
  (unless stay (unless next (setq next "quit")) (mew-pop-set-status pnm next) (setq func (intern-soft ...)) (goto-char (point-min)) (if (fboundp func) (and func ...) (error "No function called %s" ...)) (mew-pop-set-input pnm nil) (mew-erase-buffer))
  (progn (set-buffer (process-buffer process)) (if (mew-pop-get-keep-input pnm) (mew-pop-set-input pnm ...)) (when (string= status "retr") (setq total ...) (if ... ... ... ... ...) (mew-set-summary-buffer-process-status fld progress)) (goto-char (point-max)) (mew-set-buffer-multibyte nil) (insert string) (cond (... ...) (... ...) (t ...)) (unless stay (unless next ...) (mew-pop-set-status pnm next) (setq func ...) (goto-char ...) (if ... ... ...) (mew-pop-set-input pnm nil) (mew-erase-buffer)))
  (unwind-protect (progn (set-buffer ...) (if ... ...) (when ... ... ... ...) (goto-char ...) (mew-set-buffer-multibyte nil) (insert string) (cond ... ... ...) (unless stay ... ... ... ... ... ... ...)) (if (get-buffer obuf) (set-buffer obuf)))
  (let ((obuf ...)) (unwind-protect (progn ... ... ... ... ... ... ... ...) (if ... ...)))
  (if (bufferp (process-buffer process)) (let (...) (unwind-protect ... ...)))
  (mew-filter (if (mew-pop-get-keep-input pnm) (mew-pop-set-input pnm ...)) (when (string= status "retr") (setq total ...) (if ... ... ... ... ...) (mew-set-summary-buffer-process-status fld progress)) (goto-char (point-max)) (mew-set-buffer-multibyte nil) (insert string) (cond (... ...) (... ...) (t ...)) (unless stay (unless next ...) (mew-pop-set-status pnm next) (setq func ...) (goto-char ...) (if ... ... ...) (mew-pop-set-input pnm nil) (mew-erase-buffer)))
  (let* ((pnm ...) (status ...) (cnt ...) (msgs ...) (msg ...) (siz ...) (fld ...) (mulrep ...) stay next func progress total) (mew-pop-debug (upcase status) string) (mew-filter (if ... ...) (when ... ... ... ...) (goto-char ...) (mew-set-buffer-multibyte nil) (insert string) (cond ... ... ...) (unless stay ... ... ... ... ... ... ...)))
  mew-pop-filter(#<network connection "mew-pop-info-hirom+wind at example.com" ("pop3" . "mx.sannet.ne.jp") state:run> "BtYW51YWwvcnVzZXJzZGxnX2VuLnBuZ1NE\nBAC8AAAAVVQFAAdPj/s5UEsBAhcLFAAAAAgA1q1eKTyYF20NJwAAUikAABUAEQAAAAAAAAAg\nALaBFw0CAG1hbnVhbC9zZXR0aW5nZGxnLnBuZ1NEBAC8AAAAVVQFAAe0bf05UEsBAhcLFAAA\nAAgAELBeKW0PsXCwGgAA1hwAABgAEQAAAAAAAAAgALaByDQCAG1hbnVhbC9zZXR0aW5nZGxn\nX2VuLnBuZ1NEBAC8AAAAVVQFAAfwcP05UEsBAhcLFAAAAAgAuYx3KTHQ7ifCGAAAlUIAABAA\nEQAAAAAAAQAgALaBH1ACAG1hbnVhbC90aXBzLmh0bWxTRAQAvAAAAFVUBQAHXtccOlBLAQIX\nCxQAAAAIALWMdymGd3ujSBUAAKc5AAATABEAAAAAAAEAIAC2gYBpAgBtYW51YWwvdGlwc19l\nbi5odG1sU0QEALwAAABVVAUAB1XXHDpQSwECFwsUAAAACADqldEq6i+Zm/PNAQAA8AMACwAR\nAAAAAAAAACAAtoFqfwIAQmtHbnVQRy5kbGxTRAQAvAAAAFVUBQAHp3wsO1BLAQIXCwoAAAAA\nAEuNdykAAAAAAAAAAAAAAAAIABEAAAAAAAAAEAD/QfdNBABCa0dudVBHL1NEBAA0AQAAVVQF\nAAdu2Bw6UEsBAhcLFAAAAAgAQpzRKlX4NIvACAAAEBUAABUAEQAAAAAAAQAgALaBp04EAEJr\nR251UEcvcmVhZG1lX2VuLnR4dFNEBAC8AAAAVVQFAAebhyw7UEsBAhcLFAAAAAgAXZzRKpgA\nMAGwDwAAiyAAABcAEQAAAAAAAAAgALaBC1gEAEJrR251UEcvcmVhZG1lX3NqaXMudHh0U0QE\nALwAAABVVAUAB9GHLDtQSwUGAAAAABYAFgAnBwAAYWgEAAAA\n\n----Next_Part(Sun_Oct_14_12:05:27_2001_294)----\n\n.\n")


Mew-dist メーリングリストの案内