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.... dmj...@jabber.org
Email..... maus.da...@gmail.com
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" .
"<c5870b37264417e9a721fc15fd537745.spiegelschlagzei...@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)
_______________________________________________
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
