From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/16601 Path: main.gmane.org!not-for-mail From: (Jari Aalto+list.ding) Newsgroups: gmane.emacs.gnus.general Subject: Hallvard's gnus-e20/19.34/Pgnus 0.13 emulation (backtrace included) Date: 02 Sep 1998 16:26:27 +0300 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035155447 28814 80.91.224.250 (20 Oct 2002 23:10:47 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:10:47 +0000 (UTC) Return-Path: Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id JAA08901 for ; Wed, 2 Sep 1998 09:28:44 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id HAF00608; Wed, 2 Sep 1998 07:58:26 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 02 Sep 1998 08:27:12 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id IAA28202 for ; Wed, 2 Sep 1998 08:26:57 -0500 (CDT) Original-Received: from axl01it.ntc.nokia.com (axl01it.ntc.nokia.com [131.228.118.232]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id JAA08870 for ; Wed, 2 Sep 1998 09:26:51 -0400 (EDT) Original-Received: from zeus.tele.nokia.fi (zeus.tele.nokia.fi [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id QAA15992 for ; Wed, 2 Sep 1998 16:26:13 +0300 (EET DST) Original-Received: from tre.tele.nokia.fi (styx.ntc.nokia.com [131.228.169.57]) by zeus.tele.nokia.fi (8.6.4/8.6.4) with ESMTP id QAA28631 for ; Wed, 2 Sep 1998 16:30:43 +0300 Original-Received: by tre.tele.nokia.fi (1.39.111.2/16.2) id AA065132788; Wed, 2 Sep 1998 16:26:28 +0300 Original-To: Ding mailing list X-Info: Emacs tiny tools: ftp://cs.uta.fi/pub/ssjaaa/ File server: Send subject 'send help' to Original-Lines: 83 X-Mailer: Pterodactyl Gnus v0.13/Emacs 19.34 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:16601 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:16601 I'm having great success running Pgnus with 19.34, but then I hit this. (Thanks Hallvard's for gnus-e20.el) (gnus-version)"Pterodactyl Gnus v0.13 Does string-to-number take new parameter in Emacs 20.x ? Anyone care to post the emulation function? jari qp.el (defun quoted-printable-decode-region (from to) "Decode quoted-printable in the region between FROM and TO." (interactive "r") (save-excursion (goto-char from) (while (search-forward "=" to t) (cond ((eq (following-char) ?\n) (delete-char -1) (delete-char 1)) ((and (memq (following-char) quoted-printable-encoding-characters) (memq (char-after (1+ (point))) quoted-printable-encoding-characters)) (subst-char-in-region (1- (point)) (point) ?= (string-to-number (buffer-substring (point) (+ 2 (point))) >> 16)) (delete-char 2)) ((looking-at "=") (delete-char 1)) ((message "Malformed MIME quoted-printable message")))))) Signaling: (wrong-number-of-arguments # 2) (string-to-number (buffer-substring (point) (+ 2 ...)) 16) (subst-char-in-region (1- (point)) (point) 61 (string-to-number (buffer-substring ... ...) 16)) (cond ((eq ... 10) (delete-char -1) (delete-char 1)) ((and ... ...) (subst-char-in-region ... ... 61 ...) (delete-char 2)) ((looking-at "=") (delete-char 1)) ((message "Malformed MIME quoted-printable message"))) (while (search-forward "=" to t) (cond (... ... ...) (... ... ...) (... ...) (...))) (save-excursion (goto-char from) (while (search-forward "=" to t) (cond ... ... ... ...))) quoted-printable-decode-region(2316 2573) (progn (goto-char (point-min)) (search-forward "\n\n" nil (quote move)) (quoted-printable-decode-region (point) (point-max))) (if (or force (and type ...)) (progn (goto-char ...) (search-forward "\n\n" nil ...) (quoted-printable-decode-region ... ...))) (when (or force (and type ...)) (goto-char (point-min)) (search-forward "\n\n" nil (quote move)) (quoted-printable-decode-region (point) (point-max))) (let ((buffer-read-only nil) (type ...)) (gnus-article-decode-rfc1522) (when (or force ...) (goto-char ...) (search-forward "\n\n" nil ...) (quoted-printable-decode-region ... ...))) (save-excursion (let (... ...) (gnus-article-decode-rfc1522) (when ... ... ... ...))) article-de-quoted-unreadable() apply(article-de-quoted-unreadable nil) (if interactive (call-interactively (quote article-de-quoted-unreadable)) (apply (quote article-de-quoted-unreadable) args)) (save-excursion (set-buffer gnus-article-buffer) (if interactive (call-interactively ...) (apply ... args))) gnus-article-de-quoted-unreadable() (progn (when (boundp ...) (cond ... ...)) (gnus-article-de-quoted-unreadable) (if (fboundp ...) (gnus-article-strip-multiple-blank-lines)) (gnus-article-hide-citation-maybe nil) (gnus-article-hide-signature nil) (when (string-match "nntp" gnus-newsgroup-name) (gnus-article-hide-headers nil)) (when (re-search-check "PGP ") (if ... ... ...)) (my-gnus-article-url) (when (fboundp ...) (gnus-article-date-user)) (when my-:window-system) (when (string-match "XEmacs" emacs-version)) (when (fboundp ...)) (when (and ... ...) (let ... ...))) (if (buffer-live-p (get-buffer gnus-article-buffer)) (progn (when ... ...) (gnus-article-de-quoted-unreadable) (if ... ...) (gnus-article-hide-citation-maybe nil) (gnus-article-hide-signature nil) (when ... ...) (when ... ...) (my-gnus-article-url) (when ... ...) (when my-:window-system) (when ...) (when ...) (when ... ...))) (when (buffer-live-p (get-buffer gnus-article-buffer)) (when (boundp ...) (cond ... ...)) (gnus-article-de-quoted-unreadable) (if (fboundp ...) (gnus-article-strip-multiple-blank-lines)) (gnus-article-hide-citation-maybe nil) (gnus-article-hide-signature nil) (when (string-match "nntp" gnus-newsgroup-name) (gnus-article-hide-headers nil)) (when (re-search-check "PGP ") (if ... ... ...)) (my-gnus-article-url) (when (fboundp ...) (gnus-article-date-user)) (when my-:window-system) (when (string-match "XEmacs" emacs-version)) (when (fboundp ...)) (when (and ... ...) (let ... ...))) my-gnus-article-display-hook-list() run-hooks(gnus-article-display-hook) apply(run-hooks gnus-article-display-hook) (unwind-protect (apply (quote run-hooks) funcs) (set-buffer buf)) (let ((buf ...)) (unwind-protect (apply ... funcs) (set-buffer buf))) gnus-run-hooks(gnus-article-display-hook) (let (buffer-read-only) (gnus-run-hooks (quote gnus-tmp-internal-hook)) (gnus-run-hooks (quote gnus-article-prepare-hook)) (when gnus-show-mime (if ... ... ...)) (gnus-run-hooks (quote gnus-article-display-hook))) (progn (let (buffer-read-only) (gnus-run-hooks ...) (gnus-run-hooks ...) (when gnus-show-mime ...) (gnus-run-hooks ...)) (goto-char (point-min)) (setq gnus-page-broken (when gnus-break-pages ... t))) (if (or (numberp article) (stringp article)) (progn (let ... ... ... ... ...) (goto-char ...) (setq gnus-page-broken ...))) (when (or (numberp article) (stringp article)) (let (buffer-read-only) (gnus-run-hooks ...) (gnus-run-hooks ...) (when gnus-show-mime ...) (gnus-run-hooks ...)) (goto-char (point-min)) (setq gnus-page-broken (when gnus-break-pages ... t))) (if (or (eq result ...) (eq result ...)) (progn (save-excursion ... ... ... ... ...) (gnus-set-mode-line ...)) (when (and ... ...) (save-excursion ... ... ... ... ... ... ... ... ... ... ...)) (when (or ... ...) (let ... ... ... ... ...) (goto-char ...) (setq gnus-page-broken ...)) (gnus-set-mode-line (quote article)) (gnus-configure-windows (quote article)) (goto-char (point-min)) (search-forward "\n\n" nil t) (set-window-point (get-buffer-window ...) (point)) t) (if (not (setq result ...)) (save-excursion (when ... ... ... ... ...)) (if (or ... ...) (progn ... ...) (when ... ...) (when ... ... ... ...) (gnus-set-mode-line ...) (gnus-configure-windows ...) (goto-char ...) (search-forward "\n\n" nil t) (set-window-point ... ...) t)) (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (when (and ... transient-mark-mode) (setq mark-active nil)) (if (not ...) (save-excursion ...) (if ... ... ... ... ... ... ... ... ... t))) (let* ((gnus-article ...) (summary-buffer ...) (gnus-tmp-internal-hook gnus-article-internal-prepare-hook) (group gnus-newsgroup-name) result) (save-excursion (gnus-article-setup-buffer) (set-buffer gnus-article-buffer) (when ... ...) (if ... ... ...))) (save-excursion (unless (eq major-mode ...) (set-buffer gnus-summary-buffer)) (setq gnus-summary-buffer (current-buffer)) (let* (... ... ... ... result) (save-excursion ... ... ... ...))) gnus-article-prepare(5592 nil) (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (prog1 (if gnus-summary-display-article-function (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (gnus-run-hooks (quote gnus-select-article-hook)) (when (and gnus-current-article ...) (gnus-summary-goto-subject gnus-current-article)) (gnus-summary-recenter) (when (and gnus-use-trees gnus-show-threads) (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article)) (gnus-article-set-window-start (cdr ...))) (if (null article) nil (prog1 (if gnus-summary-display-article-function ... ...) (gnus-run-hooks ...) (when ... ...) (gnus-summary-recenter) (when ... ... ...) (gnus-article-set-window-start ...))) gnus-summary-display-article(5592) (or (gnus-summary-display-article (gnus-summary-article-number)) (eq (gnus-summary-article-mark) gnus-canceled-mark)) (and (gnus-summary-search-forward unread subject backward) (or (gnus-summary-display-article ...) (eq ... gnus-canceled-mark))) (cond ((and ... ...) (gnus-summary-position-point)) ((and subject gnus-auto-select-same ...) (gnus-summary-position-point) (gnus-message 6 "Wrapped")) ((and gnus-auto-extend-newsgroup ... ...) (gnus-summary-goto-article ... nil ...)) (t (unless ... ...) (let ... ... ...))) gnus-summary-next-article(nil) * call-interactively(gnus-summary-next-article)