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)