Re: bad article

[Joerg Plate <Plate@Psyche.HB.North.de>]

[-- Attachment #1: Type: text/plain, Size: 27 bytes --]

> send the backtrace.
Okay

[-- Attachment #2: Type: text/plain, Size: 91 bytes --]

-- 
"i'm working on it"

CIA SECRET:  Proof of P=NP found in UFO!	<Sbbe.6564@clarinet.com>

[-- Attachment #3: BackTrace --]
[-- Type: application/octet-stream, Size: 6068 bytes --]

Signaling: (wrong-type-argument integer-or-marker-p nil)
  put-text-property(1230 nil unknown ("x-fontsize"))
  format-deannotate-region(939 1463 ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (facemenu-make-larger "bigger") (facemenu-make-smaller "smaller")) (read-only (t "x-read-only")) (unknown (nil format-annotate-value))) enriched-next-annotation)
  (let ((file-width ...)) (enriched-remove-header) (while (search-forward-regexp "\n\n+" nil t) (if ... ...) (set-hard-newline-properties ... ...)) (format-deannotate-region from (point-max) enriched-translations (quote enriched-next-annotation)) (cond (file-width ... ... ...) (t ... ...)) (if enriched-verbose (message nil)))
)
  (save-restriction (narrow-to-region from to) (goto-char from) (let (...) (enriched-remove-header) (while ... ... ...) (format-deannotate-region from ... enriched-translations ...) (cond ... ...) (if enriched-verbose ...)) (point-max))
)
  (save-excursion (save-restriction (narrow-to-region from to) (goto-char from) (let ... ... ... ... ... ...) (point-max)))
)
  enriched-decode(939 1470)
  (let* ((mode mime::preview/original-major-mode) (m ...) (charset ...) (beg ...)) (remove-text-properties beg (point-max) (quote ...)) (mime-preview/decode-text-buffer charset encoding) (enriched-decode beg (point-max)))
)
  mime-preview/filter-for-text/enriched("text/enriched" (("charset" . "us-ascii")) "quoted-printable")
  funcall(mime-preview/filter-for-text/enriched "text/enriched" (("charset" . "us-ascii")) "quoted-printable")
  (and (functionp f) (funcall f ctype params encoding))
)
  (let ((f ...)) (and (functionp f) (funcall f ctype params encoding)))
)
  (save-restriction (narrow-to-region (point-max) (point-max)) (insert-buffer-substring mime::preview/article-buffer beg end) (let (...) (and ... ...)))
)
  mime-preview/display-body(939 1484 nil [mime::content-info nil 1 1484 "text/enriched" (("charset" . "us-ascii")) "quoted-printable" nil] "text/enriched" (("charset" . "us-ascii")) "V: Apple LC 10/40 mit 12\" Monitor" "quoted-printable")
  (cond ((mime-viewer/body-visible-p rcnum cinfo ctype) (mime-preview/display-body he end rcnum cinfo ctype params subj encoding)) ((equal ctype "message/partial") (mime-preview/display-message/partial)) ((and ... ...) (goto-char ...) (mime-preview/insert-content-button rcnum cinfo ctype params subj encoding)))
)
  (let* ((beg ...) (end ...) (ctype ...) (params ...) (encoding ...) (rcnum ...) he e nb ne subj) (set-buffer ibuf) (goto-char beg) (setq he (if ... ... end)) (if (> he end) (setq he end)) (save-restriction (narrow-to-region beg end) (setq subj ...)) (set-buffer obuf) (setq nb (point)) (narrow-to-region nb nb) (funcall mime-preview/content-button-function rcnum cinfo ctype params subj encoding) (if (mime-viewer/header-visible-p rcnum cinfo ctype) (mime-preview/display-header beg he)) (if (and ... ...) (save-excursion ... ...)) (cond (... ...) (... ...) (... ... ...)) (mime-preview/default-content-separator rcnum cinfo ctype params subj) (prog1 (progn ... ... ...) (goto-char ne)))
)
  mime-preview/display-content([mime::content-info nil 1 1484 "text/enriched" (("charset" . "us-ascii")) "quoted-printable" nil] [mime::content-info nil 1 1484 "text/enriched" (("charset" . "us-ascii")) "quoted-printable" nil] #<buffer " *Original Article*"> "*Article*")
  (setcar drest (mime-preview/display-content (car pcl) cinfo the-buf obuf))
)
  (while pcl (setcar drest (mime-preview/display-content ... cinfo the-buf obuf)) (setq pcl (cdr pcl) drest (cdr drest)))
)
  (let ((drest dest)) (while pcl (setcar drest ...) (setq pcl ... drest ...)))
)
  (let* ((cinfo mime::article/content-info) (pcl ...) (dest ...) (the-buf ...) (mode major-mode)) (or obuf (setq obuf ...)) (set-buffer (get-buffer-create obuf)) (setq buffer-read-only nil) (widen) (erase-buffer) (setq mime::preview/article-buffer the-buf) (setq mime::preview/original-major-mode mode) (setq major-mode (quote mime/viewer-mode)) (setq mode-name "MIME-View") (let (...) (while pcl ... ...)) (set-buffer-modified-p nil) (setq buffer-read-only t) (set-buffer the-buf) (list obuf dest))
)
  mime-viewer/make-preview-buffer("*Article*")
  (let ((ret ...)) (setq mime::article/preview-buffer (car ret)) ret)
)
  mime-viewer/setup-buffer(nil nil " *Original Article*" "*Article*")
  (let ((ret ...) (win-conf ...)) (prog1 (switch-to-buffer ...) (setq mime::preview/original-window-configuration win-conf) (if mother ...) (mime-viewer/define-keymap mother-keymap) (setq mime::preview/content-list ...) (goto-char ...) (run-hooks ...)))
)
  mime/viewer-mode(nil nil nil " *Original Article*" "*Article*" #<keymap 355 entries 0x1d7f>)
  (save-window-excursion (mime/viewer-mode nil nil nil gnus-original-article-buffer gnus-article-buffer gnus-article-mode-map))
)
  (let ((mime-viewer/ignored-field-regexp "^:$") (default-mime-charset ...)) (save-window-excursion (mime/viewer-mode nil nil nil gnus-original-article-buffer gnus-article-buffer gnus-article-mode-map)))
)
  gnus-article-preview-mime-message()
  gnus-article-prepare(21835 nil)
  gnus-summary-display-article(21835 nil)
  #<compiled-function (from "gnus-sum.elc") (article &optional all-headers force) "...(48)" [article string-match "@" gnus-summary-refer-article string-to-number gnus-summary-goto-subject force gnus-summary-display-article all-headers gnus-message 4 "Couldn't go to article %s" nil gnus-summary-position-point] 4 ("/usr/local/src/qgnus/lisp/gnus-sum.elc" . 151157) (list (completing-read "Article number or Message-ID: " ...) current-prefix-arg t)>("21835" nil t)
  call-interactively(gnus-summary-goto-article)