Re: Bug: Store link to Wanderlust message fails when subject contains encoded characters [6.33trans (release_6.33f.173.g8f17)]

From: David Maus <maus.david@gmail.com>
To: Carsten Dominik <carsten.dominik@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Bug: Store link to Wanderlust message fails when subject contains encoded characters [6.33trans (release_6.33f.173.g8f17)]
Date: Sun, 03 Jan 2010 19:11:15 +0100	[thread overview]
Message-ID: <87skan9hz0.wl%maus.david@gmail.com> (raw)
In-Reply-To: <08FF3DED-488D-46F5-871E-BE3E273103D1@gmail.com>

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

At Sun, 3 Jan 2010 14:40:58 +0100,
Carsten Dominik wrote:
> 
> Hi David,
> 
> could you please provide a full backtrace for this bug?
> 

Backtrace attached. 

My first guess on why it happens was wrong, as expected: There are
messages with encoded umlauts that do not cause this error.

Regards

 -- David

-- 
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... maus.david@gmail.com
ICQ....... 241051416

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: backtrace-wl-err.txt --]
[-- Type: text/plain; charset=US-ASCII, Size: 2495 bytes --]

Debugger entered--Lisp error: (args-out-of-range 30 45)
  format("%.30s" #("Online-Pornografie: China nimmt Tausende Verdächtige fest" 45 57 (charset latin-iso8859-1)))
  (setq rpl (format (concat ... "s") (cdr e)))
  (while (string-match re string) (setq rpl (format ... ...)) (setq string (replace-match rpl t t string)))
  (while (setq e (pop table)) (setq re (concat "%-?[0-9.]*" ...)) (while (string-match re string) (setq rpl ...) (setq string ...)))
  (let ((case-fold-search nil) e re rpl) (while (setq e ...) (setq re ...) (while ... ... ...)) string)
  org-replace-escapes("Email from %f: %.30s" (("%c") ("%F" . "rss-hash (SpiegelSchlagzeilen)") ("%f" . "SpiegelSchlagzeilen") ("%T") ("%t" . "?") ("%s" . #("Online-Pornografie: China nimmt Tausende Verdächtige fest" 45 57 ...)) ("%m" . "<c5870b37264417e9a721fc15fd537745.SpiegelSchlagzeilen@rss-hash>")))
  (let* ((p org-store-link-plist) (to ...) (from ...) (table ...)) (when (string-match "%c" fmt) (if ... ... ...)) (org-replace-escapes fmt table))
  org-email-link-description()
  org-wl-store-link()
  run-hook-with-args-until-success(org-wl-store-link)
  (cond ((run-hook-with-args-until-success ...) (setq link ... desc ...)) ((equal ... "*Org Edit Src Example*") (let ... ... ... ... ... ... ... ...)) ((equal ... ...) (let ... ...)) ((eq major-mode ...) (let ... ... ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3" :url ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3m" :url ...)) ((setq search ...) (setq link ...) (setq cpltxt ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "image" :file buffer-file-name)) ((eq major-mode ...) (setq cpltxt ... link ...)) ((and buffer-file-name ...) (setq custom-id ...) (cond ... ... ...)) ((buffer-file-name ...) (setq cpltxt ...) (when ... ... ...) (setq link ...)) ((interactive-p) (error "Cannot link to a buffer which is not visiting a file")) (t (setq link nil)))
  (let ((outline-regexp ...) link cpltxt desc description search txt custom-id) (cond (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... ... ...) (... ... ... ...) (... ...) (t ...)) (if (consp link) (setq cpltxt ... link ...)) (setq link (or link cpltxt) desc (or desc cpltxt)) (if (equal desc "NONE") (setq desc nil)) (if (and ... link) (progn ... ... ...) (and link ...)))
  org-store-link(nil)
  call-interactively(org-store-link nil nil)

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode