Hallvard's gnus-e20/19.34/Pgnus 0.13 emulation (backtrace included)

[<jari.aalto@poboxes.com> (Jari Aalto+list.ding)]

    
    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 #<subr string-to-number> 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)