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

[David Maus]

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.... address@hidden
Email..... address@hidden
ICQ....... 241051416

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" . "<address@hidden>")))
  (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)