bad article

bad article

[Joerg Plate]

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

Hello-hello,

I get the following message when viewing the included article:
	Wrong type argument, integer-or-marker-p, nil

Jörg

[-- 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: 21835 --]
[-- Type: application/octet-stream, Size: 1522 bytes --]

NNTP-Posting-Host: magicvillage.de
Path: psyche.hb.north.de!deceased.hb.north.de!gorm.zfn.uni-bremen.de!news-ham1.dfn.de!news-ber1.dfn.de!news-fra1.dfn.de!news-was.dfn.de!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-peer.gip.net!news.gsl.net!gip.net!news-peer.sprintlink.net!news.sprintlink.net!Sprint!newsfeed.nacamar.de!news.space.net!topnet.de!magicvillage.de!news
From: Tim-John_Mueller@magicvillage.de (Tim-John Mueller)
Reply-To: Tim-John_Mueller@magicvillage.de (Tim-John Mueller)
Newsgroups: de.markt.comp.misc
Distribution: world
Subject: V: Apple LC 10/40 mit 12" Monitor
Date: Fri, 09 Jan 1998 16:13:42 +0100
Message-ID: <825282525.43618687@magicvillage.de>
Organization: Systematics
X-Gateway: FirstClass Gateway for SMTP/NNTP (Mac68K) version 1.02
MIME-Version: 1.0
Content-type: text/enriched; charset=us-ascii
Content-transfer-encoding: Quoted-printable
Lines: 22
Xref: psyche.hb.north.de de.markt.comp.misc:21835

<bigger><x-fontsize><param>13</param><bold><x-fontname><param>Arial</param>=
Zu verkaufen:


Apple Macintosh LC 10/40

mit Apple 12=22 Monochrom-Monitor	Preis: VB 300,- DM</bold> zzgl. Versand<b=
old>

</bold>10 MB Ram, 40 MB Festplatte, PDS Ethernetkarte, Tastatur klein, Mous=
e eckig, System 7.0.1...technisch einwandfrei.



<bold>Kontakt: timjohn_mueller=40magicvillage.de oder Telefon 040/ 229 53 3=
4

</bold></bigger></x-fontsize><x-fontsize><param>10</param></x-fontname><x-f=
ontname><param>Geneva</param>

</x-fontsize></x-fontname>

Re: bad article

[Lars Balker Rasmussen]

Joerg Plate <Plate@Psyche.HB.North.de> writes:
> I get the following message when viewing the included article:
> 	Wrong type argument, integer-or-marker-p, nil

Please do a 
M-: (setq debug-on-error t) RET
review the article, and send the backtrace.
-- 
Lars Balker Rasmussen, Software Engineer, Mjolner Informatics ApS
lbr@mjolner.dk

Re: bad article

[Joerg Plate]

[-- 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)

Re: bad article

[Lars Magne Ingebrigtsen]

Joerg Plate <Plate@Psyche.HB.North.de> writes:

> Signaling: (wrong-type-argument integer-or-marker-p nil)
>   put-text-property(1230 nil unknown ("x-fontsize"))
>   format-deannotate-region(

[...]

>   mime-preview/display-body(

Looks like a SEMI bug.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

XEmacs-20.3/Emacs-20.2 enriched-decode bug [Was: Re: bad article]

[Danny Siu]

Lars Magne Ingebrigtsen writes:

  Lars> Joerg Plate <Plate@Psyche.HB.North.de> writes:
  >> Signaling: (wrong-type-argument integer-or-marker-p nil)
  >> put-text-property(1230 nil unknown ("x-fontsize"))
  >> format-deannotate-region(

  Lars> [...]

  >> mime-preview/display-body(

  Lars> Looks like a SEMI bug.

I don't think so.

I encountered this bug everyday.  I guess more people are using mailers that
encode formatted mail using enriched.

Anyways, the problem happens whenever a "Content-type: text/enriched;
charset=us-ascii" mail is read.  format-deannotate-region (in
listp/prim/format.el) calls put-text-property with a nil as 2nd argument.
format-deannotate-region is called by enriched-decode (in
lisp/modes/enriched.el).

To reproduce, highlight the following line

<x-fontsize><param>13</param>Enriched is broken!!</x-fontsize>

and do

(enriched-decode (region-beginning) (region-end))

Any x-* tags will fail in enriched-mode.

I am using XEmacs-20.3 but FSF Emacs-20.2 fails the same way.

  Lars> -- (domestic pets only, the antidote for overdose, milk.)
  Lars>   larsi@gnus.org * Lars Magne Ingebrigtsen

-- 
=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Danny Dick-Fung Siu                              mailto:dsiu@adobe.com 
 WebReady Printing Group           mailto:dsiu@alumni.eecs.berkeley.edu 
 Adobe Systems Incorporated          http://www.csua.berkeley.edu/~dsiu 
=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Re: XEmacs-20.3/Emacs-20.2 enriched-decode bug [Was: Re: bad article]

[SL Baur]

Danny Siu <dsiu@Adobe.COM> writes:

> Lars Magne Ingebrigtsen writes:
Lars> Joerg Plate <Plate@Psyche.HB.North.de> writes:
>>> Signaling: (wrong-type-argument integer-or-marker-p nil)
>>> put-text-property(1230 nil unknown ("x-fontsize"))
>>> format-deannotate-region(

Lars> [...]

>>> mime-preview/display-body(

Lars> Looks like a SEMI bug.

> I don't think so.

> I encountered this bug everyday.  I guess more people are using mailers that
> encode formatted mail using enriched.

It's an Emacs/XEmacs bug in format.el and fixed in the latest
sources.

(digging around ...)

Try this and see if it helps (note that format.el is dumped with
XEmacs so you have to either redump XEmacs after patching or
explicitly load the new version of the file).

1997-12-16  Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>

	* format.el (format-deannotate-region):  Bug fix.
	Deannotating a region containing unknown tags would fail
	(causing decoding of text/enriched to fail at user level)

Index: format.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/format.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- format.el	1997/12/14 03:51:44	1.5
+++ format.el	1997/12/17 06:27:13	1.6
@@ -652,9 +652,10 @@
 					  loc (cdr (car extents))))))))
 			(setq alist (cdr alist))))
 		    (setq aalist (cdr aalist)))
-		  (if (not matched)
+		  (unless matched
 		      ;; Didn't find any match for the annotation:
 		      ;; Store as value of text-property `unknown'.
+		      (setcdr (car top-extents) loc)
 		      (let ((extents top-extents)
 			    (start (car (car top-extents)))
 			    (loc (cdr (car top-extents))))