Re: [O] org-element-at-point fails in programming-modes

[Nicolas Richard]

Nicolas Richard <address@hidden> writes:
> I would like to blame (mm-uu-dissect) but I didn't look into it.

I now blame (mm-uu-dissect). The following patch fixes it, but that part
of the code must be there for a reason... and I don't know what it is.

        Modified   lisp/gnus/mm-uu.el
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el
index 423324a..2200caa 100644
--- a/lisp/gnus/mm-uu.el
+++ b/lisp/gnus/mm-uu.el
@@ -668,10 +668,7 @@ value of `mm-uu-text-plain-type'."
                         (setq end-point (point)))))
                   (or (not (setq func (mm-uu-function-2 entry)))
                       (funcall func)))
-         (if (and (> start-point text-start)
-                  (progn
-                    (goto-char text-start)
-                    (re-search-forward "." start-point t)))
+         (if (> start-point text-start)
              (push
               (mm-make-handle (mm-uu-copy-to-buffer text-start start-point)
                               mm-uu-text-plain-type)


-- 
Nico.