From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Richard Subject: Re: org-element-at-point fails in programming-modes Date: Fri, 22 Aug 2014 16:20:27 +0200 Message-ID: <87wqa061xw.fsf@geodiff-mac3.ulb.ac.be> References: <87zjez9xqc.fsf@gmail.com> <87vbpn9x6u.fsf@gmail.com> <87ppfvxslz.fsf@pierrot.dokosmarshall.org> <86ppfvjpwk.fsf@somewhere.org> <87tx57me13.fsf@alphaville.bos.redhat.com> <87d2btxjbn.fsf@pierrot.dokosmarshall.org> <87ha147r8z.fsf@gmail.com> <8761hk7hqz.fsf@geodiff-mac3.ulb.ac.be> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:40838) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XKpfT-0007km-NY for emacs-orgmode@gnu.org; Fri, 22 Aug 2014 10:18:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XKpfN-0003Oi-Vo for emacs-orgmode@gnu.org; Fri, 22 Aug 2014 10:18:15 -0400 Received: from mxin.ulb.ac.be ([164.15.128.112]:56185) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XKpfN-0003Ob-Pa for emacs-orgmode@gnu.org; Fri, 22 Aug 2014 10:18:09 -0400 In-Reply-To: <8761hk7hqz.fsf@geodiff-mac3.ulb.ac.be> (Nicolas Richard's message of "Fri, 22 Aug 2014 15:53:40 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Nicolas Richard Cc: emacs-orgmode@gnu.org, Thorsten Jolitz Nicolas Richard 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.